sim talk 程序

hln6610320

is
/ i  x8 D2 c, e. _( U5 ? obj : object;   -- first carbody in store
! A9 m6 o; z# R found : boolean;  -- found a chassis
3 T8 x# C) j/ B# r' ?$ b% w counter : integer;  -- position in store
4 I; X& e. G7 p2 I% h! f) [  m( Qdo
1 G  Z0 z1 G! S* j) x* M3 \0 m -- make sure there is a carbody in the store
2 L: N( I; d. Q2 \ if not StoreCarbody.empty() then
9 l7 T; N; T: i  found := false;
6 _8 e( t3 e+ F8 \  counter := 1;
$ A) j' ^  a) W* ?
  -- iterate through the store
  while not found and counter <= StoreCarbody.xDim loop
. @: B0 c8 c2 _& ?   obj := StoreCarbody.pe(counter,1).cont;
- `9 s) i0 V& X( @) c   if(obj /= void) then
3 u; C1 ]4 V7 m! K' J    found := true;
+ B+ F  Q+ ~8 c' r9 @7 _   end; -- if
+ b# H/ d/ M4 x8 O   counter := counter + 1;
  end; -- while

/ L4 A. R. |4 T. [  if found then
4 o# C( z+ z0 q' J" b3 {# N  -- put the carbody on a skid
   obj.move(@);
4 d) x# w! f' j4 O, A  end; -- if
end; -- if not StoreCarbody.empty
7 N' W9 q, m% t% yend;
2 m7 ~9 u# R2 s% p里面的found急整个循环不太懂，求高手讲解下？急~~~~