begin
real i,j
on event 1 start
     ->trap
finish
i=2
cycle
j=i; i=I+I
if i<00.00001 or j>=i then printstring("Oflow missed") and stop
repeat
printstring("FAIL")
stop
trap:
printstring("event trapped ")
write(eventinf>>8,5); write(eventinf&255,5)
newline
printstring("Line of failure =")
write(eventline,4)
newline
printstring("Test OK")
endofprogram