Procedure SETF(EFN:Event_Flag );
   EXTERNAL;
{*USER*
 Pascal-3 procedure to set the specified Event Flag. All efns
are accepted, including Group Globals.
 $DSW shows the previous status of the flag: 0->was clear, 1->was set.
   }