%BEGIN
%EXTERNALINTEGERFNSPEC EVENTINF
%INTEGER INFO,FLAG
%INTEGERARRAY ARR(1:10)
%STRING(6) STR
%ONEVENT 6 %START
INFO=EVENTINF
%MONITOR
FLAG=FLAG+1
%IF FLAG = 0 %THEN -> FIRST %ELSE -> SEC
%FINISH
FLAG=-1
STR="THIS ISA STRING"
FIRST:
ARR(11)=4
SEC:
%ENDOFPROGRAM