Code 2

Was tut folgender code?

is
   x:integer;
   y:integer;
   teilName:string;
   t1,t2:time;
do
   if lager.voll then
      t1:= Ereignisverwalter.Zeit;
      waituntil lager.voll= false prio 1;
      t2:= Ereignisverwalter.Zeit;
      .Modelle.Netzwerk.Wartezeit:= .Modelle.Netzwerk.Wartezeit+(t2-t1);
   end;
   lager.holefreienPlatz(x,y);
   teilName:= @.name;
   @.umlagern(lager.pe(x,y));
   bestand.schreibeZeile(1, bestand.yDim+1, teilName, x, y);
end;