image of READY prompt

Wang2200.org

Listing of file='DADIAG05' on disk='vmedia/mvp-diag-3.5.wvd.zip'

# Sector sector 561, program filename = 'DADIAG05'
0020 PRINT AT(P1,00);"16XX........... <-- 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$="123456789ABCDEF"
0090 A$=HEX(01020408102040805A4483110044FF77)
0100 A1$=HEX(0800160001FF)
   : FOR I=0TO 255
   : STR(A1$,4,1)=BIN(I)
0105 PRINT AT(P1,2);HEXOF(STR(A1$,4,1));AT(P1,32);
0110 FOR Q=1TO 16
0120 B$,B9$=" "
   : STR(B9$,9,2)=HEX(0000)
   : STR(B9$,8,1),STR(A1$,2,1)=STR(A$,Q)
   : $GIO (A1$,B$)
   : C$=STR(B9$,8,1)XOR HEX(FF)AND STR(A1$,4,1)
   : IF C$=HEX(00)THEN STR(B9$,1,1)=HEX(FF)
   : IF B$<>B9$THEN E=1
0130 NEXT Q
0140 NEXT I
6000 PRINT AT(P1,2);"XX";
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$