[unix-history] / .ref-BSD-3 / usr / doc / pascal / kat2.p

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 }.
Commit	Line	Data
1f017636 BJ	1	program kat(input, output);
	2	var
	3	ch: char;
	4	i: integer;
	5	name: packed array [1..100] of char;
	6	begin
	7	i := 1;
	8	repeat
	9	if i < argc then begin
	10	argv(i, name);
	11	reset(input, name);
	12	i := i + 1
	13	end;
	14	while not eof do begin
	15	while not eoln do begin
	16	read(ch);
	17	write(ch)
	18	end;
	19	readln;
	20	writeln
	21	end
	22	until i >= argc
	23	end { kat }.