Listing of file='DADIAG02' on disk='vmedia/mvp-diag-3.5.wvd.zip'
# Sector 709, program filename = 'DADIAG02' 0020 PRINT AT(P1,00);"111Z........... <-- TESTING", 0030 X=SPACE 0070 DIM A1$2,B$15,B9$15,C$(4)64,Z3$3 : INIT(00)Z3$ 0080 X$="234567B9AXCDEFY" 0100 FOR I=1TO 7 : GOSUB 110 : NEXT I : FOR I=11TO 15 : GOSUB 110 : NEXT I : GOTO 150 0110 FOR J=1TO 15 : A1$=BIN(4352+16*I+J,2) 0120 INIT(AA)B$ : STR(B$,I,1)=HEX(55) : B9$=B$ : $GIO (A1$,B$) : STR(B9$,8,3)=HEX(000000) : STR(B9$,J,1)=HEX(55) : IF B$<>B9$THEN E=1 : NEXT J 0130 PRINT AT(P1,2);STR(X$,I,1);AT(P1,32); : RETURN 0150 FOR I=8TO 10 0210 FOR J=1TO 15 : A1$=BIN(4352+16*I+J,2) 0220 INIT(AA)B$ : STR(B$,I,1)=HEX(55) : B9$=B$ : $GIO (A1$,B$) : STR(B9$,8,3)=HEX(000000) : STR(B9$,J,1)=HEX(00) : IF B$<>B9$THEN E=1 : NEXT J 0230 PRINT AT(P1,2);STR(X$,I,1);AT(P1,32); : 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$