sim talk 程序

hln6610320

is
0 t. G3 @% V! {) @$ N obj : object;   -- first carbody in store
4 X; Y  n0 }6 r+ a+ _ found : boolean;  -- found a chassis
% ?4 g5 F! L+ T% m0 L- {- I8 s counter : integer;  -- position in store
! _1 V/ T; Q8 Udo
-- make sure there is a carbody in the store
, a, a- ], A$ u' g if not StoreCarbody.empty() then
  found := false;
  counter := 1;

  -- iterate through the store
  while not found and counter <= StoreCarbody.xDim loop
! H' Y( x" q. {$ x   obj := StoreCarbody.pe(counter,1).cont;
   if(obj /= void) then
    found := true;
7 J! \4 ?  X5 Z4 e: I3 S) E- b   end; -- if
8 s7 R, A  H, `0 V/ k   counter := counter + 1;
  end; -- while

7 ~& p9 W9 q) E  J: k  if found then
/ B/ O& D$ p1 w  -- put the carbody on a skid
   obj.move(@);
  end; -- if
8 x( a+ P+ O5 H- u! N, n& K1 z, Q% H$ k4 d end; -- if not StoreCarbody.empty
end;
里面的found急整个循环不太懂，求高手讲解下？急~~~~