Listing of file='DDA.CLOS' on disk='vmedia/701-2720C.wvd.zip'
# Sector 515, program filename = 'DDA.CLOS' 7345 %DDA.147, RELEASE X01, (AUG 03, 81) CLOSE ALL FILES 7349 DEFFN'147 : M=0 : $OPEN #N0 : IF N(1,3)=0THEN 7362 : DATA LOAD DA T#N0,(N(01,3))N0(),N9$ : ERRORM=ERR : GOTO 7362 7355 MAT SEARCHN9$,=STR(N1$,,3)TO N2$()STEP 3 : IF N2$(1)=HEX(0000)THEN 7362 : MAT COPY N9$<VAL(N2$(1),2)+3>TO N9$<VAL(N2$(1),2)> : STR(N9$,46)=ALL(FF) : DATA SAVE DA T#N0,(N(01,3))N0(),N9$ : ERRORM=ERR 7361 MAT N=ZER 7362 $CLOSE#N0 : RETURN 7862 DEFFN'156(K6$()) : M=0 : IF K6$(1)<>"AL"THEN 7867 : K7$()=" " : GOTO 7881 7867 N0$=" " : M2=1 7869 IF K6$(M2)=" "THEN 7881 : GOSUB '157(K6$(M2)) : IF M<>0THEN 7879 : J1=M1 7873 K7$(J1)=" " : IF J1=16THEN 7879 : IF K7$(J1+1)=" "THEN 7879 : K7$(J1)=K7$(J1+1) : J1=J1+1 : GOTO 7873 7879 M2=M2+1 : IF M2<17THEN 7869 7881 IF K7$()<>" "THEN 7885 : GOSUB '147 : M8$=" " 7885 RETURN