Listing of file='LPSCREN1' on disk='vmedia/701-2721C.wvd.zip'
# Sector 573, program filename = 'LPSCREN1' 0010 COM K8$(480)1 0170 DATA 4,0,0,"2200 DATAMERGE - Version 2.2" : DATA 4,6,10,"Please Select the Mode of Operation" : DATA 1,08,21,1,"Create DATAMERGE Definition for an IDEAS-2 File" : DATA "Create DATAMERGE Definition for an IDEAS-1 File" : DATA "Access Previously Defined DATAMERGE Definitions" 0220 DATA "DATAMERGE General Maintenance Utility Functions" : DATA "DATAMERGE Definition File Supervisory Functions" : DATA "\DE" : DATA 4,17,10,"DATAMERGE User ID" : DATA 4,17,38,"DATAMERGE Definition Address" : DATA 4,21,50,"Press EXEC/RUN to Continue" 0280 DATA 4,22,50," CANCEL/EDIT to Terminate" : DATA 2,17,29,3," " : DATA 2,17,68,3," " : DATA 0 : DIM S5(1),S0(1),T5(1),S3(1) : DIM T1$(5)48,S1$(5)2 : DIM T1(6),S6(6),S1(6),T2$(6)39 : DIM T2(3),S7(3),S2(3),S4(3),T5$(3)20 : DIM S2$(26)2,S1$3 : DIM S2$1,T1$80,T2$2,F$80 : PRINT HEX(03) : O=1 0450 GOSUB '61 : T5$(1)=L9$(3) : T5$(2)=L9$(4) : T5(1)=O : PRINT AT(1,0);BOX(0,80);AT(20,0);BOX(0,80) 0490 GOSUB '62 : IF T5<=0THEN GOTO 1100 : IF T5>1THEN GOTO 490 : IF T5$(1)<>" "THEN GOTO 510 : F$="Invalid User ID" : GOTO 1180 0510 L9$(3)=T5$(1) : L9$(4)=T5$(2) : O=T5(1) : IF VER(T5$(2),"HHH")=3THEN GOTO 580 : F$="Illegal Definition Address" : GOTO 1180 0580 SELECT #10<T5$(2)> : ERRORF$="Invalid Definition Address" : GOTO 1180 0600 LIMITS T#10,"DD.DEF",I1,I2,I3,I4 : ERRORI4=ERR 0605 IF I4=2THEN GOTO 610 : F$="Definition File Does Not Exist" : GOTO 1180 0610 LIMITS T#10,"DD.REL",I1,I2,I3,I4 : ERRORI4=ERR 0615 IF I4=2THEN GOTO 630 : F$="Definition File Does Not Exist" : GOTO 1180 0630 STR(K9$,1,6)=STR(T5$(1),1,3)&T5$(2) : K6$()="2 28" : GOSUB '150(K6$()) : IF M=0THEN GOTO 740 : IF M=77THEN F$="DATAMERGE User ID Is Already In Use" : ELSE IF M=70THEN F$="Definition File Is Being Sorted" : ELSE GOSUB '74(0,"LPSCREN1","Opening") : GOTO 1180 0740 IF T5(1)=1THEN GOTO 750 : GOSUB '156(K6$()) : IF M<>0THEN GOSUB '74(0,"LPSCREN1","Closing") 0750 ON T5(1)GOTO 830,770,910,1020,1060 0770 L0(5)=1 : PRINT HEX(03) : COM CLEAR K8$() : A0$()="LPIDEAS1"&"Prime 62"&"LPCTLID1" : LOAD T<3>A0$() 0830 L0(5)=2 : PRINT HEX(03) : A0$()="LPIDEAS2"&"Prime 62"&"LPREADFD" : LOAD T"LPDDREAD" 0910 A0$()="LPSAVDEF"&"DDA.VARC" : COM CLEAR L3$() : LOAD T<2>A0$() 1020 COM CLEAR K8$() : A0$()="LPMAINT "&"LPPRTABS"&"Prime 62" : LOAD T<3>A0$() 1060 COM CLEAR L0() : LOAD T"LPSUPER" 1100 COM CLEAR : LOAD TA5$ 1130 RESTORE LINE170 : O=1 : PRINT AT(17,0,80) : GOTO 450 1180 PRINT AT(23,0);L1$;F$;HEX(0F); : GOTO 490 2000 DEFFN'74(M4,L0$(3),L0$(4)) : LOAD T"DDA.DAT"7000,7999BEG 2030 2030 GOSUB '140(1,"160") : LOAD T<R9>R9$()7050,7999BEG 2050 2050 GOSUB '160(M4,L0$(3),L0$(4)) : COM CLEAR A0$() : LOAD TR3$(2) 9000 DEFFN'0"SCRATCH T ";HEX(22);"LPSCREN1";HEX(22) 9100 DEFFN'1"SAVE T() ";HEX(22);"LPSCREN1";HEX(22)