sim talk 程序

hln6610320

is
obj : object;   -- first carbody in store
found : boolean;  -- found a chassis
+ L0 c; |( G' m: Q" e counter : integer;  -- position in store
do
-- make sure there is a carbody in the store
if not StoreCarbody.empty() then
3 x* r, ?% e& |# ~  found := false;
  counter := 1;

  -- iterate through the store
# D, v5 y8 h: [  b  while not found and counter <= StoreCarbody.xDim loop
   obj := StoreCarbody.pe(counter,1).cont;
4 X' h+ x9 I/ t0 }& A, y   if(obj /= void) then
    found := true;
) i3 I# A4 J1 k2 z   end; -- if
   counter := counter + 1;
  end; -- while
6 }+ G2 ^1 _1 N" P- D6 u
  if found then
  a8 N/ G# P/ t" U  -- put the carbody on a skid
   obj.move(@);
" F' D5 _& i4 U  end; -- if
end; -- if not StoreCarbody.empty
end;
9 |% u) K5 ]; V; b! g" _1 K里面的found急整个循环不太懂，求高手讲解下？急~~~~