%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
