with CALENDAR; use CALENDAR;
task body EINLESEN is

  MESSZEIT: TIME;
  MESSUNG_TIMEOUT: exception;

begin
  loop
    select
      accept BESCHL(WERT: out WERT_T) do
        WERT := TMP_REG.WERT;
      end BESCHL;
    or
      accept NEU do
        TMP_REG:=REGISTER;
        MESSZEIT:=CLOCK;
      end NEU;
    or 
      delay 0.01-(CLOCK-MESSZEIT);
        raise MESSUNG_TIMEOUT;
        MESSZEIT:=CLOCK
    end select;
  end loop;

exception
  when MESSUNG_TIMEOUT => Fehlerbehandlung
end EINLESEN;