:59468,12< MERGE COPYRIGHT (C) 1980 GLEN FISHERB:] CURSOR #17, FEB 1980~ BOX 550, GOLETA, CA. 93017 (C) 1980 CURSOR MAGAZINE: AS OF FEB 25 1980ZPG$"MERGE":NM$"17":62000dEOF(3):NU$(0):LA$(1)(4)&n15,8,15:D1$"0:":D2$"0:":D3$"0:"Kx"INPUT FILE? ";:60000:OF$IN$e1,8,2,D1$OF$",P,R"z15,ER,ER$,TK,SCER0ER$:1:120N1:710:NM$LA$180OF$;" ISN'T A BASIC PROGRAM.":1:120"MERGE WITH? ";:60000:MF$IN$2,8,3,D2$MF$",P,R"+15,ER,ER$,TK,SCCER0ER$:2:180]N2:710:NM$LA$240MF$;" ISN'T A BASIC PROGRAM.":2:180"OUTPUT FILE? ";:60000:NF$IN$NF$MF$NF$OF$280"OUTPUT FILE CAN'T BE THE SAME AS EITHER":"INPUT FILE. TRY AGAIN."24053,8,4,D3$NF$",P,W"T"15,ER,ER$,TK,SC:ER0340|,3:"OUTPUT FILE ALREADY EXISTS."6"OK IF I OVERWRITE IT? ";:60000@(IN$,1)"Y"240J15,"S";D3$;NF$:280T3,NM$;:PTNM^N1:650:L1LN:S1$IN$hN2:650:L2LN:S2$IN$=r".";:2(L1L2)380,430,520L| SAVE S1$dPTPT(S1$)2:700p3,S1$;N1:650:EOFN2:IN$S2$:570L1LN:S1$IN$:370 SAVE S1,DROP S2:"LINE";L1;"IS IN BOTH FILES. "COPY FROM ";OF$;" IS USED." PTPT(S1$)2:700* 3,S1$;M N1:650:EOFN2:IN$S2$:570_ L1LN:S1$IN$ N2:650:EOFN1:IN$S1$:570 L2LN:S2$IN$:370  SAVE S2$ PTPT(S2$)2:700 3,S2$; &N2:650:EOFN1:IN$S1$:570 0L2LN:S2$IN$:370 :PTPT(IN$)2:7000 D".";:3,IN$;D N650:EOF0570T X3,NU$;NU$;[ b3b l2i v1 :"THE TWO PROGRAMS HAVE BEEN MERGED.": 750:750 750:T$C$:750 IN$T$C$:LN(T$)256(C$) 750:IN$IN$C$:C$NU$680 ) C(PT256):3,(PT256C);(C);:F 750:EOFNM1:NM$"":V NM$C$:750y NM(NM$)(C$)256:NM$NM$C$  EOFEOF(N):EOF0#N,C$:STEOF1:EOF(N)EOF EOFC$""C$NU$  `IN$" ":ZTTI:ZC2:ZD$(20):LP1:PN0 jZ$:Z$""60070> tZTTI(" ",ZC,1);"";:ZC3ZC:ZTTI15I ~60010y Z(Z$):ZL(IN$):(Z127)32" ";:60110 FL(Z127)64(Z127)91Z$((Z128)255) ZL25460010 IN$IN$Z$:Z$;ZD$;Z$; Z13IN$(IN$,2):CR$;:! Z20ZL1IN$(IN$,ZL1):"";:60010T Z141Z$(20(ZL1)):Z2ZL:Z$;:Z:60000_ 60010o (PN060250z -60500 2"PRESS RETURN TO ";