sim talk 程序

hln6610320

is
' B) a9 {( s" x7 h6 V0 }1 z9 ] obj : object;   -- first carbody in store
$ ^1 w+ Y5 H+ i found : boolean;  -- found a chassis
counter : integer;  -- position in store
do
-- make sure there is a carbody in the store
, X2 I8 Z! z0 X9 [ if not StoreCarbody.empty() then
  found := false;
: G7 g3 e  E; t' c7 ^2 P  counter := 1;
2 g( J7 v- C* n) t9 T: m: O
  -- iterate through the store
  while not found and counter <= StoreCarbody.xDim loop
   obj := StoreCarbody.pe(counter,1).cont;
% ~( x  C4 _2 F9 N7 h4 G/ }7 H$ Y  H/ ]   if(obj /= void) then
' }# m. g; D' G! V- |4 l    found := true;
   end; -- if
   counter := counter + 1;
  end; -- while
% m! A$ \5 [  I9 K$ o1 ^
  if found then
2 Y. G4 \# p' A" I4 r7 u0 H. H5 k  -- put the carbody on a skid
   obj.move(@);
- C+ A, v' U% x' [( p+ y  end; -- if
0 c8 l) f# D7 E% ~ end; -- if not StoreCarbody.empty
end;
里面的found急整个循环不太懂，求高手讲解下？急~~~~