Procedure STLO( Flags:Event_Flag_set
		);
   EXTERNAL;
{*USER*
 Pascal-3 procedure to execute a stop for logical OR of event flags.
The STLO directive allows us to stop program execution waiting for
a combination of 1 to 16 flags to be set.  If any flag is that
combination is set, the program execution resumes.
 
Due to the
structure of the RSX directive, the specified flags must ALL reside
in the same "group".  There are six groups (f1 thru f16, f17 thru f32,
f33 thru f48, f49 thru f64, f65 thru f80, and f81 thru f96).  You CANNOT
use flags that reside in two different groups.
 
The routine is called using the set FLAGS that contains the flags that
you wish to stop for.   Directive status is available in $DSW on
return.  If you specify a set of flags that do not all reside in the
same group, the $DSW directive status will be set to IE.IEF - invalid
event flag specified error.
 
*END*}