sim talk 程序

hln6610320

is
$ _+ p2 a, f2 h  Z9 j' Y obj : object;   -- first carbody in store
2 M" _0 a3 T' {1 }. o found : boolean;  -- found a chassis
1 w/ T+ i; L/ W  w4 ^. m& y counter : integer;  -- position in store
' f$ `# C1 s- b9 I! m1 G$ hdo
. f8 n; o; h$ J+ |0 D -- make sure there is a carbody in the store
if not StoreCarbody.empty() then
  found := false;
  counter := 1;
4 ~9 L4 h3 d% X/ c
  -- iterate through the store
  while not found and counter <= StoreCarbody.xDim loop
: l1 m9 i  D. v  b; G% b   obj := StoreCarbody.pe(counter,1).cont;
. v1 W  B0 I  V# c   if(obj /= void) then
    found := true;
. y6 u% R1 x- s+ ?# g$ r   end; -- if
   counter := counter + 1;
  end; -- while

  if found then
" z. y7 u/ y$ E6 y6 l  -- put the carbody on a skid
   obj.move(@);
' a4 ?4 S% r6 D7 W  end; -- if
. K' c8 K+ d' b0 [, h" L end; -- if not StoreCarbody.empty
end;
9 Q. o) V, c# }6 q里面的found急整个循环不太懂，求高手讲解下？急~~~~