reset.p

来自「早期freebsd实现」· P 代码 · 共 7 行

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