MERGE  \20),"MERGE TWO FILES" S1"FIRST FILE TO MERGE ",K$\" DRIVE NUMBER ",K3$\K3$","K3$\K$K3$)3 V1"SECOND FILE TO MERGE ",K1$\" DRIVE NUMBER ",K4$\K1$K1$","K4$\K1$)3 S(1"MERGE FILE ",K2$\" DRIVE NUMBER ",K4$\K2$K2$","K4$\K2$)3-\K2$,2 - \K$K$K3$\ F90 P 2"# OF FIELDS ",K\K02 *<"FIELD # TO MERGE ",K8\K80K8K< %F"MAX FIELD LENGTH ",K1\K10F :PK9KK14)\G$K120),G1$K120),R$K920),R1$K920) ZG$""\G1$""\R$""\R1$"" d#1,K$\#2,K1$\#3,K2$\K21 n,\ 1xT9T91\T9," ",G$," ",G1$\Q1\Q11 G$G1$ 9Q11\X1R1$)\#3,&R1$X,X))\X\R1$""\K21 \x 5Q1\X1R$)\#3,&R$X,X))\X\R$""\K21 ,\x #3 \7) *"FILE ",K2$," NOW HAS ",T9," RECORDS" *"PRESS ANY KEY TO RETURN TO THE MENU" A$0) "MENU" 0,;,X,X\#1,&A\A26A1;\A127AA128 16R$R$A)\A13,\#1,&A\R$R$A)\\@ ;Q1 @T1R$)\AR$T,T)) !JA34^\A10T\A10\^ TA11 ^A10hr hA44 rG$G$A) |T\K2K8\G$""\ K2K8\ -K2K21\G$""\K2K\TR$)| ,G$G$" "\G$G$1,10)\K21\A10  0,X,X\#2,&A\A26A1\A127AA128 5R1$R1$A)\A13\#2,&A\R1$R1$A)\\ Q11 T1R1$)\AR1$T,T)) !A34\A10\A10\ A11 A10 A44 G1$G1$A) T\K2K8\G1$""\ K2K8\ /K2K21\G1$""\K2K\TR1$) 0G1$G1$" "\G1$G1$1,10)\K21\A10  ) RINE LOAD DISPLAY FIELD NAMES 5 K$1,4)K3$)5 \F91\\ DOES EXIST  #0%5,K$1,4)K3$  #0,K,K1,K8 1 L$K15),Q$K1)\ N1 K1\Q$N,N)"*"\ N  #0,L$ $ #0 ) F90\ . N1 K ,8 @N4,1),L$N1514,N15),@N4,18),Q$ B N L Y8B