sim talk 程序

hln6610320

is
$ H' g: T9 t6 [" s- | obj : object;   -- first carbody in store
' `# W: `' o6 X6 }" W found : boolean;  -- found a chassis
5 ~  A- c! e3 g3 S counter : integer;  -- position in store
8 f' c: m# [& \) v2 r: Q/ Odo
5 R, e* Q# S; ^' V; H) N! I -- make sure there is a carbody in the store
# o+ o/ @1 L1 c9 ] if not StoreCarbody.empty() then
, P4 i* @( m) e5 u" D  found := false;
  counter := 1;

  -- iterate through the store
5 N$ l% T* W% x, g  while not found and counter <= StoreCarbody.xDim loop
2 w" E% K! b9 M. r   obj := StoreCarbody.pe(counter,1).cont;
$ q7 w7 d0 X" g   if(obj /= void) then
    found := true;
0 W. G8 d1 G/ c, o2 [: b. y: M   end; -- if
' @8 t0 o. N4 N5 `$ E, M- U0 U2 T   counter := counter + 1;
8 E8 E, f+ C* t  end; -- while
4 A: T( q8 ~7 ^8 k/ ^- h
0 P# ~9 r0 d: I$ o1 Y" ]  if found then
' B8 H! a# ?: A  -- put the carbody on a skid
1 j! E: ^+ F6 O8 o1 ]5 w% `8 U   obj.move(@);
  end; -- if
end; -- if not StoreCarbody.empty
% O. w- U0 @1 z" L( I  u+ Cend;
里面的found急整个循环不太懂，求高手讲解下？急~~~~