sim talk 程序

hln6610320

is
, r8 K2 ]: }/ K. j) s obj : object;   -- first carbody in store
found : boolean;  -- found a chassis
) Y, G3 d+ o3 _/ w" P0 X counter : integer;  -- position in store
1 O2 k, ~, i4 g8 D/ V4 |) \/ _do
  j% N, b! v& c% [# f6 H8 B  [ -- make sure there is a carbody in the store
, A1 t- J( o+ C& w' z if not StoreCarbody.empty() then
  found := false;
  counter := 1;

  -- iterate through the store
  while not found and counter <= StoreCarbody.xDim loop
7 F; ]% A, G0 U1 @- e; I+ k   obj := StoreCarbody.pe(counter,1).cont;
   if(obj /= void) then
    found := true;
# q% }9 `9 Q, m; ]5 D) M+ c: Y7 B( m   end; -- if
   counter := counter + 1;
  end; -- while

% V5 V# N" W  ~/ `  if found then
. W( e2 l* L6 c2 Q) H  ]  -- put the carbody on a skid
) u! y. m& D4 {   obj.move(@);
3 b+ N* S8 p$ u7 Z' j. c: y  end; -- if
end; -- if not StoreCarbody.empty
3 j" z1 n! Q  b" t0 z1 dend;
里面的found急整个循环不太懂，求高手讲解下？急~~~~