Listing of file='BDIAG10' on disk='vmedia/mvp-diag-2.6.2.wvd.zip'
# Sector 2879, program filename = 'BDIAG10' 0020 PRINT AT(10,00);"BIN,VAL........ <-- TESTING", 0080 S=SPACE 0090 DIM A$1,B$1,C$2 0100 A$=HEX(00) 0110 FOR I=0TO 255 : IF VAL(A$)<>ITHEN 8990 : B$=BIN(I) : IF B$<>A$THEN 8990 : BIN(C$)=I : IF C$<>A$THEN 8990 : A$=ADDHEX(01) : NEXT I 0120 STR(D$,3)="A" : B$=HEX(03) : C$=HEX(01) : IF VAL(STR(D$,VAL(STR(B$,1,VAL(C$))),1))<>65THEN 8990 0200 C$=HEX(0000) : FOR I=0TO 65535STEP 29 : IF VAL(C$,2)<>ITHEN 8990 : D$=BIN(I,2) : IF D$<>C$THEN 8990 : C$=ADDCHEX(1D) : NEXT I 0210 C$=BIN(65535,2) : IF C$<>HEX(FFFF)THEN 8990 : I=VAL(C$,2) : IF I<>65535THEN 8990 8980 I=SPACE : IF I=STHEN 9000 8990 E(10)=E(10)+1 9000 PRINT AT(10,16,16); : IF E(10)=0THEN PRINT "OK" : ELSE PRINT E(10);"ERRORS" 9010 LOAD DC T"BDIAG11 "