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$