BSD 3 development

[unix-history] / .ref-BSD-2 / doc / pascal / kat.p

program kat(input, output);
var
   ch: char;
begin
   while not eof do begin
       while not eoln do begin
           read(ch);
           write(ch)
       end;
       readln;
       writeln
   end
end { kat }.