Listing of file='DADIAG04' on disk='vmedia/mvp-diag-2.6.2.wvd.zip'
# Sector 2781, program filename = 'DADIAG04' 0020 PRINT AT(P1,00);"151Z........... <-- TESTING", 0030 X=SPACE 0070 DIM A1$4,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 : A1$=HEX(150001FF) 0105 PRINT AT(P1,2);STR(X$,I,1);AT(P1,32); 0110 FOR J=1TO 15 : STR(A1$,2,1)=BIN(16*I+J) 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) : ELSE STR(B9$,1,1)=HEX(FF) : 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$