sim talk 程序

hln6610320

is
& h, j* s) C* k# n4 ^ obj : object;   -- first carbody in store
" ^7 F( E- ?& E: S, M0 ^- p; w, ~  \ found : boolean;  -- found a chassis
counter : integer;  -- position in store
) I; e+ [0 M; h, u) F* X) G  u" n, Udo
-- make sure there is a carbody in the store
1 C* p  X: W& d6 y3 f* w* z if not StoreCarbody.empty() then
  found := false;
  counter := 1;

  -- iterate through the store
$ a* U9 B1 X7 P0 F  while not found and counter <= StoreCarbody.xDim loop
   obj := StoreCarbody.pe(counter,1).cont;
   if(obj /= void) then
' Y. g9 d; Y3 J( U$ R    found := true;
   end; -- if
   counter := counter + 1;
  end; -- while

' {: ~# L0 j# W1 ?  if found then
  -- put the carbody on a skid
   obj.move(@);
4 W- Z5 v- l0 M# w0 C/ u, R# Y2 Z  end; -- if
end; -- if not StoreCarbody.empty
end;
里面的found急整个循环不太懂，求高手讲解下？急~~~~