Listing of file='BDIAG14' on disk='vmedia/732-0050A.wvd.zip'
# Sector 1111, program filename = 'BDIAG14' 0020 PRINT AT(14,00);"ALPH-EXPR...... <-- TESTING", 0080 S=SPACE 0090 DIM A$2,B$3,C$3,D$3,X$3,Q$(256)1,Z$1 0100 A$=HEX(0000) : FOR I=1TO 255 : A$=ADDHEX(01) : IF VAL(A$,2)<>ITHEN 8990 : NEXT I : A$=A$ADDHEX(01) : IF A$<>HEX(0000)THEN 8990 0105 C$=HEX(123456) : C1$=ALL(D2) : B$=HEX(010203)ADDC$ADDC1$ : IF B$<>HEX(E5082B)THEN 8990 0110 READ N : FOR I=1TO N : READ B$,C$,D$ : X$=B$ADDCC$ : IF X$<>D$THEN 8990 : NEXT I 0120 DATA 3,HEX(7F8A03),HEX(027600),HEX(820003),HEX(FFFFFE),HEX(000003),HEX(00 0001)," "," ",HEX(404040) 0130 C1$=ALL(34) : A$=HEX(1234)ADDCC1$ADDCALL(01)ADDCHEX(FF) : IF A$<>HEX(4868)THEN 8990 0140 B$=HEX(123456) : B$=ADDHEX(FEDC) : IF B$<>HEX(123232)THEN 8990 0150 Q$()=ALL(01) : Q$(256)=HEX(00) : STR(Q$(),,255)=ADDQ$() : FOR I=1TO 256 : IF VAL(Q$(I))<>256-ITHEN 8990 : NEXT I 0200 Z$=HEX(CA)OR HEX(AC) : IF Z$<>HEX(EE)THEN 8990 0210 Z$=HEX(CA)AND HEX(AC) : IF Z$<>HEX(88)THEN 8990 0220 Z$=HEX(CA)XOR HEX(AC) : IF Z$<>HEX(66)THEN 8990 0230 Z$=HEX(CA)BOOL0HEX(AC) : IF Z$<>HEX(00)THEN 8990 0231 Z$=HEX(CA)BOOL1HEX(AC) : IF Z$<>HEX(11)THEN 8990 0232 Z$=HEX(CA)BOOL2HEX(AC) : IF Z$<>HEX(24)THEN 8990 0233 Z$=HEX(CA)BOOL3HEX(AC) : IF Z$<>HEX(35)THEN 8990 0234 Z$=HEX(CA)BOOL4HEX(AC) : IF Z$<>HEX(42)THEN 8990 0235 Z$=HEX(CA)BOOL5HEX(AC) : IF Z$<>HEX(53)THEN 8990 0236 Z$=HEX(CA)BOOL6HEX(AC) : IF Z$<>HEX(66)THEN 8990 0237 Z$=HEX(CA)BOOL7HEX(AC) : IF Z$<>HEX(77)THEN 8990 0238 Z$=HEX(CA)BOOL8HEX(AC) : IF Z$<>HEX(88)THEN 8990 0239 Z$=HEX(CA)BOOL9HEX(AC) : IF Z$<>HEX(99)THEN 8990 0240 Z$=HEX(CA)BOOLAHEX(AC) : IF Z$<>HEX(AC)THEN 8990 0241 Z$=HEX(CA)BOOLBHEX(AC) : IF Z$<>HEX(BD)THEN 8990 0242 Z$=HEX(CA)BOOLCHEX(AC) : IF Z$<>HEX(CA)THEN 8990 0243 Z$=HEX(CA)BOOLDHEX(AC) : IF Z$<>HEX(DB)THEN 8990 0244 Z$=HEX(CA)BOOLEHEX(AC) : IF Z$<>HEX(EE)THEN 8990 0245 Z$=HEX(CA)BOOLFHEX(AC) : IF Z$<>HEX(FF)THEN 8990 0250 STR(Q$(),,128)=AND ALL(7F) : IF STR(Q$(),,128)<>STR(Q$(),129)THEN 8990 0260 STR(Q$(),,128)=SUBSTR(Q$(),129) : IF POS(Q$()<>HEX(00))<>129THEN 8990 0270 STR(Q$(),,128)=SUBHEX(01) : IF POS(Q$()<>00)<>128THEN 8990 : IF Q$(128)<>HEX(FF)THEN 8990 0280 STR(Q$(),,127)=SUBCHEX(01) : IF POS(Q$()<>FF)<>129THEN 8990 0300 A$=HEX(1234) : B$=HEX(129876) : C$=B$DAC A$ : IF C$<>HEX(131110)THEN 8990 : C$=DSC A$ : IF C$<>HEX(129876)THEN 8990 0310 C$=C$DAC ALL(00) : IF C$<>HEX(129876)THEN 8990 : C$=DSC HEX(00) : IF C$<>HEX(129876)THEN 8990 0320 C$=HEX(123456)ADDBIN(1)OR HEX(81)ADDCALL(FF)XOR HEX(F00F)SUBCHEX(123456)D AC HEX(1234)DSC ALL(99)AND "A94" : IF C$<>HEX(411934)THEN 8990 8980 I=SPACE : IF I=STHEN 9000 8990 E(14)=E(14)+1 9000 PRINT AT(14,16,16); : IF E(14)=0THEN PRINT "OK"; : ELSE PRINT E(14);"ERRORS;" 9010 LOAD DC T"BDIAG15 "