Listing of file='LPMERG01' on disk='vmedia/701-2721C.wvd.zip'
# Sector 394, program filename = 'LPMERG01'
0010 REM % MERG EDIT MODULE 1 ***LPMERG01***
0090 DIM V0$(246)1
: GOSUB '41(2)
: GOSUB '211(L0$(4),B9$,B4$,HEX(FF))
: L8(3)=V3
: IF R1$=HEX(00)THEN GOTO 102
: I=1
: GOSUB 300
0102 R1$=HEX(00)
: A0$()=ALL(HEX(00))
: STR(A0$(),1,25)=R5$&" SUPERDOCUMENT"
: STR(A0$(),26,25)="DATAMERGE"
: STR(A0$(),101,5)=ALL(20)
: GOSUB '235(L8(3),A0$())
: IF R1$=HEX(00)THEN GOTO 200
: I=2
: GOSUB 300
0200 A0$()="LPMERG02"&"609PMERG"&"RECMGR"
: LOAD T<3>A0$()
0300 ON IGOTO 310,350
0310 IF R1$<>HEX(01)THEN GOTO 320
: L0$=BIN(11)
: GOSUB '214(L8(3))
: STR(L0$,2)=B9$
: LOAD T"LPERROR"
0320 L0$=BIN(13)
: STR(L0$,2)="Opened"
: LOAD T"LPERROR"
0350 L0$=BIN(13)
: STR(L0$,2)="Completed"
: LOAD T"LPERROR"
9000 DEFFN'0"SCRATCH T ";HEX(22);"LPMERG01";HEX(22);HEX(3A);"SAVE T () ";HEX(2
2);"LPMERG01";HEX(22)