Return to kat2.p CVS log

Up to [CSRG BSD Unix] / 43BSDReno / share / doc / ps1 / 04.pascal

BSD 4.3reno

program kat(input, output);
var
    ch: char;
    i: integer;
    name: packed array [1..100] of char;
begin
    i := 1;
    repeat
	if i < argc then begin
	    argv(i, name);
	    reset(input, name);
	    i := i + 1
	end;
	while not eof do begin
	    while not eoln do begin
		read(ch);
		write(ch)
	    end;
	    readln;
	    writeln
	end
    until i >= argc
end { kat }.

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.