Listing of file='BDIAG14' on disk='vmedia/mvp-diag-3.5.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 "