sim talk 程序

hln6610320

is
5 P% Y9 K/ Y- O: H; D! j  W- c obj : object;   -- first carbody in store
found : boolean;  -- found a chassis
counter : integer;  -- position in store
do
-- make sure there is a carbody in the store
2 F8 x7 N9 W# Z7 T" u( l if not StoreCarbody.empty() then
7 G5 C9 s- Y5 ~' T. M& _  found := false;
8 p: J* c4 M7 V8 m  counter := 1;

1 r- ^; K+ c7 F$ j. p" _  -- iterate through the store
  while not found and counter <= StoreCarbody.xDim loop
   obj := StoreCarbody.pe(counter,1).cont;
9 G& ~8 Y7 |$ X$ B/ @   if(obj /= void) then
    found := true;
   end; -- if
; D% Q/ r6 y  {( ^- ?2 A' r: m   counter := counter + 1;
  end; -- while

1 w' a! W$ V' _- y+ h4 }  if found then
3 j# S; H6 ]' p$ t/ C7 w  -- put the carbody on a skid
! c9 S' ^: S2 w: s% T   obj.move(@);
  end; -- if
end; -- if not StoreCarbody.empty
end;
里面的found急整个循环不太懂，求高手讲解下？急~~~~