sim talk 程序

hln6610320

is
2 P+ o1 `+ V3 l  O% i! U obj : object;   -- first carbody in store
" D( p+ }' O* p+ t found : boolean;  -- found a chassis
6 J2 @1 e: U6 }; Q7 y* u counter : integer;  -- position in store
- C: Z. C4 I) N0 v$ _% j6 [do
-- make sure there is a carbody in the store
) w) e; K7 Y( l if not StoreCarbody.empty() then
* [- h5 q9 F& [$ I: o5 f  found := false;
. A& ^0 _1 ^2 o! A$ u# z  counter := 1;

  -- iterate through the store
) M/ c' k7 w+ F) c; }  while not found and counter <= StoreCarbody.xDim loop
$ [7 C1 Q$ d" q   obj := StoreCarbody.pe(counter,1).cont;
   if(obj /= void) then
    found := true;
4 T% t; R# a" T# g8 R   end; -- if
   counter := counter + 1;
; i* S  }& H% v- s6 M  end; -- while

  if found then
; p# U" V3 ]5 C0 L) E  -- put the carbody on a skid
, U7 _7 z& e1 P: O, P% X   obj.move(@);
1 z- Q- `/ r: [: R$ t9 A: A  end; -- if
) j% q- }7 A) X1 g end; -- if not StoreCarbody.empty
end;
% Z% H$ ^& [3 A; Z+ Q. [/ W* \里面的found急整个循环不太懂，求高手讲解下？急~~~~