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)