Code 1

Was tut folgender Code?

is
   x: integer;
   y: integer;
   teil: string;
   gefunden: boolean;
do
   teil:= Produkttabelle [1,zyklustabelle.position];
   bestand.setzeZeiger (1,1);
   gefunden:= bestand.finden(teil);
   if gefunden then
      x:= bestand["x-Pos", bestand.zeigerX];
      y:= bestand["y-Pos", bestand.zeigerY];
      bestand.entferneZeile(bestand.zeigerY);
      if zyklustabelle.position = zyklustabelle.YDim then
          zyklustabelle.position:= 1;
      else
          zyklustabelle.position:= zyklustabelle.position+1;
      end;
      lager.pe(x,y).inhalt.umlagern(Einzelstation);
   end;
   self.methaufr(60);
end;