task body ZUG is

begin
  loop
    ABFERTIGER.ANMELDUNG;
    -- Einfahren
    ABFERTIGER.EINGEFAHREN;
    -- Tuer oeffnen
    FAHRGAESTE.EINSTEIGEN;
    select
      accept NOTBREMSE do
        -- auf Situation reagieren
      end NOTBREMSE;
    else
      accept AUSFAHREN do
      end AUSFAHREN;
      -- TschTschTsch...
    end select;
  end loop;
end ZUG;