BEGIN
!***********************************************************************
!*    A TEST TO CHECK THE LINE NUMBER OF A FAILURE AT RUN TIME         *
!***********************************************************************
INTEGERARRAY A(0:4)
INTEGER I
on event 1,2,3,4,5,6,7,8,9 start
->continue
finish
I=10
IF 1<0 THEN START
      !
      !
      STOP
FINISH ELSE A(I)=A(I)+1
      !
continue:
printstring("event trapped ")
write(eventinf>>8,5); write(eventinf&255,5)
newline
printstring("Line of failure =")
write(eventline,4)
newline
ENDOFPROGRAM