[unix-history] / usr / src / usr.bin / pascal / tstpx / src / t16.p

program Main(input, output);
procedure copy(var inp, out: text);
	var
		c: char;
	begin
		while not eof(inp) do
		begin
			while not eoln(inp) do
			begin
				c := inp^;
				out^ := c;
				put(out);
				get(inp);
			end;
			writeln;
			get(inp);
		end;
	end;
begin
	copy(input, output);
end.
Commit	Line	Data
7dbf621a C	1	program Main(input, output);
	2	procedure copy(var inp, out: text);
	3	var
	4	c: char;
	5	begin
	6	while not eof(inp) do
	7	begin
	8	while not eoln(inp) do
	9	begin
	10	c := inp^;
	11	out^ := c;
	12	put(out);
	13	get(inp);
	14	end;
	15	writeln;
	16	get(inp);
	17	end;
	18	end;
	19	begin
	20	copy(input, output);
	21	end.