3- 22
BEGIN
reset(f2); {Opens f2}
goto 9999; {Closes f2 and f3}
END;
PROCEDURE q;
VAR
f3 : ftype;
BEGIN
open(f3); {Opens f3}
p;
{p never returns here}
END;
BEGIN
rewrite(f1); {Opens f1}
q;
9999 : reset(f1); {Closes and reopens f1}
close(f1); {Closes f1}
END.
