Listing of file='DDA.DEL ' on disk='vmedia/701-2720C.wvd.zip'
# Sector 527, program filename = 'DDA.DEL' 7410 %DDA.146, RELEASE X01, (AUG 3, 81) DELETE A RECORD 7414 DEFFN'146(N0$,N3) : GOSUB '143(N0$,"EQ",N3) : IF M>0THEN GOTO 7436 : $OPEN #N0 : M=0 : MAT COPY N5$()<(N3-1)*(249*N0(6))+N(N3,2),N0(5)>TO N1$(2) : N1(6)=VAL(STR(N1$(2),N0(5)-3),2) : N1(5)=VAL(STR(N1$(2),N0(5)-1),2) : IF N1(5)<>0AND N1(6)<>0THEN 7423 : M=62 : GOTO 7436 7423 GOSUB '149(N(N3,3)+N0(7),N0(10),N1(6)) : IF N1(3)=0THEN GOTO 7425 : ELSE M=N1(3) : GOTO 7436 7425 N1(2)=VAL(STR(N0$(),N1(5)),2) : IF N1(2)=0THEN 7436 : STR(N0$(),N1(5)+2,N1(2))=ALL(00) : GOSUB '148(N(N3,3)+N0(7),N0(10),N1(6)) : STR(N5$(),(N3-1)*(249*N0(6))+N(N3,2)+N0(5)-4,4)=ALL(FF) : MAT COPY N5$()<(N3-1)*249*N0(6)+1,N0(6)*249>TO N0$()<1,N0(6)*249> : GOSUB '148(N(N3,3)+N0(1),N0(6),N(N3,1)) 7436 $CLOSE#N0 : RETURN 7842 DEFFN'155(M1$,M2$,M3$,M4$,M5$,M6$) : M=0 : M9$=M1$&M4$ : GOSUB '157(M9$) : IF M<>0THEN 7853 : IF M2$=" "THEN 7856 : IF M4$<>" "AND M5$=" "THEN 7856 : GOSUB '158 : GOSUB '146(N0$,K7(7)) : GOTO 7858 7853 M=56 : GOTO 7858 7856 M=57 : GOTO 7858 7858 RETURN