image of READY prompt

Wang2200.org

Listing of file='LPDDREAD' on disk='vmedia/701-2721C.wvd.zip'

# Sector 147, program filename = 'LPDDREAD'
1000 REM %  LOAD DDA ROUTINES - FIND/READ/CLOSE
1010 LOAD T"DDA.DAT"7000,8999BEG 1020
1020 GOSUB '140(4,"151152156")
   : R9=R9+LEN(A0$())/8+1
   : A0$()=A0$()&"DDA.VARC"&R9$()
   : LOAD T<R9>A0$()
9000 DEFFN'0"SCRATCH T";HEX(22);"LPDDREAD";HEX(22);
9100 DEFFN'1"SAVE T ()";HEX(22);"LPDDREAD";HEX(22);