Listing of file='DDA.OPEN' on disk='vmedia/701-2720C.wvd.zip'
# Sector 581, program filename = 'DDA.OPEN' 7050 %DDA.141, RELEASE X01, (AUG 03, 81) OPEN FILES 7054 DEFFN'141(K1$(),N0,N1$) : M=0 : N1=INT((LEN(K1$())-1)/8)+1 : MAT N=ZER : MAT N0=ZER : MAT N1=ZER : MAT N2=ZER : MAT N3=ZER : N0$(),N1$(),N2$(),N3$(),N5$(),N0$=ALL(00) : $OPEN #N0 : J=0 7066 J=J+1 : GOSUB 7090 : IF M>0THEN 7087 : IF J>1THEN 7078 : MAT SEARCHN9$,=STR(N1$,,3)TO N2$()STEP 3 : IF N2$(1)=HEX(0000)THEN 7074 : M=77 : GOTO 7087 7074 MAT SEARCHN9$,=HEX(FFFFFF)TO N2$()STEP 3 : IF N2$(1)>HEX(0000)THEN 7075 : M=79 : GOTO 7087 7075 STR(N9$,VAL(N2$(1),2),3)=N1$ : DATA SAVE DA T#N0,(N(J,3))N0(),N9$ : ERRORM=ERR : GOTO 7087 7078 N(J,1)=1 : N(J,2)=1 : GOSUB '149(N(J,3)+N0(1),N0(6),1) : IF N1(3)=0THEN GOTO 7083 : ELSE M=N1(3) : GOTO 7087 7083 MAT COPY N0$()<1,N0(6)*249>TO N5$()<(J-1)*N0(6)*249+1,N0(6)*249> : IF J<N1THEN GOTO 7066 7087 $CLOSE#N0 : RETURN 7090 LIMITS T#N0,K1$(J),N2(1),N2(2),N2(3),N2(4) : IF N2(4)=2THEN GOTO 7095 : M=71 : GOTO 7102 7095 DATA LOAD DA T#N0,(N2(1))N0(),N9$ : ERRORM=74 : GOTO 7102 7096 N1(9)=J : IF N0(9)=0THEN GOTO 7100 : M=70 : GOTO 7102 7100 N(J,3)=N2(1) : N(J,4)=N2(2) 7102 RETURN 7603 DEFFN'150(K6$()) : M=0 : IF K6$(1)=" "THEN 7646 : IF M8$="Y"THEN 7620 : N1$=STR(K9$,1,3) : M7$=STR(K9$,4,3) : IF N1$=" "OR M7$=" "THEN 7658 : SELECT #15<M7$> : K1$()=" " : K1$(1)="DD.DEF" : K1$(2)="DD.REL" : GOSUB '141(K1$(),15,N1$) : IF M<>0THEN 7660 : M8$="Y" : K7$()=" " 7620 M2=1 7621 IF K6$(M2)=" "THEN 7660 : GOSUB '157(K6$(M2)) : IF M1=0THEN 7649 : IF M=0THEN 7639 : M=0 : N0$=" " : STR(N0$,1,2)=K6$(M2) : IF STR(K6$(M2),2,1)=" "THEN K7(7)=1 : ELSE K7(7)=2 : GOSUB '143(N0$,"EQ",K7(7)) : IF M<>0THEN 7652 : K8$()=" " : GOSUB '144(K7(7)) : IF M<>0THEN 7655 : STR(K7$(M1),1,2)=K6$(M2) : IF STR(K6$(M2),2,1)=" "THEN J1=24 : ELSE J1=45 7637 STR(K7$(M1),3,7)=STR(K8$(),J1,7) 7639 N0$=" " : STR(K7$(M1),10,44)=N0$ : IF STR(K6$(M2),2,1)=" "THEN GOSUB '159 : M2=M2+1 : IF M2<17THEN 7621 : GOTO 7660 7646 M=40 : GOTO 7660 7649 M=41 : GOTO 7660 7652 M=42 : GOTO 7660 7655 M=44 : GOTO 7660 7658 M=43 : GOTO 7660 7660 K8$()=" " : RETURN