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�8O!�  ����!����;,�z�;�qy��O!� ��ͣ�ͣW�_͕�qy��O!�      ��ͣ͒�qy��