sim talk 程序

hln6610320

is
obj : object;   -- first carbody in store
found : boolean;  -- found a chassis
, t) c" Y7 n6 Q4 H' f9 ` counter : integer;  -- position in store
do
* _6 ]5 }( G3 O' M3 O+ g" f -- make sure there is a carbody in the store
# {: J* v+ z& `6 B+ S if not StoreCarbody.empty() then
) R% O  r9 n) Y  found := false;
  counter := 1;

+ O+ X% G4 h0 K- G2 Y  -- iterate through the store
  while not found and counter <= StoreCarbody.xDim loop
   obj := StoreCarbody.pe(counter,1).cont;
  Z; b3 v: L, b) s: G   if(obj /= void) then
    found := true;
   end; -- if
- S' L+ w% T: L2 H/ w4 B/ A) \4 s   counter := counter + 1;
8 a6 o( Z* y, K  end; -- while

* J' J/ c2 f9 P* F! h  if found then
$ E  z0 i0 N1 h) \4 u6 l+ [! c  -- put the carbody on a skid
/ V6 @+ {: y4 X; d; l   obj.move(@);
  end; -- if
! y9 s! p& Q6 _$ H end; -- if not StoreCarbody.empty
end;
里面的found急整个循环不太懂，求高手讲解下？急~~~~