image of READY prompt

Wang2200.org

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 "