Listing of file='BDIAG25' on disk='vmedia/mvp-diag-3.5.wvd.zip'
# Sector 320, program filename = 'BDIAG25' 0020 PRINT AT(10,32);"ADD,BIN........ <-- TESTING", 0080 S=SPACE 0090 DIM A$1,B$2,C$3 0100 A$=HEX(FF) : FOR I=0TO 255 : ADD(A$,01) : IF VAL(A$)<>ITHEN 8990 : NEXT I 0110 B$=HEX(FF87) : FOR I=0TO 65535STEP 121 : ADDC(B$,79) : IF VAL(B$,2)<>ITHEN 8990 : NEXT I 0120 C$=ALL(FF) : B$=HEX(1234) : ADD(C$,B$) : IF C$<>HEX(FF1133)THEN 8990 0130 C$=ALL(FF) : B$=HEX(1234) : ADDC(C$,B$) : IF C$<>HEX(001233)THEN 8990 0210 B$=HEX(00) : FOR I=0TO 255 : BIN(A$)=I : IF A$<>STR(B$,,1)THEN 8990 : ADD(STR(B$,,1),01) : NEXT I 0220 C$=ALL(00) : BIN(STR(C$,2))=255 : IF C$<>HEX(00FF00)THEN 8990 8980 I=SPACE : IF I=STHEN 9000 8990 E(25)=E(25)+1 9000 PRINT AT(10,48,16); : IF E(25)=0THEN PRINT "OK"; : ELSE PRINT E(25);"ERRORS" 9010 LOAD DC T"BDIAG26 "