Listing of file='LPREOPEN' on disk='vmedia/701-2721C.wvd.zip'
# Sector 537, program filename = 'LPREOPEN' 0010 COM K8$(480)1 0690 K6$()="2 28" : GOSUB '150(K6$()) : IF M<>0THEN GOSUB '74(0,"LPREOPEN","Opening") : A0$()="LPIDEAS2"&"Prime 62"&"LPREADFD" : LOAD T"LPDDREAD" 2000 DEFFN'74(M4,L0$(3),L0$(4)) : LOAD T"DDA.DAT"7000,7999BEG 2030 2030 GOSUB '140(1,"160") : LOAD T<R9>R9$()7050,7999BEG 2050 2050 GOSUB '160(M4,L0$(3),L0$(4)) : COM CLEAR A0$() : LOAD TR3$(2) 9000 DEFFN'0"SCRATCH T ";HEX(22);"LPREOPEN";HEX(22) 9100 DEFFN'1"SAVE T() ";HEX(22);"LPREOPEN";HEX(22)