sim talk 程序

hln6610320

is
* w% Z( V% }5 b: o) q' C obj : object;   -- first carbody in store
found : boolean;  -- found a chassis
2 ]8 n5 X0 M0 D& e: Z. I6 j counter : integer;  -- position in store
do
-- make sure there is a carbody in the store
  p8 a' I6 w: H1 ?9 _ if not StoreCarbody.empty() then
  found := false;
' P- @# h2 z. d# {$ \  counter := 1;

  -- iterate through the store
' s4 O- X$ q7 F  while not found and counter <= StoreCarbody.xDim loop
3 }1 ?8 Z7 o* x( ^   obj := StoreCarbody.pe(counter,1).cont;
5 m) u. F6 N. U   if(obj /= void) then
& v& h. i* ?; v+ m! j    found := true;
   end; -- if
0 k* F9 w5 H, V0 {+ C# F   counter := counter + 1;
/ {, ^- p3 r1 t9 \' y  end; -- while
' R6 P2 C8 W6 b6 G" }6 T; P3 D* F
3 @7 f2 a' A! ?" ?$ _" H  if found then
  -- put the carbody on a skid
   obj.move(@);
$ H: Z; ^* @6 i0 g4 h- v7 ?$ ^  end; -- if
% w! [4 x+ o( }4 F" D( U7 F end; -- if not StoreCarbody.empty
* ~8 Z- {1 S" R9 K, Pend;
3 y. s: C* i( D  `里面的found急整个循环不太懂，求高手讲解下？急~~~~