home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Distributions / ucb / spencer_2bsd.tar.gz / 2bsd.tar / src / pascal / tests / t16.p < prev    next >
Text File  |  1980-02-17  |  288b  |  22 lines
  1. program main(input, output);
  2. procedure copy(inp, out: text);
  3.     var
  4.         c: char;
  5.     begin
  6.         while not eof(inp) do
  7.         begin
  8.             while not eoln(inp) do
  9.             begin
  10.                 c := inp^;
  11.                 out^ := c;
  12.                 put(out);
  13.                 get(inp);
  14.             end;
  15.             writeln;
  16.             get(inp);
  17.         end;
  18.     end;
  19. begin
  20.     copy(input, output);
  21. end.
  22.