home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / TURBOPAS / PASUTIL1.ZIP / COPYFILE.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1985-12-28  |  512 b   |  25 lines
  1. { complete copy -- from file in to file out }
  2. { Scott Loftesness - 8/25/82 }
  3. program copyprog (inf,outf);
  4. {$line+}
  5. const
  6.     ENDFILE = -1;
  7.     NEWLINE = 10;   { ASCII value }
  8. var inf,outf: file of char;
  9.  
  10.  
  11. { copy -- copy input to output }
  12. procedure copy;
  13. begin
  14.     reset(inf);
  15.     rewrite(outf);
  16.     while (not eof(inf)) do begin
  17.         outf^:=inf^; put(outf);
  18.         get(inf);
  19.     end;
  20. end;
  21.  
  22. begin   { main program }
  23.     copy
  24. end.
  25.