sim talk 程序

hln6610320

is
obj : object;   -- first carbody in store
found : boolean;  -- found a chassis
counter : integer;  -- position in store
do
/ h/ {6 N' e* g; M -- make sure there is a carbody in the store
if not StoreCarbody.empty() then
) @# X' t, p& p+ V3 }  found := false;
/ x* }" K# }7 n  counter := 1;

  -- iterate through the store
4 |; E% A  j* b9 b$ m# x  while not found and counter <= StoreCarbody.xDim loop
4 o/ ~* |4 o6 `4 M/ S$ W4 o1 P6 P* o8 l   obj := StoreCarbody.pe(counter,1).cont;
) j( [( r9 |- ~6 t! {   if(obj /= void) then
  A* r1 i, w- k1 V- V% x    found := true;
+ v( G# W) k, q( \   end; -- if
   counter := counter + 1;
+ x% D' t. U3 v: b' z- ~' X  end; -- while

  if found then
  -- put the carbody on a skid
# x3 l0 w7 b( i+ I7 t+ w5 v   obj.move(@);
  end; -- if
end; -- if not StoreCarbody.empty
end;
里面的found急整个循环不太懂，求高手讲解下？急~~~~