sim talk 程序

hln6610320

is
obj : object;   -- first carbody in store
found : boolean;  -- found a chassis
6 j( t$ {6 p( |- }+ ^: J9 R0 a' U counter : integer;  -- position in store
do
-- make sure there is a carbody in the store
if not StoreCarbody.empty() then
2 T5 R$ h4 _. \! _) J  found := false;
  counter := 1;

2 O' v& f( ]8 S" C  -- iterate through the store
  while not found and counter <= StoreCarbody.xDim loop
% \  n+ T. l8 x: Z# V$ T   obj := StoreCarbody.pe(counter,1).cont;
6 W( x4 Q* k- Y+ D  u* Q- I) @' D5 P   if(obj /= void) then
    found := true;
! ]- o; w0 b/ C8 j   end; -- if
   counter := counter + 1;
  end; -- while
. ^6 O) Y2 p, c! G* Q
9 ^$ H% `3 h; q  if found then
1 L3 B9 P+ C  G8 @9 [. m' \  -- put the carbody on a skid
   obj.move(@);
  end; -- if
end; -- if not StoreCarbody.empty
! y- a/ b; {/ g2 J% G+ l) Vend;
" ]  N' Y$ z% a% Y里面的found急整个循环不太懂，求高手讲解下？急~~~~