Net2/usr/src/usr.bin/pascal/tstpx/src/reset.p

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