program join;

uses crt,dos,open;

var r, w : file of byte;
    data : byte;

begin
   if (paramstr(1)='/?') or (paramstr(1)='') then
    begin
      writeln;
      Writeln('Join  Written by Franz Ayestaran (c)1997');
      writeln('----');
      writeln;
      writeln('<Destination file> = <source file 1> + <source file 2>');
      writeln;
      writeln('Usage: join <filename.ext> <filename.ext> <filename.ext>');
      writeln;
    end;

  if (paramstr(1)<>'/?') and (paramstr(1)<>'') then

  if does_file_exist(paramstr(2)) and
     does_file_exist(paramstr(3)) then
    begin
      assign(w,paramstr(1));
      rewrite(w);

      assign(r,paramstr(2));
      reset(r);

      writeln('Reading First File....');
      repeat
        read(r,data);
        if data <> 26 then write(w,data);
        until eof(r);
      close(r);

      assign(r,paramstr(3));
      reset(r);

      writeln('Reading Second File....');
      repeat
        read(r,data);
        write(w,data);
      until eof(r);
      close(r);

      close(w);

      writeln(paramstr(1),' saved!');
    end

  else writeln('Source file(s) not found!');


end.