pcextn.p

早期freebsd实现

program t(output, foo);

#include "unixio.h"

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.