Listing of file='DDA.145' on disk='vmedia/701-2720C.wvd.zip'
# Sector 494, program filename = 'DDA.145' 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