----------------------------------------------------------------------
-- Demo: rendezvous zur Synchronisation
----------------------------------------------------------------------

with stringpack; use Stringpack;
procedure Tierwelt2 is

   task type Hund is
      entry Los;
   end Hund;

   task body Hund is
   begin
      accept Los;
      Print("wau");
      Print("wau");
   end Hund;

   Rex, Pluto, Fifi: Hund;

   task Katz is
      entry Los;
      entry Nochmal;
   end Katz;

   task body Katz is
   begin
      accept Los;
      Print("miau");
      accept Nochmal;
      Print("miau");
   end Katz;

begin
   Print("hello world");
   Rex.Los; Fifi.Los; Katz.Los; Pluto.Los; Katz.Nochmal;
end Tierwelt2;