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;