Listing of file='BDIAG24' on disk='vmedia/mvp-diag-3.5.wvd.zip'
# Sector 366, program filename = 'BDIAG24' 0020 PRINT AT(09,32);"AND,OR,XOR,BOOL <-- TESTING", 0080 S=SPACE 0090 DIM A$1,A$(513)1 0100 A$=HEX(CA) : OR (A$,AC) : IF A$<>HEX(EE)THEN 8990 0110 A$=HEX(CA) : XOR (A$,AC) : IF A$<>HEX(66)THEN 8990 0120 A$=HEX(CA) : AND (A$,AC) : IF A$<>HEX(88)THEN 8990 0130 A$=HEX(CA) : BOOL0(A$,AC) : IF A$<>HEX(00)THEN 8990 0140 A$=HEX(CA) : BOOL1(A$,AC) : IF A$<>HEX(11)THEN 8990 0150 A$=HEX(CA) : BOOL2(A$,AC) : IF A$<>HEX(24)THEN 8990 0160 A$=HEX(CA) : BOOL3(A$,AC) : IF A$<>HEX(35)THEN 8990 0170 A$=HEX(CA) : BOOL4(A$,AC) : IF A$<>HEX(42)THEN 8990 0180 A$=HEX(CA) : BOOL5(A$,AC) : IF A$<>HEX(53)THEN 8990 0190 A$=HEX(CA) : BOOL6(A$,AC) : IF A$<>HEX(66)THEN 8990 0200 A$=HEX(CA) : BOOL7(A$,AC) : IF A$<>HEX(77)THEN 8990 0210 A$=HEX(CA) : BOOL8(A$,AC) : IF A$<>HEX(88)THEN 8990 0220 A$=HEX(CA) : BOOL9(A$,AC) : IF A$<>HEX(99)THEN 8990 0230 A$=HEX(CA) : BOOLA(A$,AC) : IF A$<>HEX(AC)THEN 8990 0240 A$=HEX(CA) : BOOLB(A$,AC) : IF A$<>HEX(BD)THEN 8990 0250 A$=HEX(CA) : BOOLC(A$,AC) : IF A$<>HEX(CA)THEN 8990 0260 A$=HEX(CA) : BOOLD(A$,AC) : IF A$<>HEX(DB)THEN 8990 0270 A$=HEX(CA) : BOOLE(A$,AC) : IF A$<>HEX(EE)THEN 8990 0280 A$=HEX(CA) : BOOLF(A$,AC) : IF A$<>HEX(FF)THEN 8990 0300 FOR I=1TO 8 : B$,C$=ALL(FF) : AND (STR(B$,I,I),5A) : STR(C$,I,I)=ALL(5A) : IF B$<>C$THEN 8990 : XOR (STR(B$,I,I),FF) : STR(C$,I,I)=ALL(A5) : OR (STR(B$,I,I),5A) : STR(C$,I,I)=ALL(FF) : IF B$<>C$THEN 8990 : NEXT I 0320 FOR I=1TO 16 : B$,C$,D$=ALL(FF) : XOR (B$,STR(C$,1,I)) : STR(D$,1,I)=ALL(00) : IF D$<>B$THEN 8990 : NEXT I 0330 OR (A$(),FF) : AND (A$(),5A) : XOR (A$(),FF) : BOOLE(A$(),5A) : IF POS(A$()<>FF)<>0THEN 8990 8980 I=SPACE : IF I=STHEN 9000 8990 E(24)=E(24)+1 9000 PRINT AT(09,48,16); : IF E(24)=0THEN PRINT "OK"; : ELSE PRINT E(24);"ERRORS" 9010 LOAD DC T"BDIAG25 "