sim talk 程序

hln6610320

is
! E$ k' t' I; t7 f obj : object;   -- first carbody in store
found : boolean;  -- found a chassis
* N% R2 J/ b! m: Y! \! `; T4 ^ counter : integer;  -- position in store
do
9 M& O1 j0 Z: B" H$ ?2 ^ -- make sure there is a carbody in the store
4 R$ h( n, j  f9 P& K if not StoreCarbody.empty() then
4 S4 L/ J! ~$ H2 \4 T; d1 t  found := false;
, e( j( O6 J& q8 v. ~4 P  counter := 1;
3 M0 _. l1 U- ?: N
% a; c2 v; ?3 p1 ?' N- B  -- iterate through the store
  while not found and counter <= StoreCarbody.xDim loop
   obj := StoreCarbody.pe(counter,1).cont;
   if(obj /= void) then
$ A6 d+ ]' X: I; }2 y, c    found := true;
   end; -- if
8 ], V1 A4 Q& R. n" s+ W. t   counter := counter + 1;
3 `1 o. f% M, W  end; -- while
% ?* t/ s: s9 Y
' P  E0 K2 k: w& q8 z: s  if found then
& `8 ]6 Q1 a8 k1 E7 c7 o# }. g  -- put the carbody on a skid
; J7 D" X& p; o4 B$ n+ G" h, N   obj.move(@);
  end; -- if
end; -- if not StoreCarbody.empty
end;
1 a; X* Z0 k' x- n: }% V% s6 M$ s里面的found急整个循环不太懂，求高手讲解下？急~~~~