[unix-history] / usr / src / share / doc / ps1 / 04.pascal / copydata.p

program copydata(data, output);
var
    ch: char;
    data: text;
begin
    reset(data);
    while not eof(data) do begin
	while not eoln(data) do begin
	    read(data, ch);
	    write(ch)
	end;
	readln(data);
	writeln
    end
end { copydata }.
Commit	Line	Data
2ea512c1 C	1	program copydata(data, output);
	2	var
	3	ch: char;
	4	data: text;
	5	begin
	6	reset(data);
	7	while not eof(data) do begin
	8	while not eoln(data) do begin
	9	read(data, ch);
	10	write(ch)
	11	end;
	12	readln(data);
	13	writeln
	14	end
	15	end { copydata }.