home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug054.arc / APPEND.PAS < prev    next >
Pascal/Delphi Source File  |  1979-12-31  |  1KB  |  53 lines
  1. var
  2.    InputFile    : text;
  3.    InputFile2   : text;
  4.    OutputFile   : text;
  5.  
  6.    InputFname   : string[12];
  7.    InputFname2  : string[12];
  8.    OutputFname  : string[12];
  9.  
  10.    Data         : string[128];
  11.  
  12. begin
  13.      Clrscr;
  14.      Gotoxy(10,1);
  15.      Writeln('MICROFLEX FILE APPEND. OK to copy for NON-COMMERCIAL USE ONLY');
  16.      Gotoxy(1,5);
  17.  
  18.      write ('Please enter the  first input filname : ');
  19.      readln (InputFname);
  20.  
  21.      write ('Please enter the second input filname : ');
  22.      readln (InputFname2);
  23.  
  24.      write ('     Please enter the output filename : ');
  25.      readln (OutputFname);
  26.  
  27.      assign (InputFile,InputFname);
  28.      reset (InputFile);
  29.  
  30.      assign (OutputFile,OutputFname);
  31.      rewrite (OutputFile);
  32.  
  33.      while not eof (InputFile) do
  34.            begin
  35.                 readln (InputFile,Data);
  36.                 writeln (OutputFile,Data);
  37.            end;
  38.  
  39.      close (InputFile);
  40.  
  41.      assign (InputFile2,InputFname2);
  42.      reset (InputFile2);
  43.  
  44.      while not eof (InputFile2) do
  45.            begin
  46.                 readln (InputFile2,Data);
  47.                 writeln (OutputFile,Data);
  48.            end;
  49.  
  50.      close (Inputfile2);
  51.      close (OutputFile);
  52.  
  53. end.