sim talk 程序

hln6610320

is
obj : object;   -- first carbody in store
found : boolean;  -- found a chassis
# g; h8 V6 V0 I! G counter : integer;  -- position in store
2 e. d& e( W) z- i, Jdo
2 r' \, U0 N9 D0 ^% D0 h- z, \# J, I -- make sure there is a carbody in the store
) p' ^$ c7 t2 r5 _6 Q3 \ if not StoreCarbody.empty() then
  found := false;
  counter := 1;
4 E$ K  _# D9 G: z
  -- iterate through the store
  while not found and counter <= StoreCarbody.xDim loop
   obj := StoreCarbody.pe(counter,1).cont;
   if(obj /= void) then
    found := true;
/ l3 V/ p' B  z1 P/ \2 G   end; -- if
   counter := counter + 1;
  end; -- while
, ^' @& D4 L- r2 w
- o" ~1 k$ i9 T) m# Z; g  if found then
# q$ q. `1 C1 i1 R& x: X  -- put the carbody on a skid
8 O) [1 y. e/ H/ _* D1 h) u   obj.move(@);
* j$ h. F8 h# \( u+ N- r  end; -- if
# \6 G: M& z0 i0 k, z0 w end; -- if not StoreCarbody.empty
1 s" }. Z5 p+ W, zend;
里面的found急整个循环不太懂，求高手讲解下？急~~~~