sim talk 程序

hln6610320

is
obj : object;   -- first carbody in store
! h; S4 N. T6 W8 d) t' @% [ found : boolean;  -- found a chassis
counter : integer;  -- position in store
do
! L9 f6 e. H. e0 [2 M -- make sure there is a carbody in the store
if not StoreCarbody.empty() then
+ C( J  t0 l. s  found := false;
; n1 Z  M, k& H4 _7 p& G3 p  counter := 1;
2 m! e+ j: y9 W$ n3 Q8 _0 |/ X
: U' G, |* c# O+ r& s& C  -- iterate through the store
  while not found and counter <= StoreCarbody.xDim loop
   obj := StoreCarbody.pe(counter,1).cont;
! c+ Z8 o! j' Z& s0 q( T# O) ~   if(obj /= void) then
1 O  [1 Q6 ?* k# [" d7 y' k8 R    found := true;
   end; -- if
   counter := counter + 1;
6 t. T& u$ Y( g( |" Q  end; -- while
9 d6 k6 z# \' p( j( K4 f) a7 @
$ }3 S. i) W* a. X. O, a  {( A  if found then
  -- put the carbody on a skid
   obj.move(@);
  end; -- if
. O) W. _5 u# G; A! C0 }; f end; -- if not StoreCarbody.empty
end;
里面的found急整个循环不太懂，求高手讲解下？急~~~~