sim talk 程序

hln6610320

is
obj : object;   -- first carbody in store
# u- u8 C7 C+ B7 N& G! n( b found : boolean;  -- found a chassis
6 O5 |: j! Z8 i2 P counter : integer;  -- position in store
6 p! R# Q% Z$ T: T5 odo
" p2 V/ X  f5 v+ [8 o -- make sure there is a carbody in the store
- m: ]2 X5 u! a6 P if not StoreCarbody.empty() then
  found := false;
+ ?# ^- A2 `: K, p  H. \  counter := 1;

6 J3 G% O6 s1 N4 @- Q& }  -- iterate through the store
6 ~% T2 e9 }" H2 e9 I  while not found and counter <= StoreCarbody.xDim loop
   obj := StoreCarbody.pe(counter,1).cont;
6 g0 Q; `$ K" H* A; t' P0 }   if(obj /= void) then
$ x& h: U! J+ f( N+ a5 n    found := true;
   end; -- if
* K( a  [& @; }$ s3 i1 }8 ~   counter := counter + 1;
  end; -- while

  if found then
5 ]. d( A' I# ]  -- put the carbody on a skid
" U5 `1 o- T. M: D# l   obj.move(@);
  end; -- if
end; -- if not StoreCarbody.empty
end;
8 C7 |: k1 ^. D里面的found急整个循环不太懂，求高手讲解下？急~~~~