Listing of file='LPIDEAS2' on disk='vmedia/701-2721C.wvd.zip'
# Sector 280, program filename = 'LPIDEAS2'
0100 REM %LIST PROCESSING IDEAS2 MODULE
0160 DATA 4,0,0,"Create DATAMERGE Definition"
: DATA 4,09,20,"Please Enter a Document ID"
: DATA 4,11,20," Enter Data File Name"
: DATA 4,13,20," Enter a Glossary ID "
: DATA 4,21,50,"Press EXEC/RUN to Continue"
: DATA 4,22,50," CANCEL/EDIT to Terminate"
0210 DATA 2,09,49,5," "
: DATA 2,11,49,8," "
: DATA 2,13,49,5," "
: DATA 0
: COM L3,L4,L5,L1$6,L0$(7)20
: COM L3$(L3)L6
: COM A0$(4)62,B3,A5$8,B9$,B4$6,R5$5
: DIM S5(1),S0(1),T5(1),S3(1),T1$(1)1,S1$(1)2
: DIM T1(6),S6(6),S1(6),T2$(6)30
: DIM T2(3),S7(3),S2(3),S4(3),T5$(3)8
: DIM S2$(18)2,S1$3
0310 DIM S2$1,T1$80,T2$2,F$80
: F$=" "
: GOSUB '61
: T5$(1)=R5$
: T5$(2)=L0$(1)
: T5$(3)=B3$
: PRINT AT(1,0);BOX(0,80);AT(20,0);BOX(0,80)
0370 GOSUB '62
: IF T5<=0THEN 620
: IF T5>1THEN 370
: L0$(1)=T5$(2)
: GOSUB '151("EQ","2",L0$(1)," "," "," "," ")
: IF M=0THEN GOTO 470
: ELSE IF M=55THEN GOTO 465
: ELSE IF M<>52THEN GOSUB '74(1,"LPIDEAS2","Finding")
: F$=L0$(1)&" File Definition Does Not Exist"
: GOTO 580
0465 F$="Invalid File Definition Name"
: GOTO 580
0470 PRINT AT(21,0,)
: PRINT AT(23,0);HEX(0E);"Retrieving Field Information";HEX(0F);
: GOSUB '72(L0$(1))
: GOSUB '156(K6$())
: IF M<>0THEN GOSUB '74(0,"LPIDEAS2","Closing")
: COM CLEAR K8$()
: R5$=T5$(1)
: B3$=T5$(3)
: A0$()="LPOPEN "&"609Open "&"JCATSMAL"&"Prime 62"
: LOAD T<4>A0$()
0580 PRINT AT(23,0,40);L1$;F$;HEX(0F);
: F$=" "
: GOTO 370
0620 COM CLEAR K8$()
: GOSUB '156(K6$())
: IF M<>0THEN GOSUB '74(0,"LPIDEAS1","Closing")
: A0$()="LPSCREN1"&"Prime 62"
: LOAD T"LPDDOPEN"
9000 DEFFN'0"SCRATCH T ";HEX(22);"LPIDEAS2";HEX(22)
9100 DEFFN'1"SAVE T ()";HEX(22);"LPIDEAS2";HEX(22)