Listing of file='LPMENU2' on disk='vmedia/701-2721C.wvd.zip'
# Sector 387, program filename = 'LPMENU2'
0005 REM USED BY PROCESS FOR CLEARING
: COM H7$7
0180 DATA 4,0,0,"DATAMERGE Main Menu"
: DATA 4,6,10,"Please Select the Next Operation"
: DATA 1,08,21,1,"Select Records for Document Generation"
: DATA "Perform Operations on Selected Records"
: DATA "Edit Individual Fields in the Document"
0230 DATA "Merge Data with the Document and Print"
: DATA "\DE"
: DATA 4,21,50,"Press EXEC/RUN to Continue"
: DATA 4,22,50," CANCEL/EDIT to Terminate"
: DATA 0
: DIM S5(1),S0(1),T5(1),S3(1)
: DIM T1$(4)38,S1$(4)2
: DIM T1(5),S6(5),S1(5),T2$(5)50
: DIM T2(1),S7(1),S2(1),S4(1),T5$(1)20
0380 DIM S2$(3)2,S1$2
: DIM S2$1,T2$2,T1$80
: PRINT HEX(03)
: GOSUB '61
: PRINT AT(1,0);BOX(0,80);AT(18,0);BOX(0,80);
0420 GOSUB '62
: IF T5<=0THEN GOTO 800
: IF T5>1THEN GOTO 420
: IF T5(1)=3THEN GOTO 530
: IF T5(1)=4THEN GOSUB '99("LPOVER05")
: GOSUB '99("LPRETURN")
: ON T5(1)GOTO 515,520,,550
0515 LOAD T"SLD.STRT"
0520 STR(L7$,2,1)="Y"
: LOAD T"PKLPST"
0530 A0$()="LPEDIT "&"LPEDPICT"&"LPFORMAT"&"Prime 62"
: STR(L7$,2,1)="Y"
: LOAD T<4>A0$()
0550 A0$()="LPPROMPT"
0570 GOSUB '99(A0$())
: R9$()="DDA.VARC"&"DDA.DAT "&"LPPUTDEF"
: LOAD T<3>R9$()
0800 A0$()="LPINIT"
: GOTO 570
0950 DEFFN'99(T1$)
: S=VAL(STR(K9$,7,1))
: L=VAL(STR(K9$,8,1))
: MAT COPY -K9$<S,L-8>TO -K9$<S+8,L-8>
: STR(K9$,S,8)=T1$
: RETURN
9000 DEFFN'0"SCRATCH T ";HEX(22);"LPMENU2";HEX(22)
9100 DEFFN'1"SAVE T() ";HEX(22);"LPMENU2";HEX(22)