reset.p

早期freebsd实现

program test(input, output);
var f:  text;
begin
   reset(f);
   reset(f, '.  ');
end.