sim talk 程序

hln6610320

is
obj : object;   -- first carbody in store
. N+ d0 P6 s& Y/ L! [. M* B found : boolean;  -- found a chassis
; o( b4 E, ~% P- z4 ~3 D counter : integer;  -- position in store
do
$ t) K! g5 e5 O$ w8 B) t -- make sure there is a carbody in the store
if not StoreCarbody.empty() then
# K' E. \4 `5 c0 I; a+ J% X  found := false;
  counter := 1;

  -- iterate through the store
  while not found and counter <= StoreCarbody.xDim loop
! W8 \3 L) z3 I2 b7 k; J   obj := StoreCarbody.pe(counter,1).cont;
# O4 R2 n% k! c   if(obj /= void) then
  I  i0 F* ]2 b; \) \! p$ p    found := true;
   end; -- if
   counter := counter + 1;
9 e- p, }6 n+ m( \4 K1 \  end; -- while
7 |1 l- N3 D/ b& G% }
: U/ Y, h% S' B) {$ w  if found then
  -- put the carbody on a skid
   obj.move(@);
  end; -- if
% H. R' d) }* S6 @" k end; -- if not StoreCarbody.empty
end;
' M% r0 \) G6 ?8 u, b+ Z! {+ G0 I里面的found急整个循环不太懂，求高手讲解下？急~~~~