sim talk 程序

hln6610320

is
7 Y5 Y( B! D2 p" d* V  x 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
+ X1 v2 z% {+ [: a5 _2 X6 n if not StoreCarbody.empty() then
3 N2 u5 I$ y& D/ g7 {5 m  found := false;
  counter := 1;

/ P$ F. C& z! E/ Z1 L' z  -- iterate through the store
  while not found and counter <= StoreCarbody.xDim loop
$ O4 b+ S6 W' `& a$ q   obj := StoreCarbody.pe(counter,1).cont;
   if(obj /= void) then
* i3 T- G4 j) k& V    found := true;
   end; -- if
) p. p8 W. d: C& r( p+ l* r$ z7 h   counter := counter + 1;
% \& n& n6 b1 I* l+ B) M+ }1 I' R9 l  end; -- while

% s1 R* C7 |  X( }  if found then
  -- put the carbody on a skid
   obj.move(@);
3 Y0 o" I, @9 \  end; -- if
end; -- if not StoreCarbody.empty
end;
# C; z* C# K; b! g! W$ t里面的found急整个循环不太懂，求高手讲解下？急~~~~