sim talk 程序

hln6610320

is
9 z: j+ _" z  h$ w' G obj : object;   -- first carbody in store
found : boolean;  -- found a chassis
( n; P- ]/ B9 {+ q( Z, L4 o counter : integer;  -- position in store
) j5 w+ k8 d& \6 l+ }4 p9 w. {do
-- make sure there is a carbody in the store
7 X9 O4 Z& g$ m. e9 i5 Y' B" d  A. w if not StoreCarbody.empty() then
+ @. Y3 t% z: O. Q2 A$ e  found := false;
  counter := 1;
) A) I( o0 o: _
" Z3 J: U  ]; N; Q( X  -- iterate through the store
  while not found and counter <= StoreCarbody.xDim loop
   obj := StoreCarbody.pe(counter,1).cont;
   if(obj /= void) then
4 z! s" d: R% Q    found := true;
   end; -- if
# o7 |6 a5 L+ X, w: ?   counter := counter + 1;
4 H( j; n  Y! a' j  end; -- while
2 `* V, Y! e  x6 @
4 S9 D# ?0 f' z+ v2 y) D2 [  if found then
) s% a6 d& }8 q6 r: G+ \% t/ ]  -- put the carbody on a skid
+ b. X* A, I* c  D( D' [3 w! }   obj.move(@);
4 F7 F1 h! P* R! `. {1 {  end; -- if
4 O" E# Z6 x% H. c7 | end; -- if not StoreCarbody.empty
end;
里面的found急整个循环不太懂，求高手讲解下？急~~~~