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