Listing of file='DDA.FIND' on disk='vmedia/701-2720C.wvd.zip'
# Sector 539, program filename = 'DDA.FIND' 7665 DEFFN'151(M$,M1$,M2$,M3$,M4$,M5$,M6$) 7666 M=0 : MAT SEARCH"EQGEGTLELT",=STR(M$,,2)TO J1$STEP 2 : IF VAL(J1$,2)=0THEN 7695 : M9$=M1$&M4$ : GOSUB '157(M9$) : IF M<>0THEN 7698 : IF M2$<>" "THEN 7674 : IF M4$<>" "THEN 7701 : ELSE IF M$<>"GT"THEN 7704 7674 IF M4$<>" "AND M5$=" "AND M$<>"GT"THEN 7704 : GOSUB '158 : GOSUB '143(N0$,M$,K7(7)) : IF M=75THEN 7707 : IF M<>0THEN 7709 : IF STR(N0$,1,2)<>M9$THEN 7707 : IF STR(N0$,3,K7(5)-2)=" "THEN 7707 : IF M4$<>" "THEN 7687 : M2$=STR(N0$,3,K7(1)) : IF K7(2)>0THEN M3$=STR(N0$,3+K7(1),K7(2)) : M5$=" " : M6$=" " : GOTO 7691 7687 IF STR(N0$,3,K7(1))<>M2$THEN 7707 : IF K7(2)>0AND STR(N0$,3+K7(1),K7(2))<>M3$THEN 7707 : 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)) 7691 STR(K7$(M1),10,K7(5))=N0$ : IF M4$=" "THEN GOSUB '159 : GOTO 7709 7695 M=54 : GOTO 7709 7698 M=56 : GOTO 7709 7701 M=57 : GOTO 7709 7704 M=55 : GOTO 7709 7707 M=64 : GOTO 7709 7709 RETURN