Return to t16.p CVS log

Up to [CSRG BSD Unix] / 43BSDTahoe / ucb / pascal / tstpx / src

BSD 4.3tahoe

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.

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