image of READY prompt

Wang2200.org

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

# Sector 2710, program filename = 'DADIAG07'
0020 PRINT AT(P1,00);"19Y0........... <-- TESTING",
0030 X=SPACE
0070 DIM A1$6,B$15,B9$15,C$(4)64,Z3$3,B$(4)15,C$1
   : INIT(00)Z3$
0080 X$="0123456789ABCDEF"
0085 DIM J$30,I$15
0090 A1$=HEX(1900)
0100 FOR I=0TO 7
   : RESTORE
0105 PRINT AT(P1,3);STR(X$,I+1,1);AT(P1,32);
0108 READ J$
   : IF J$="END"THEN 145
   : HEXPACKI$FROMJ$
0110 FOR Q=1TO 14
   : STR(A1$,2,1)=BIN(16*Q+I)
0140 B9$,B$=I$
   : STR(B9$,8,3)=HEX(000000)
   : $GIO (A1$,B$)
   : ON I+1GOSUB 150,155,160,165,170,175,180,185
   : IF B$<>B9$THEN E=1
   : NEXT Q
   : GOTO 108
0145 NEXT I
   : GOTO 6000
0150 STR(B9$,Q,1)=ADDCHEX(01)
   : RETURN
0155 STR(B9$,Q,1)=ADDCHEX(02)
   : RETURN
0160 STR(B9$,Q,1)=SUBCHEX(02)
   : RETURN
0165 STR(B9$,Q,1)=SUBCHEX(01)
   : RETURN
0170 STR(B9$,Q,2)=ADDCHEX(01)
   : RETURN
0175 STR(B9$,Q,2)=ADDCHEX(02)
   : RETURN
0180 STR(B9$,Q,2)=SUBCHEX(02)
   : RETURN
0185 STR(B9$,Q,2)=SUBCHEX(01)
   : RETURN
0300 DATA "000000000000000000000000000000","040404040404040404040404040404","F
     FFFFFFFFFFFFFFFFFFFFFFFFFFFFF","00FF00FF00FF00FF00FF00FF00FF00"
0320 DATA "123456789ABCDEF0123456789ABCDE","AA55AA55AA55AA55AA55AA55AA55AA"
0330 DATA "FEFEFEFEFEFEFEFEFEFEFEFEFEFEFE","020202020202020202020202020202","0
     10101010101010101010101010101","01FF01FF01FF01FF01FF01FF01FF01"
0400 DATA "END"
6000 PRINT AT(P1,3);"Z";
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$