Listing of file='WCPD260A' on disk='vmedia/701-2046C.wvd.zip'
# Sector 55, program filename = 'WCPD260A' 0010 REM . WCPD260A, 00-00 (6/28/75), 12002 0100 DIM C$4,P$1 : PRINT " TESTING BOOL ........................"; : A$,B$=HEX(00FFE11ED22DC33CB44BA55A96698778) : C$="ABCD" : BOOL0(A$,A5) : P$=HEX(00) : GOSUB 1250 : A$=B$ : BOOL0(STR(A$,1,16),A$) : GOSUB 1250 : A$=B$ 0210 BOOLF(A$,STR(C$,2,2)) : IF STR(A$,1,2)<>HEX(FFFF)THEN 1330 : IF STR(A$,3)<>STR(B$,3)THEN 1330 : P$=HEX(FF) : A$=B$ : BOOLF(A$,B1) : GOSUB 1250 : E$=HEX(0123456789ABCDEFF1E2D3C4) : A$,A1$=B$ : OR (A$,B3) : BOOLE(A1$,B3) : GOSUB 1300 : OR (A$,E$) : BOOLE(A1$,E$) 0350 GOSUB 1300 : AND (A$,C4) : BOOL8(A1$,C4) : GOSUB 1300 : AND (A$,E$) : BOOL8(A1$,E$) : GOSUB 1300 : XOR (A$,A5) : BOOL6(A1$,A5) : GOSUB 1300 : XOR (A$,E$) : BOOL6(A1$,E$) : GOSUB 1300 : OR (A$,96) : BOOL1(A1$,96) : GOSUB 1290 : OR (A$,E$) : BOOL1(A1$,E$) : GOSUB 1290 : AND (A$,87) : BOOL7(A1$,87) 0560 GOSUB 1290 : AND (A$,E$) : BOOL7(A1$,E$) : GOSUB 1290 : XOR (A$,B4) : BOOL9(A1$,B4) : GOSUB 1290 : XOR (A$,E$) : BOOL9(A1$,E$) : GOSUB 1290 : BOOLC(A1$,F0) : GOSUB 1300 : BOOLC(A1$,E$) : GOSUB 1300 : AND (A$,00) : OR (A$,C3) : BOOLA(A1$,C3) : GOSUB 1300 : BOOLA(A1$,E$) : A$=E$ : GOSUB 1300 0770 BOOL3(A1$,96) : GOSUB 1290 : BOOL3(A1$,E$) : GOSUB 1290 : BOOL5(A$,78) : P$=HEX(87) : GOSUB 1250 : A$,A1$=B$ : A$=E$ : BOOL5(A1$,E$) : GOSUB 1290 : XOR (A$,5A) : AND (A$,5A) : BOOL2(A1$,5A) : GOSUB 1300 : XOR (A$,E$) : AND (A$,E$) : BOOL2(A1$,E$) : GOSUB 1300 : XOR (A$,2D) : AND (A$,2D) 0980 BOOLD(A1$,2D) : GOSUB 1290 : XOR (A$,E$) : AND (A$,E$) : BOOLD(A1$,E$) : GOSUB 1290 : XOR (A$,96) : AND (A$,69) : BOOL4(A1$,96) : GOSUB 1300 : BOOL4(A1$,E$) : XOR (A$,E$) : XOR (E$,FF) : AND (A$,E$) : GOSUB 1300 : XOR (A$,C3) : AND (A$,3C) : BOOLB(A1$,C3) : GOSUB 1290 : BOOLB(A1$,E$) 1180 XOR (A$,E$) : XOR (E$,FF) : AND (A$,E$) : GOSUB 1290 : IF E(7)<>0THEN 1350 : PRINT "OK" : GOTO 1360 1250 FOR I=1TO 16 : IF STR(A$,I,1)<>P$THEN 1330 : NEXT I : RETURN 1290 XOR (A$,FF) 1300 IF A$<>A1$THEN 1330 : A$,A1$=B$ : RETURN 1330 E(7)=E(7)+1 : E9$(P9)="NG" 1350 PRINT TAB(40);E(7);"ERRORS" 1360 LOAD DC T#6,"WCPD270A" 1370 DEFFN'15 : COM CLEAR : LOAD DC T#6,"START"