Procedure RDAF(VAR Flags:Event_Flag_set
		);
   EXTERNAL;
{*USER*
 Pascal-3 procedure to return the state of all event flags
(except Group Globals). Some of these flags are reserved by
RSX for its use, but you can read them anytime. The Group Global
efns in Flags are all cleared by this procedure - this does not
reflect their actual status, if any!
 Directive status available in $DSW on return.
.NOTE
Companion procedure RDXF reads all efns, including group globals.
.end note
   }