home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / bsd_srcs / share / doc / ps1 / 04.pascal / copydata.p < prev    next >
Encoding:
Text File  |  1990-06-07  |  245 b   |  16 lines
  1. program copydata(data, output);
  2. var
  3.     ch: char;
  4.     data: text;
  5. begin
  6.     reset(data);
  7.     while not eof(data) do begin
  8.     while not eoln(data) do begin
  9.         read(data, ch);
  10.         write(ch)
  11.     end;
  12.     readln(data);
  13.     writeln
  14.     end
  15. end { copydata }.
  16.