Listing of file='LPIDEAS1' on disk='vmedia/701-2721C.wvd.zip'
# Sector 271, program filename = 'LPIDEAS1' 0100 REM %LIST PROCESSING IDEAS1 MODULE 0160 DATA 4,0,0,"Create DATAMERGE Definition" : DATA 4,07,20,"Please Enter the Document ID" : DATA 4,09,20," Enter IDEAS File Name" : DATA 4,11,20," Enter the Glossary ID" : DATA 4,13,21,"IDEAS Data File Address" : DATA 4,14,21,"IDEAS Control File Address" 0220 DATA 4,21,50,"Press EXEC/RUN to Continue" : DATA 4,22,50," CANCEL/EDIT to Terminate" : DATA 2,07,50,5," " : DATA 2,09,50,8," " : DATA 2,11,50,5," " : DATA 2,13,50,3," " : DATA 2,14,50,3," " : DATA 0 : COM L3,L4,L5,L1$6,L0$(7)20,L9$(4)3 : COM L3$(L3)L6 : COM A0$(4)62,B3,A5$8,B9$,B4$6,R5$5 0330 DIM S5(1),S0(1),T5(1),S3(1),T1$(1)1,S1$(1)2 : DIM T1(8),S6(8),S1(8),T2$(8)30 : DIM T2(5),S7(5),S2(5),S4(5),T5$(5)8 : DIM S2$(24)2,S1$5 : DIM S2$1,T1$80,T2$2,F$80 : F$=" " : GOSUB '61 : T5$(4)=L9$(1) : T5$(5)=L9$(2) : T5$(1)=R5$ : T5$(2)=L0$(1) : T5$(3)=B3$ : PRINT AT(1,0);BOX(0,80);AT(20,0);BOX(0,80) 0470 GOSUB '62 : IF T5<=0THEN 730 : IF T5>1THEN 470 : L9$(1)=T5$(4) : L9$(2)=T5$(5) : IF VER(L9$(),"HHHHHH")=6THEN GOTO 550 : F$="Invalid Device Address" : GOTO 690 0550 GOSUB '109(T5$(2)) : IF F$<>" "THEN 690 : SELECT #10<L9$(1)> : ERRORF$="Invalid Device Address (Data File)" : GOTO 690 0600 LIMITS T#10,L0$(1),I1,I2,I3,I4 : ERRORI4=ERR 0610 IF I4=2THEN GOTO 640 : F$="Data File Does Not Exist" : GOTO 690 0640 R5$=T5$(1) : B3$=T5$(3) : A0$()="LPOPEN "&"609Open "&"JCATSMAL"&"Prime 62" : LOAD T<4>A0$() 0690 PRINT AT(23,0,40);L1$;F$;HEX(0F); : F$=" " : GOTO 470 0730 A0$()="LPSCREN1"&"Prime 62" : LOAD T"LPDDOPEN" 9000 DEFFN'0"SCRATCH T ";HEX(22);"LPIDEAS1";HEX(22) 9100 DEFFN'1"SAVE T ()";HEX(22);"LPIDEAS1";HEX(22)