Modified a bit,

t:=0;quit:=false;
repeat
inc(t);
if t=500 then quit:=true;
until p1.2 or quit;


Why not do that ?
Whose Pascal KSC or Rainier Lamers ? If its KSC, that'll work fine, in Rainier's you need the interrupt_exit statement (and interrupt_entry at the start).

You COULD try interrupt_exit instead of EXIT and see if that works.

Steve