sim talk 程序

hln6610320

is
1 P2 C2 x- A( O- H obj : object;   -- first carbody in store
8 z- J9 q$ ?) \, w found : boolean;  -- found a chassis
counter : integer;  -- position in store
) p7 @1 U, n1 o- Y; u: tdo
-- make sure there is a carbody in the store
if not StoreCarbody.empty() then
  found := false;
  counter := 1;

  -- iterate through the store
  while not found and counter <= StoreCarbody.xDim loop
   obj := StoreCarbody.pe(counter,1).cont;
, P7 G. J7 V1 `2 |   if(obj /= void) then
    found := true;
   end; -- if
6 N) ?2 m. k' ~3 L   counter := counter + 1;
  end; -- while

7 D( k  Z5 \; a$ s8 M2 S  if found then
  -- put the carbody on a skid
   obj.move(@);
  end; -- if
# g0 |% {+ W9 v( N end; -- if not StoreCarbody.empty
end;
里面的found急整个循环不太懂，求高手讲解下？急~~~~