Listing of file='DDA.MOD' on disk='vmedia/701-2720C.wvd.zip'
# Sector 574, program filename = 'DDA.MOD'
7438 %DDA.145, RELEASE X01, (AUG 3, 81) REWRITE A RECORD
7442 DEFFN'145(N3)
: $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)=0OR N1(6)=0THEN 7457
: GOSUB '149(N(N3,3)+N0(7),N0(10),N1(6))
: IF N1(3)=0THEN GOTO 7451
: ELSE M=N1(3)
: GOTO 7457
7451 N1(2)=VAL(STR(N0$(),N1(5)),2)
: IF N1(2)=0THEN 7457
: MAT COPY K8$()TO N0$()<N1(5)+2,N1(2)>
: GOSUB '148(N(N3,3)+N0(7),N0(10),N1(6))
7457 $CLOSE#N0
: RETURN
7813 DEFFN'154(K8$(),M1$,M4$)
: M=0
: M9$=M1$&M4$
: GOSUB '157(M9$)
: IF M<>0THEN 7830
: N0$=" "
: N0$=STR(K7$(M1),10,K7(5))
: IF STR(N0$,3,K7(1))=" "THEN 7833
: IF M4$<>" "AND STR(N0$,3+K7(1)+K7(2),K7(3))=" "THEN 7833
: IF LEN(K8$())>K7(6)-K7(5)THEN 7836
: GOSUB '143(N0$,"EQ",K7(7))
: IF M<>0THEN 7838
7825 IF K8$()<>" "THEN MAT COPY -K8$()<1,K7(6)-K7(5)>TO -K8$()<K7(5)+1,K7(6)-K
7(5)>
: STR(K8$(),1,K7(5))=N0$
: GOSUB '145(K7(7))
: GOTO 7838
7830 M=56
: GOTO 7838
7833 M=63
: GOTO 7838
7836 M=65
: GOTO 7838
7838 RETURN