Procedure RDXF(VAR Flags:Event_Flag_set
		);
   EXTERNAL;
{*USER*
 Pascal-3 procedure to return the state of all event flags
including Group Globals. Some of these flags are reserved by
RSX for its use, but you can read them anytime.
If Group Globals do not exist, all are returned as clear, and
the $DSW will be IS.CLR. This is not an error - only an indicator
that no Group Globals exist for the current group.
 Directive status available in $DSW on return.
.NOTE
Companion procedure RDAF reads all efns, except group globals.
.end note
   }