with CALENDAR; use CALENDAR;
task body ANZEIGEN is

  WERT: WERT_T;
  MAX_ZEITPUNKT: TIME:= CLOCK+0.05;
  ANZEIGE_TIMEOUT exception;

begin
  loop
    EINLESEN.BESCHL(WERT)
    -- Anzeigen des Wertes
    if CLOCK>MAX_ZEITPUNKT+0.1 then
      raise ANZEIGE_TIMEOUT;
    end if;
    delay MAX_ZEITPUNKT-CLOCK;
    MAX_ZEITPUNKT:=MAX_ZEITPUNKT+0.05
   end loop;

exception
  when ANZEIGE_TIMEOUT => Fehlerbehandlung
end STELLEN;