image of READY prompt

Wang2200.org

Listing of file='DADIAG12' on disk='vmedia/mvp-diag-2.6.2.wvd.zip'

# Sector 3108, program filename = 'DADIAG12'
0020 PRINT AT(P1,00);"18YZ........... <-- TESTING",
0030 X=SPACE
0050 DIM C$(3)90
0090 B$=ALL(00)
   : I=1
0100 $GIO(A600119611A719101800A600,B$)STR(C$(),,1+VAL(B$))
   : IF VAL(STR(B$,6,2),2)<>ITHEN E=1
   : I=I+1
   : IF VAL(STR(B$,9,2),2)<>ITHEN E=1
   : IF I<255THEN 100
0140 FOR I=0TO 50
0150 B$=BIN(I,2)&ALL(00)
   : $GIO (A600119111A21802A600119311A41801A600119511A61800A600,B$)STR(C$(),,1
     +VAL(B$,2));STR(C$(),,2+VAL(B$,2));STR(C$(),,3+VAL(B$,2))
0160 IF VAL(B$,2)<>1+IOR VAL(STR(B$,3),2)<>4+IOR VAL(STR(B$,5),2)<>3+IOR VAL(S
     TR(B$,9),2)<>2+ITHEN E=1
   : NEXT I
9000 Z=SPACE
   : IF X<>ZTHEN E=1
9010 IF E<>0THEN E(P1)=E(P1)+1
9020 PRINT AT(P1,16,16);
   : IF E(P1)=0THEN PRINT "OK"
   : ELSE PRINT E(P1);"ERRORS"
9030 P1=P1+1
   : IF P1>P9THEN P1=0
   : CONVERT P1TO STR(P$,7,2),(##)
   : LOAD DC TP$