sim talk 程序

hln6610320

is
/ _5 K" R( j8 J0 r obj : object;   -- first carbody in store
found : boolean;  -- found a chassis
counter : integer;  -- position in store
do
/ T# m+ D% K) P  D! L0 y" r/ j -- make sure there is a carbody in the store
if not StoreCarbody.empty() then
  found := false;
) o( O0 D& ], _) k- z, ^  counter := 1;

4 F" B' ~3 `+ Q) p/ i% z' w  Y  -- iterate through the store
( ?0 ]) G7 Z0 Q" K6 ^: U9 ~  while not found and counter <= StoreCarbody.xDim loop
/ d* Q8 ]' Y% w% |' Q) }5 S7 K   obj := StoreCarbody.pe(counter,1).cont;
0 S( W- y+ t! A# H5 a5 w   if(obj /= void) then
; M8 ?5 Y$ F! r, B; ]1 o    found := true;
   end; -- if
* }# w% ^1 P9 V2 o- X4 A   counter := counter + 1;
! k( V/ @0 S* R# G5 R3 h. t& D2 q  end; -- while

  if found then
  -- put the carbody on a skid
   obj.move(@);
$ }4 _  h) ~3 Q8 s. J1 J* d5 ^  end; -- if
% o5 K2 S  p% c% k; z end; -- if not StoreCarbody.empty
end;
里面的found急整个循环不太懂，求高手讲解下？急~~~~