image of READY prompt

Wang2200.org

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 "