Return to copydata.p CVS log

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

BSD 4.3reno

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 }.

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