image of READY prompt

Wang2200.org

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

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