BSD 1 development

[unix-history] / tests / t16.p

program main(input, output);
procedure copy(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.