sim talk 程序

hln6610320

is
obj : object;   -- first carbody in store
5 y: k% n9 A2 y# J6 V3 Y found : boolean;  -- found a chassis
counter : integer;  -- position in store
3 ]' ^6 I6 A3 E" ^- odo
-- make sure there is a carbody in the store
+ C) s9 W# \6 m if not StoreCarbody.empty() then
  found := false;
  counter := 1;

" l1 P; [( D  m6 Y  -- iterate through the store
5 t! I) p7 N/ i" P  while not found and counter <= StoreCarbody.xDim loop
% T8 Y/ }! o6 X6 g) w   obj := StoreCarbody.pe(counter,1).cont;
   if(obj /= void) then
    found := true;
# I9 G" j0 }4 }$ g3 C5 O" ~; h   end; -- if
( `5 Q' b/ V2 W& ]; h2 r2 X$ L' K; _   counter := counter + 1;
  end; -- while
9 c% V2 e. p7 Z8 e" I
0 M& g% D) Q; L- L$ X  if found then
  -- put the carbody on a skid
   obj.move(@);
  end; -- if
end; -- if not StoreCarbody.empty
end;
里面的found急整个循环不太懂，求高手讲解下？急~~~~