image of READY prompt

Wang2200.org

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)