sim talk 程序

hln6610320

is
obj : object;   -- first carbody in store
found : boolean;  -- found a chassis
% a& Y! g" D5 i2 U. B. G4 ^& J  R counter : integer;  -- position in store
do
) m. l* Z! V- v -- make sure there is a carbody in the store
/ L$ b- W  r  }, v! q  g if not StoreCarbody.empty() then
  found := false;
  counter := 1;

2 u. a* ~4 P' }2 P$ L2 P  -- iterate through the store
# `1 u# H9 h. ~" o, c  V5 e  while not found and counter <= StoreCarbody.xDim loop
   obj := StoreCarbody.pe(counter,1).cont;
' q( M) W* Z4 ~1 Z   if(obj /= void) then
    found := true;
   end; -- if
   counter := counter + 1;
3 h, t& f" S! A, j7 K  end; -- while
+ x4 {% k* ?$ {) N3 |
  if found then
9 p- f: M6 R, z, {! I  -- put the carbody on a skid
   obj.move(@);
  end; -- if
8 E" Q% E# T- W2 w( \ end; -- if not StoreCarbody.empty
& n* m' @3 h( W/ _3 }1 xend;
里面的found急整个循环不太懂，求高手讲解下？急~~~~