sim talk 程序

hln6610320

is
+ r6 c. N/ X2 ^ obj : object;   -- first carbody in store
; ]1 ]4 K. u+ @" Z. u3 w found : boolean;  -- found a chassis
' f, P. x" o/ j7 T counter : integer;  -- position in store
do
-- make sure there is a carbody in the store
if not StoreCarbody.empty() then
: ^2 \: T+ n$ X1 ~5 \  found := false;
  counter := 1;
; S$ H; t( `( l
4 L8 E/ v0 z7 {1 H0 p( }9 _! k* ]  -- iterate through the store
  while not found and counter <= StoreCarbody.xDim loop
   obj := StoreCarbody.pe(counter,1).cont;
   if(obj /= void) then
' e0 y$ X/ R5 [. K3 W; `1 q    found := true;
' V2 V2 I; N4 [: a& X) M" F6 f   end; -- if
! R: g5 I# H. ~5 y4 n2 r   counter := counter + 1;
; P9 V3 H9 W, z0 j4 F; U: T7 f4 b  end; -- while
4 A( W2 W# Y6 j6 p
  if found then
% R& Y! C2 }8 _8 d1 n  -- put the carbody on a skid
. i/ ^+ n. q, c+ J   obj.move(@);
  end; -- if
end; -- if not StoreCarbody.empty
9 g+ I2 z4 y2 J6 Tend;
里面的found急整个循环不太懂，求高手讲解下？急~~~~