sim talk 程序

hln6610320

is
obj : object;   -- first carbody in store
3 t2 V, E8 P+ f found : boolean;  -- found a chassis
5 k( N  E! s9 s6 ^! ?! e counter : integer;  -- position in store
do
-- make sure there is a carbody in the store
/ H5 t. I2 j) _/ M5 k if not StoreCarbody.empty() then
" y: N; Z: V" t# P  found := false;
  counter := 1;
: P) B& @8 L- U: N. h
  -- iterate through the store
+ }8 H+ K7 U# M4 q- W5 @  while not found and counter <= StoreCarbody.xDim loop
) H- Q0 T: q6 t, c! }# x& u/ n$ a   obj := StoreCarbody.pe(counter,1).cont;
( s5 T2 V! b5 E- X% J   if(obj /= void) then
    found := true;
   end; -- if
5 f4 X( C( J5 J+ h" D0 `* y   counter := counter + 1;
  end; -- while
. R/ c- G3 h: E2 L
% y, |0 K: L0 i3 A9 U. M* e  if found then
  -- put the carbody on a skid
' K0 |/ B; g- V: r; X   obj.move(@);
  end; -- if
end; -- if not StoreCarbody.empty
1 j/ x8 d8 R) [3 [end;
里面的found急整个循环不太懂，求高手讲解下？急~~~~