sim talk 程序

hln6610320

is
obj : object;   -- first carbody in store
$ v9 C3 k6 F( I: D  I% y  n1 u found : boolean;  -- found a chassis
counter : integer;  -- position in store
0 m6 z3 K, l/ a2 a& @3 Cdo
, e  j- v+ w  E: I/ ^/ j7 } -- make sure there is a carbody in the store
: J0 l' O% A4 D5 j if not StoreCarbody.empty() then
4 O; R. S! X7 [, F) z( c: r  found := false;
" g, C2 m2 o* A" R) X  m& y9 f  counter := 1;

  -- iterate through the store
  while not found and counter <= StoreCarbody.xDim loop
! z# J, B  g/ i/ A   obj := StoreCarbody.pe(counter,1).cont;
   if(obj /= void) then
    found := true;
   end; -- if
   counter := counter + 1;
  end; -- while
* r) g- n- ]: n
  if found then
$ A6 M% C5 W/ i/ V  -- put the carbody on a skid
% [( d0 p1 r8 Q4 B   obj.move(@);
1 T: s5 B7 G/ x5 t6 K  end; -- if
) K$ H8 w! n# @9 |5 A: E end; -- if not StoreCarbody.empty
end;
4 y6 o7 p* u# y5 Z+ {1 ]里面的found急整个循环不太懂，求高手讲解下？急~~~~