Listing of file='DADIAG05' on disk='vmedia/mvp-diag-3.5.wvd.zip'
# 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$