Revision b1f4c7a9f230d031987e0e9178f1d10c66c19fbc authored by Bill Joy on 21 April 1979, 11:46:59 UTC, committed by Bill Joy on 21 April 1979, 11:46:59 UTC
Work on file upgrade/libretro/getpwent.c.16u

Synthesized-from: 2bsd
1 parent cabad19
Raw File
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 }.
back to top