%BEGIN
! CHECKS MISPLACED ON EVENTS ARE FAULTED
%INTEGER I
%ROUTINE A
%IF I=1 %START
      PRINTSTRING("HELLO")
%FINISH %ELSE %START
      %ONEVENT 9 %START
         PRINTSTRING("GOODBYE")
      %FINISH
%FINISH
%END
I=1
A
%ENDOFPROGRAM
