Listing of file='LPOPEN' on disk='vmedia/701-2721C.wvd.zip'
# Sector 413, program filename = 'LPOPEN' 0100 REM %LIST PROCESSING OPEN DOCUMENT MODULE 0860 DATA 4,0,0," " : DATA 4,18,20,"Please Enter Document Password" : DATA 5,18,52,6," " : DATA 4,21,50,"Press EXEC/RUN to Continue" : DATA 4,22,50," CANCEL/EDIT to Terminate" : DATA 0 : COM V0,U0,U4$4,V5,U0(23),U0$3,U3$1,V2,V9(9),U8,R1$1 : COM V3,V5$(160)1,V6(9),U7,V9,U4,U5(10),U6 0970 COM B2$80,U1$(8),U2$(16),F0$,A1,A4 : DIM S5(1),S0(1),T5(1),S3(1),T1$(1)1,S1$(1)2 : DIM T1(4),S6(4),S1(4),T2$(4)30 : DIM T2(1),S7(1),S2(1),S4(1),T5$(1)8 : DIM S2$(8)2,S1$1 : DIM S2$1,T1$80,T2$2 : V5=127 : U0(5)=32 : U4$="0000" : U4,U5(4),U5(6),U0(2),U0(18)=-1 : U0(23)=1 : IF B3$=" "THEN GOTO 1800 1520 GOSUB '110(B3$,"G") : IF B2$<>" "THEN GOTO 2050 : GOSUB '111(B0$,B9$," ",HEX(01)) : IF B2$<>" "THEN GOTO 2050 : A4=V3 1800 GOSUB '110(R5$," ") : IF B2$<>" "THEN GOTO 2050 : GOSUB '111(B0$,B9$,B4$,HEX(01)) : IF R1$=HEX(05)THEN GOTO 2260 : ELSE IF B2$<>" "THEN GOTO 2050 : A1=V3 : LOAD T"LPOVER09" 2050 PRINT AT(23,0,40);L1$;B2$;HEX(0F); : B2$=" " : GOSUB '212(A1) : GOSUB '212(A4) 2100 IF L0(5)=2THEN GOTO 2140 : A0$()="LPIDEAS1"&"Prime 62"&"LPCTLID1" : COM CLEAR V0 : LOAD T<3>A0$() 2140 A0$()="LPREOPEN" : COM CLEAR V0 : LOAD T"LPDDOPEN" 2200 PRINT AT(17,0,); : GOTO 2100 2260 RESTORE LINE860 : GOSUB '61 : PRINT AT(23,0,);HEX(07); 2275 GOSUB '62 : IF T5<=0THEN GOTO 2200 : IF T5>1THEN 2275 : PRINT AT(17,0,); : B4$=T5$(1) : GOTO 1800 9000 DEFFN'0"SCRATCH T ";HEX(22);"LPOPEN ";HEX(22) 9100 DEFFN'1"SAVE T ()";HEX(22);"LPOPEN ";HEX(22)