Listing of file='LPWPOPEN' on disk='vmedia/701-2721C.wvd.zip'
# Sector 598, program filename = 'LPWPOPEN'
0100 REM % ***LPWPOPEN***
0140 COM A5,C1$1,A1,R5$5,A5$8,C9
: COM L0$(7)20,R1,R2$6,R3$(10)9,R4$3,R7$23,L0$21
: COM L8(5),L0(5),L6,G6,L4,G5
: COM U1$(8),U2$(8)4,B2$80
: COM G3$(50)43
: DIM S5,T1(4),S6(4),S1(4),T2$(4)32
: DIM S6,T2(1),S7(1),S2(1),S4(1),T5$(1)1
: DIM S4,S5(1),S0(1),T5(1),T1$(3)51,S3(1)
0210 DIM S1$1,S2$1,S1$(3)2,S2$(1)2,T1$80,T2$2
0220 DATA 4,0,0,"DATAMERGE Print Options"
: DATA 4,8,10,"Please Select the Next Operation"
: DATA 1,10,16,1,"Preview and/or Print the Documents Merged with Data"
: DATA "Edit the Selected Records Prior to Document Merging"
0260 DATA "Individually Edit Each Merged Document Before Print"
: DATA "\DE"
: DATA 4,21,50,"Press EXEC/RUN to Continue"
: DATA 4,22,50,"Press CANCEL/EDIT to Terminate"
: DATA 0
: DATA 4,0,0,"DATAMERGE Print Options"
: DATA 1,16,30,1,"Immediate Print"
: DATA "Queue Print Request"
: DATA "\DE"
0305 DATA 4,21,50,"Press EXEC/RUN to Continue"
: DATA 4,22,50,"Press CANCEL/EDIT to Return "
: DATA 0
: A5=1
: C1$="L"
: IF L0(3)=2THEN GOTO 530
: CONVERT #TERMTO I1$,(##)
: I2$="INTFIL"&I1$
: LIMITS TI2$,L8(5),I2,I3
: ERRORI2=ERR
: GOTO 1020
0360 DATA LOAD DA T(L8(5))L8(),L0()
: DATA LOAD DA T(L8(5)+1)L0$()
: DATA LOAD DA T(L8(5)+2)G3$(),R1,R2$,R4$,R7$,G6,L4,G5
: IF B3$=" "THEN GOTO 442
: GOSUB '110(B3$,"G")
: IF B2$<>" "THEN GOSUB '99(12,B3$)
: GOSUB '111(B0$,B9$," ",HEX(01))
: IF B2$<>" "THEN GOSUB '99(12,B3$)
: A4=V3
0442 GOSUB '211(L0$(3),B9$,B4$,HEX(FF))
: IF R1$<>HEX(00)THEN GOSUB '99(9,"Opened")
: L8(2)=V3
: GOSUB '110(R5$," ")
: IF B2$<>" "THEN GOSUB '99(12,R5$)
: GOSUB '111(B0$,B9$,B4$,HEX(01))
: IF B2$<>" "THEN GOSUB '99(12,R5$)
: A1=V3
0530 PRINT HEX(03)
0540 GOSUB '61
: PRINT AT(1,0);BOX(0,80);AT(20,0);BOX(0,80)
0560 GOSUB '62
: IF T5<=0THEN GOTO 890
: ELSE IF T5>1THEN GOTO 560
: PRINT AT(17,0,)
: ON T5(1)GOTO 700,650,610
0610 IF L0$(4)=" "THEN GOTO 619
: L8(3)=A1
: COM CLEAR C1$
: GOSUB '100(2)
: LOAD T"LPEDTCOM"
0619 A0$()="LPFILEID"&"JCATSMAL"&"LPMERG01"&"RECMGR"
: GOSUB '100(2)
: LOAD T<4>A0$()
0650 COM CLEAR C1$
: GOSUB '100(1)
: LOAD T"LPEDTCOM"
0700 GOSUB '61
0705 GOSUB '62
: IF T5<=0THEN GOTO 790
: ELSE IF T5>1THEN GOTO 705
: C9=T5(1)-1
: COM CLEAR G3$()
: ON T5(1)GOTO 780,785
0780 A5$="LPOVER04"
: LOAD T"609PR002"
0785 A0$()="LPBAKDAT"&"RECMGR"
: LOAD T<2>A0$()
0790 RESTORE LINE220
: PRINT AT(16,0,180);
: GOTO 540
0810 DEFFN'99(S5,E1$)
: L0$=BIN(S5)
: STR(L0$,2)=E1$
: IF S5=9OR S5=13THEN GOSUB '212(A1)
: A5$="START"
: RETURN CLEAR
0870 LOAD T"LPERROR"
0890 A0$()="609Close"&"JCAT"
: PRINT AT(21,0,);
: COM CLEAR U1$()
: A5$="LPOVER02"
: LOAD T<2>A0$()
0950 DEFFN'100(J)
: GOSUB '32("LPEDTCLR")
: L8(4)=J
: DATA SAVE DA T(L8(5))L8(),L0()
: RETURN
1020 PRINT AT(21,0,);"DISK HARDWARE ERROR";I2;
: STOP
9000 DEFFN'0"SCRATCH T ";HEX(22);"LPWPOPEN";HEX(22)
9010 DEFFN'1"SAVE T () ";HEX(22);"LPWPOPEN";HEX(22)
9230 DEFFN'32(N$)
: Y=FIX((LEN(N$)-1)/9)+1
: X=LEN(STR(R3$()))-Y*9
: MAT COPY -R3$()<1,X>TO -R3$()<Y*9+1,X>
: STR(R3$(),,Y*9)=N$
: RETURN
9290 % SCRATCH T "KGPUSH": SAVE T() "KGPUSH" 9000,9100