image of READY prompt

Wang2200.org

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

# Sector 853, program filename = 'DADIAG03'
0020 PRINT AT(P1,00);"141Z........... <-- TESTING",
0030 X=SPACE
0070 DIM A1$2,B$15,B9$15,C$(4)64,Z3$3,B$(4)15
   : INIT(00)Z3$
0080 X$="123456789ABCDEF"
0090 B$(1)="AAAAAAAAAAAAAAA"
   : B$(2)="ABABABABABABABA"
   : B$(3)="9876543210ABCDE"
   : B$(4)="ABCDEFGHIJKLMNO"
0100 FOR I=1TO 15
0105 PRINT AT(P1,2);STR(X$,I,1);AT(P1,32);
0110 FOR J=1TO 15
   : A1$=BIN(5120+16*I+J,2)
0120 FOR Q=1TO 4
   : B$,B9$=B$(Q)
   : $GIO (A1$,B$)
   : STR(B9$,8,3)=HEX(000000)
   : IF STR(B9$,I,1)<>STR(B9$,J,1)THEN STR(B9$,8,1)=HEX(08)
   : IF B$<>B9$THEN E=1
   : NEXT Q
   : NEXT J
0140 NEXT I
0150 PRINT AT(P1,2);"Y";
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$