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 "