RosettaCodeData/Task/Events/Ada/events-1.ada

protected type Event is
   procedure Signal;
   procedure Reset;
   entry Wait;
private
   Fired : Boolean := False;
end Event;