	REM	MERGE
	INPUT "ENTER NAME OF MASTER: ";Z$
	MASTER$=Z$
	TRANSACTION$="SORT.FIL"
	INPUT "ENTER NEW MASTER NAME: ";Z$
	OUT$=Z$
	FILLER$="                        "
	FLAGM=0
	FLAGT=0
 
	FILE	MASTER$
	FILE	TRANSACTION$
	FILE	OUT$
 
	PRINT CHR$(26)
	PRINT "MERGING...",
	GOSUB 20
	GOSUB 30
	GOTO 40
 
20	REM
	READ#1; MLAST$, MFIRST$, MADDRESS$, MCITY$,MZIP$,MAREA$,MTEL$
	IF MLAST$="END" THEN 250
25	REM CONTINUATION
	GOSUB 200
	RETURN
 
30	REM
	READ#2; TLAST$, TFIRST$, TADDRESS$, TCITY$,TZIP$,TAREA$,TTEL$
	IF TLAST$="END" THEN 350
35	REM CONTINUATION
	GOSUB 300
	RETURN
 
40	REM	TEST
	IF FLAGM=1 THEN 70
 
45	REM	COMPARISON
	IF M$<T$ THEN 50
	PRINT#3; TLAST$, TFIRST$, TADDRESS$, TCITY$,TZIP$,TAREA$,TTEL$
	PRINT TLAST$,
	GOSUB 30
	GOTO 40
 
70	IF FLAGT=0 THEN 45
	PRINT#3; "END","END","END","END","END","END","END"
	STOP
 
50	PRINT#3; MLAST$, MFIRST$, MADDRESS$, MCITY$,MZIP$,MAREA$,MTEL$

	PRINT MLAST$,
	GOSUB 20
	GOTO 40
 
200	REM	MASTER
	ML$=MLAST$+FILLER$
	MFILLER$=MFIRST$+FILLER$
	ML$=LEFT$(ML$,24)
	MFILLER$=LEFT$(MFILLER$,24)
	M$=ML$+MFILLER$
	RETURN
 
250	MLAST$="ZZ"
	FLAGM=1
	GOTO 25
 
300	REM	TRANSACTION
	TL$=TLAST$+FILLER$
	TFILLER$=TFIRST$+FILLER$
	TL$=LEFT$(TL$,24)
	TFILLER$=LEFT$(TFILLER$,24)
	T$=TL$+TFILLER$
	RETURN
 
350	TLAST$="ZZ"
	FLAGT=1
	GOTO 35
óÍÍľ,Í Ăô!Ă™!ÍóÍÍľĂqzć8O!î	ÍóĂĹ!ęÍóÍÍľ,Í zćÍľĂqy‡‡O!Î	ÍóÍŁőÍŁWń_Í•Ăqy‡‡O!¦	ÍóÍŁÍ’Ăqy‡‡