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