Listing of file='LPINTER1' on disk='vmedia/701-2721C.wvd.zip'
# Sector 336, program filename = 'LPINTER1'
0100 REM % IDEAS - WPFM INTERFACE MODULE ONE **LPINTER1**
0510 COM V0,U0,U0,U4$4,V5,U0(23),U0$3,U3$1,V2,V9(9),U8,R1$1
: COM V5$(160)1,V6(9),U7,V9,U5(10),U6
: COM U1$(8),U2$(16),B9$,R5$5,V3,L0$(7)20
: DIM A7$(13)6,A6$(4)25,A0(5)
: DIM X$16,V0$(246)1,X1$4
: DIM V4$1,V1$(3)82,Z6$
: A7$()=ALL(HEX(30))
: A7$(12)=HEX(000000000000)
: GOSUB '246(1)
: PRINT AT(21,0,)
0660 PRINT AT(23,0);HEX(0E);"Creating Document for Selected Records";HEX(0F);
: GOSUB '41(1)
: GOSUB '211(L0$(3),B9$,B4$,HEX(FF))
: IF R1$<>HEX(00)THEN GOTO 1000
: L8(2)=V3
: V1$()=HEX(00010002000000000000000000000003)&ALL(FF)
: V4$="P"
: GOSUB '225(L8(2),1,1,1)
: IF R1$<>HEX(00)THEN GOTO 1000
0750 A0(3)=8
: A6$(1)=R5$&" SELECTED RECORDS"
: A6$(2)="DATAMERGE"
: A7$(1)=STR(L0$(3),12,4)&STR(L0$(3),10,1)
: $PACK(F=HEX(A019A0066006))V1$()FROMA6$(),A7$(),A0()
: V4$="A"
: GOSUB '225(L8(2),1,1,1)
: IF R1$<>HEX(00)THEN GOTO 1000
0850 A0$()=ALL(HEX(00))
: STR(A0$(),1,25)=R5$&" SELECTED RECORDS"
: STR(A0$(),26,25)="DATAMERGE"
: STR(A0$(),101,5)=ALL(20)
: GOSUB '235(L8(2),A0$())
: IF R1$<>HEX(00)THEN GOTO 1000
: LOAD T"LPOVER08"
1000 IF R1$=HEX(01)THEN GOTO 1040
: L0$=BIN(9)
: STR(L0$,2)="Created"
: LOAD T"LPERROR"
1040 L0$=BIN(11)
: GOSUB '214(L8(2))
: STR(L0$,2)=B9$
: LOAD T"LPERROR"
9000 DEFFN'0"SCRATCH T ";HEX(22);"LPINTER1";HEX(22);HEX(3A);"SAVE T () ";HEX(2
2);"LPINTER1";HEX(22)