sim talk 程序

hln6610320

is
obj : object;   -- first carbody in store
" J+ W: ?( f3 N3 v7 O7 \  v, |* \ found : boolean;  -- found a chassis
counter : integer;  -- position in store
1 h( Y0 V& c3 O( J  D) M& I) @do
2 {" o; l1 {6 D -- make sure there is a carbody in the store
if not StoreCarbody.empty() then
- b3 X/ J8 W" I# D4 W' g  found := false;
  counter := 1;
2 @$ g5 E/ z6 l# ]0 @$ b9 c; S: i
  -- iterate through the store
5 x5 v# n! S" y! y/ K, ^1 L8 X  while not found and counter <= StoreCarbody.xDim loop
) K! C* `  f* j* N# U   obj := StoreCarbody.pe(counter,1).cont;
8 g' k4 p! f$ L. m; U   if(obj /= void) then
8 T9 l0 O0 F2 z  T( E+ T    found := true;
   end; -- if
$ C5 S) Q% B; G" x( @5 @   counter := counter + 1;
  end; -- while
) P& b0 \! f$ w
5 I; [1 z5 Q) v; x5 ]# `) ]2 I, Y  if found then
  -- put the carbody on a skid
   obj.move(@);
  end; -- if
# m# S$ w4 T+ E+ [1 P end; -- if not StoreCarbody.empty
end;
  N- e. d8 n6 _. I& H( l; l1 y. U里面的found急整个循环不太懂，求高手讲解下？急~~~~