sim talk 程序

hln6610320

is
) T7 S) {  z, K) B7 |- M( o+ r5 v obj : object;   -- first carbody in store
. ^! U9 o( t3 ~1 d4 r found : boolean;  -- found a chassis
/ E# X1 v% w/ ~+ j5 Q) Q: k counter : integer;  -- position in store
/ q0 \8 D. J5 H  M( }do
  _1 `3 m. o" P4 }2 h7 W% k! K -- make sure there is a carbody in the store
5 R1 _% i3 H$ E if not StoreCarbody.empty() then
6 [/ a5 R3 x: _  found := false;
  counter := 1;

  -- iterate through the store
  while not found and counter <= StoreCarbody.xDim loop
   obj := StoreCarbody.pe(counter,1).cont;
   if(obj /= void) then
5 ]4 d# ?9 D. x    found := true;
; i& {1 y! t4 ]4 p   end; -- if
   counter := counter + 1;
: `# }9 |9 R! x  ^* T  end; -- while

& G/ O! W8 [3 a$ X" j! U  if found then
- k# X. E/ J! o: d) Y  -- put the carbody on a skid
   obj.move(@);
  end; -- if
end; -- if not StoreCarbody.empty
end;
里面的found急整个循环不太懂，求高手讲解下？急~~~~