sim talk 程序

hln6610320

is
+ U7 k- F' b/ ? obj : object;   -- first carbody in store
found : boolean;  -- found a chassis
counter : integer;  -- position in store
do
-- make sure there is a carbody in the store
8 V" R# O( w% f6 { if not StoreCarbody.empty() then
  found := false;
  counter := 1;

  -- iterate through the store
  while not found and counter <= StoreCarbody.xDim loop
  ~( u: L2 m1 k% g6 P   obj := StoreCarbody.pe(counter,1).cont;
   if(obj /= void) then
3 ~6 R" V8 Z, g$ x+ J    found := true;
   end; -- if
   counter := counter + 1;
  end; -- while
1 |; c) Y  _" ]/ f
  if found then
  -- put the carbody on a skid
   obj.move(@);
  end; -- if
end; -- if not StoreCarbody.empty
+ T! p4 t& m1 E3 M, Y0 p4 }end;
里面的found急整个循环不太懂，求高手讲解下？急~~~~