Listing of file='DDA.144' on disk='vmedia/701-2720C.wvd.zip'
# Sector 489, program filename = 'DDA.144' 7388 %DDA.144, RELEASE X01, (AUG 3, 81) READ A RECORD 7392 DEFFN'144(N3) : M=0 : IF N(N3,1)=0OR N(N3,2)=0THEN M=61 : IF N(N3,3)=0THEN M=78 : IF M>0THEN 7408 : N1$()=ALL(00) : M=62 : 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 7408 : GOSUB '149(N(N3,3)+N0(7),N0(10),N1(6)) 7403 IF N1(3)=0THEN GOTO 7404 : ELSE M=N1(3) : GOTO 7408 7404 N1(2)=VAL(STR(N0$(),N1(5)),2) : IF N1(2)=0THEN 7408 : MAT COPY N0$()<N1(5)+2,N1(2)>TO K8$() : M=0 7408 RETURN