Listing of file='DDA.READ' on disk='vmedia/701-2720C.wvd.zip'
# Sector 590, program filename = 'DDA.READ' 7713 DEFFN'152(M$,M1$,M4$,M2$,M3$,M5$,M6$) 7714 M=0 : MAT SEARCH"CRKYNXPV",=STR(M$,,2)TO J1$STEP 2 : IF VAL(J1$,2)=0THEN 7758 : M9$=M1$&M4$ : GOSUB '157(M9$) : IF M<>0THEN 7761 : IF M$<>"KY"THEN 7728 : IF M2$=" "AND M4$=" "THEN 7767 : IF M2$=" "AND M4$<>" "THEN 7764 : IF M4$<>" "AND M5$=" "THEN 7767 : GOSUB '158 : GOSUB '143(N0$,"EQ",K7(7)) : IF M<>0THEN 7775 : GOTO 7748 7728 N0$=" " : N0$=STR(K7$(M1),10,K7(5)) : IF M4$<>" "THEN 7734 : IF STR(N0$,3,K7(1))=" "AND M$<>"NX"THEN 7767 : IF N0$=" "THEN N0$=M1$ : GOTO 7736 7734 IF STR(N0$,3,K7(1))=" "THEN 7770 : IF STR(N0$,3+K7(1)+K7(2),K7(3))=" "AND M$<>"NX"THEN 7767 7736 IF M$="NX"THEN M$="GT" : ELSE IF M$="PV"THEN M$="LT" : ELSE M$="EQ" : GOSUB '143(N0$,M$,K7(7)) : IF M=75THEN 7773 : IF M<>0THEN 7775 : IF STR(N0$,1,2)<>M9$THEN 7773 : IF STR(N0$,3,K7(5)-2)=" "THEN 7773 : IF M4$<>" "AND STR(N0$,3,K7(1)+K7(2))<>STR(K7$(M1),12,K7(1)+K7(2))THEN 77 73 : M2$=STR(N0$,3,K7(1)) : IF K7(2)>0THEN M3$=STR(N0$,3+K7(1),K7(2)) : ELSE M3$=" " 7745 IF M4$=" "THEN 7748 : M5$=STR(N0$,3+K7(1)+K7(2),K7(3)) : IF K7(4)>0THEN M6$=STR(N0$,3+K7(1)+K7(2)+K7(3),K7(4)) : ELSE M6$=" " 7748 STR(K7$(M1),10,K7(5))=N0$ : IF M4$=" "THEN GOSUB '159 : K8$()=" " : GOSUB '144(K7(7)) : IF M<>0THEN 7775 : IF K7(6)-K7(5)<=0THEN 7775 : STR(K8$(),1,K7(6)-K7(5))=STR(K8$(),K7(5)+1,K7(6)-K7(5)) : STR(K8$(),K7(6)-K7(5)+1,K7(5))=" " : GOTO 7775 7758 M=54 : GOTO 7775 7761 M=56 : GOTO 7775 7764 M=57 : GOTO 7775 7767 M=55 : GOTO 7775 7770 M=63 : GOTO 7775 7773 M=64 : GOTO 7775 7775 RETURN