image of READY prompt

Wang2200.org

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