sim talk 程序

hln6610320

is
obj : object;   -- first carbody in store
1 B, g3 T* X- s& k1 ~# h7 L' u found : boolean;  -- found a chassis
+ A, e4 F, e% b* \+ i7 k% U counter : integer;  -- position in store
do
-- make sure there is a carbody in the store
( x9 x3 [: ?. K5 C if not StoreCarbody.empty() then
  found := false;
6 K2 n* q2 r, `  n( E  counter := 1;
2 e) K& u6 G* `2 Z
  -- iterate through the store
6 s. R! H" h6 M# a5 U0 g  while not found and counter <= StoreCarbody.xDim loop
   obj := StoreCarbody.pe(counter,1).cont;
" h8 b9 t7 l1 a- b3 E' ~" c; q/ C   if(obj /= void) then
; u( z+ ?( P& o5 t    found := true;
   end; -- if
   counter := counter + 1;
  end; -- while

. B0 _5 R* Y& o* {; N  q  if found then
3 e; ^3 B1 Q2 R  -- put the carbody on a skid
% e4 p. i* [$ N3 _# B   obj.move(@);
8 W# R4 Z- e' n' ~  end; -- if
end; -- if not StoreCarbody.empty
end;
里面的found急整个循环不太懂，求高手讲解下？急~~~~