sim talk 程序

hln6610320

is
" i  b  d8 Z) s+ U' F3 d obj : object;   -- first carbody in store
found : boolean;  -- found a chassis
counter : integer;  -- position in store
9 [% \$ F" I4 {% x6 kdo
-- make sure there is a carbody in the store
) t6 Q  u6 Z+ X4 o; K; S if not StoreCarbody.empty() then
! Y9 `9 w  n& F$ N) y  found := false;
5 w' [6 p+ l  _  ^* Y/ J  counter := 1;
( p+ u0 @( }4 Q$ p, ?# e
7 h% K% F. f- T2 z8 H7 v  -- iterate through the store
5 c) I5 L0 j6 c2 V, ]' i3 i3 y6 b  while not found and counter <= StoreCarbody.xDim loop
   obj := StoreCarbody.pe(counter,1).cont;
   if(obj /= void) then
    found := true;
7 L  {. |' X& o* b4 m4 P   end; -- if
) ]2 E# ?0 J5 |+ E   counter := counter + 1;
  end; -- while
" _5 S- h9 v" }
  e* `# ~% [7 y5 K4 x" N$ z8 E  if found then
0 }* T: D# z, T: H- U1 C0 D  -- put the carbody on a skid
: i  I/ x% M4 h& ~9 i: X7 g3 G   obj.move(@);
) }) w0 G- C6 F. `9 S( D: M+ X  end; -- if
end; -- if not StoreCarbody.empty
end;
里面的found急整个循环不太懂，求高手讲解下？急~~~~