Listing of file='DADIAG12' on disk='vmedia/732-0050A.wvd.zip'
# Sector 858, program filename = 'DADIAG12' 0020 PRINT AT(P1,00);"18YZ........... <-- TESTING", 0030 X=SPACE 0050 DIM C$(3)90 0090 B$=ALL(00) : I=1 0100 $GIO(A600119611A719101800A600,B$)STR(C$(),,1+VAL(B$)) : IF VAL(STR(B$,6,2),2)<>ITHEN E=1 : I=I+1 : IF VAL(STR(B$,9,2),2)<>ITHEN E=1 : IF I<255THEN 100 0140 FOR I=0TO 50 0150 B$=BIN(I,2)&ALL(00) : $GIO (A600119111A21802A600119311A41801A600119511A61800A600,B$)STR(C$(),,1 +VAL(B$,2));STR(C$(),,2+VAL(B$,2));STR(C$(),,3+VAL(B$,2)) 0160 IF VAL(B$,2)<>1+IOR VAL(STR(B$,3),2)<>4+IOR VAL(STR(B$,5),2)<>3+IOR VAL(S TR(B$,9),2)<>2+ITHEN E=1 : 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$