sim talk 程序

hln6610320

is
' M# D. y* [7 o- k obj : object;   -- first carbody in store
6 u1 _3 x) l. u; n. y3 M found : boolean;  -- found a chassis
" ]- K* N6 }+ X5 y% i" g& c counter : integer;  -- position in store
do
4 K$ ]* Y9 Z/ b% I -- make sure there is a carbody in the store
! H# w& m" H. X if not StoreCarbody.empty() then
  found := false;
  counter := 1;
+ b9 W' I0 {  Z0 _1 ]' |$ R3 J
6 d2 i; J8 o5 ]; \  -- iterate through the store
  while not found and counter <= StoreCarbody.xDim loop
3 Y6 C; U3 a9 \0 U1 D9 h4 a$ X   obj := StoreCarbody.pe(counter,1).cont;
   if(obj /= void) then
7 h- X+ `% T  n$ h/ i    found := true;
   end; -- if
4 L0 s1 d. W. u* ~9 }   counter := counter + 1;
& `! y! Z' V- u3 Y* t, ~9 p  end; -- while
! G, S; g( P# H. T
  if found then
6 E7 ^- h# A: _9 I- T* }7 k  -- put the carbody on a skid
, P) Q) j7 U  t6 E9 ~* T4 [* r9 l   obj.move(@);
1 `4 w) O+ r9 X  R  end; -- if
end; -- if not StoreCarbody.empty
* ]) C; Y+ |, ^* u5 Aend;
4 }( d# P: K* }( e里面的found急整个循环不太懂，求高手讲解下？急~~~~