sim talk 程序

hln6610320

is
2 Z# A2 R& M7 T' n' y8 w obj : object;   -- first carbody in store
found : boolean;  -- found a chassis
) [1 z6 P5 }$ D1 _2 ]! j counter : integer;  -- position in store
2 @# r' Y7 p" g% y9 U: v' `do
* ^2 ~" R: Y- }! E; o0 E -- make sure there is a carbody in the store
+ V. \2 r/ \* k1 S: K if not StoreCarbody.empty() then
$ w  u9 J* \( X/ m" I  found := false;
  counter := 1;
/ c  S* Y' {7 R" O& t
  -- iterate through the store
  while not found and counter <= StoreCarbody.xDim loop
  q6 K8 a2 K" C9 y! g   obj := StoreCarbody.pe(counter,1).cont;
   if(obj /= void) then
    found := true;
   end; -- if
; Y$ d( M& K* L" T" K   counter := counter + 1;
  end; -- while

0 J0 D; r) i9 L  S# ^3 @  if found then
' v& Q% C- T  F5 d: ?( O  -- put the carbody on a skid
   obj.move(@);
  end; -- if
end; -- if not StoreCarbody.empty
end;
6 K+ B6 j. P# h4 h5 L: [里面的found急整个循环不太懂，求高手讲解下？急~~~~