NetBSD/share/doc/ps1/04.pascal/copydata.p

16 lines
245 B
OpenEdge ABL

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