sim talk 程序

hln6610320

is
) B) Y1 T- T( }( W obj : object;   -- first carbody in store
# D& f1 _( C+ [( ~( H found : boolean;  -- found a chassis
0 W2 \' A4 b6 ~# [$ Q8 S' ]+ Z& n. | counter : integer;  -- position in store
do
- B- p+ F& i1 n$ M; N* C -- make sure there is a carbody in the store
if not StoreCarbody.empty() then
  found := false;
) T5 u! F/ i- d- ~' ^- C& I  counter := 1;

$ {) K. l! K5 T) j4 K: ?, x  -- iterate through the store
  while not found and counter <= StoreCarbody.xDim loop
   obj := StoreCarbody.pe(counter,1).cont;
   if(obj /= void) then
    found := true;
   end; -- if
3 N: a" z2 b/ A* L   counter := counter + 1;
3 p( l) `% b5 S+ ?: c: l! _  end; -- while
4 I" o1 [  f0 D; @
  if found then
$ u0 I# i7 D2 T/ z, N$ T1 z  -- put the carbody on a skid
   obj.move(@);
) p, ?. D4 n9 t8 D* r5 m  end; -- if
end; -- if not StoreCarbody.empty
& _- q% }6 T. ~6 u6 Nend;
里面的found急整个循环不太懂，求高手讲解下？急~~~~