BSD 4_3_Net_2 release

[unix-history] / usr / src / usr.bin / pascal / tstpx / in / t16.in

program Main(input, output);
procedure copy(var inp, out: text);
       var
               c: char;
       begin
               while not eof(inp) do
               begin
                       while not eoln(inp) do
                       begin
                               c := inp^;
                               out^ := c;
                               put(out);
                               get(inp);
                       end;
                       writeln;
                       get(inp);
               end;
       end;
begin
       copy(input, output);
end.