with Ada.Text_IO; with Ada.Strings.Unbounded; use Ada.Strings.Unbounded; task Messages is entry Start(Message : Unbounded_String; Count : Natural); C,D: Integer; -- entry Syn; -- entry Send (V: Value_Type); -- entry Get (V: out Value_type); begin Ada.Text_IO.Put_Line ("Hallo Welt!"); accept Directory_enquire() -- exceptions wandert zu beiden exception -- zu client weitergeleitet end Directory_enquire; -- selective waiting (multiple queues) select accept d do end d or -- another accept or end Messages;