image of READY prompt

Wang2200.org

Listing of file='BDIAG23' on disk='vmedia/732-0050A.wvd.zip'

# Sector 663, program filename = 'BDIAG23'
0020 PRINT AT(08,32);"INIT........... <-- TESTING",
0080 S=SPACE
0090 DIM B$1,C$124,D$16,E$(1,1)1,F$(10,12)4
0100 FOR I=0TO 255
   : A$=BIN(I)
   : INIT(A$)B$,C$,D$,E$(),F$()
   : IF POS(B$<>A$)<>0OR POS(C$<>A$)<>0OR POS(D$<>A$)<>0OR POS(E$()<>A$)<>0OR
     POS(F$()<>A$)<>0THEN 8990
   : NEXT I
0110 FOR I=2TO 15
   : D$,E$=ALL(00)
   : INIT("A")STR(D$,2,I)
   : STR(E$,2,I)=ALL("A")
   : IF D$<>E$THEN 8990
   : NEXT I
0120 INIT(HEX(0D))D$
   : IF POS(D$<>HEX(0D))<>0THEN 8990
0130 INIT(5A)C$
   : IF POS(C$<>HEX(5A))<>0THEN 8990
8980 I=SPACE
   : IF I=STHEN 9000
8990 E(23)=E(23)+1
9000 PRINT AT(08,48,16);
   : IF E(23)=0THEN PRINT "OK";
   : ELSE PRINT E(23);"ERRORS"
9010 LOAD DC T"BDIAG24 "