Return to piextn.p CVS log

Up to [CSRG BSD Unix] / 43BSDReno / pgrm / pascal / tstpx / src

BSD 4.3reno

program t(output, foo);

#include "unixio.i"

var
foo :text;
at :fileptr;

begin
rewrite(foo);
writeln(foo, 'abc');
reset(foo);
while not eof(foo) do begin
	write(foo^);
	get(foo)
	end;
writeln;
APPEND(foo);
writeln(foo, 'def');
reset(foo);
while not eof(foo) do begin
	write(foo^);
	get(foo)
	end;
writeln;
reset(foo);
while not eoln(foo) do begin
	write(foo^);
	get(foo)
	end;
writeln;
get(foo);
writeln('at TELL foo at ->', foo^, '<-');
at := TELL(foo);
get(foo);
writeln('after get foo at ->', foo^, '<-');
SEEK(foo, at);
writeln('after seek foo at ->', foo^, '<-');
reset(foo);
writeln('after reset foo at ->', foo^, '<-');
SEEK(foo,at);
writeln('after seek foo at ->', foo^, '<-');
end.

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