Listing of file='WCPD260A' on disk='vmedia/wcs_diags.wvd.zip'
# Sector 328, program filename = 'WCPD260A' 0010 REM . WCPD260A, 00-00 (06/28/75), 12002 : DIM C$4,P$1 : PRINT " TESTING BOOL ........................"; : A$,B$=HEX(00FFE11ED22DC33CB44BA55A96698778) : C$="ABCD" 0130 BOOL0(A$,A5) : P$=HEX(00) : GOSUB 500 : A$=B$ : BOOL0(STR(A$,1,16),A$) : GOSUB 500 0150 A$=B$ : BOOLF(A$,STR(C$,2,2)) : IF STR(A$,1,2)<>HEX(FFFF)THEN 530 : IF STR(A$,3)<>STR(B$,3)THEN 530 : P$=HEX(FF) : A$=B$ : BOOLF(A$,B1) : GOSUB 500 : E$=HEX(0123456789ABCDEFF1E2D3C4) : A$,A1$=B$ : OR (A$,B3) : BOOLE(A1$,B3) : GOSUB 520 0210 OR (A$,E$) : BOOLE(A1$,E$) : GOSUB 520 : AND (A$,C4) : BOOL8(A1$,C4) : GOSUB 520 : AND (A$,E$) : BOOL8(A1$,E$) : GOSUB 520 0240 XOR (A$,A5) : BOOL6(A1$,A5) : GOSUB 520 : XOR (A$,E$) : BOOL6(A1$,E$) : GOSUB 520 : OR (A$,96) : BOOL1(A1$,96) : GOSUB 510 : OR (A$,E$) : BOOL1(A1$,E$) : GOSUB 510 : AND (A$,87) : BOOL7(A1$,87) : GOSUB 510 : AND (A$,E$) : BOOL7(A1$,E$) : GOSUB 510 0300 XOR (A$,B4) : BOOL9(A1$,B4) : GOSUB 510 : XOR (A$,E$) : BOOL9(A1$,E$) : GOSUB 510 : BOOLC(A1$,F0) : GOSUB 520 : BOOLC(A1$,E$) : GOSUB 520 0340 AND (A$,00) : OR (A$,C3) : BOOLA(A1$,C3) : GOSUB 520 : BOOLA(A1$,E$) : A$=E$ : GOSUB 520 : BOOL3(A1$,96) : GOSUB 510 : BOOL3(A1$,E$) : GOSUB 510 : BOOL5(A$,78) : P$=HEX(87) : GOSUB 500 : A$,A1$=B$ : A$=E$ : BOOL5(A1$,E$) : GOSUB 510 0400 XOR (A$,5A) : AND (A$,5A) : BOOL2(A1$,5A) : GOSUB 520 : XOR (A$,E$) : AND (A$,E$) : BOOL2(A1$,E$) : GOSUB 520 0420 XOR (A$,2D) : AND (A$,2D) : BOOLD(A1$,2D) : GOSUB 510 : XOR (A$,E$) : AND (A$,E$) : BOOLD(A1$,E$) : GOSUB 510 : XOR (A$,96) : AND (A$,69) : BOOL4(A1$,96) : GOSUB 520 : BOOL4(A1$,E$) : XOR (A$,E$) : XOR (E$,FF) : AND (A$,E$) : GOSUB 520 0460 XOR (A$,C3) : AND (A$,3C) : BOOLB(A1$,C3) : GOSUB 510 : BOOLB(A1$,E$) : XOR (A$,E$) : XOR (E$,FF) : AND (A$,E$) : GOSUB 510 0490 PRINT "OK" : GOTO 550 0500 FOR I=1TO 16 : IF STR(A$,I,1)<>P$THEN 530 : NEXT I : RETURN 0510 XOR (A$,FF) 0520 IF A$<>A1$THEN 530 : A$,A1$=B$ : RETURN 0530 E(1)=E(1)+1 0540 PRINT TAB(40);E(1);"ERRORS" 0550 LOAD DC T"WCPD270A" 0560 DEFFN'15 : LOAD DC T"START"50