sim talk 程序

hln6610320

is
& |* R3 u4 M+ i% e obj : object;   -- first carbody in store
found : boolean;  -- found a chassis
; j9 ~# I- P6 w1 L. s3 C" g counter : integer;  -- position in store
do
-- make sure there is a carbody in the store
if not StoreCarbody.empty() then
# y0 J2 p# p7 _& h" S5 c& k1 c  found := false;
! F! S2 I+ Y" d* A2 d$ O, S9 n  counter := 1;

7 g" M+ I4 ^9 c8 Z6 ^; h  -- iterate through the store
  while not found and counter <= StoreCarbody.xDim loop
8 I9 ^: P" F! T5 [( Q: Q   obj := StoreCarbody.pe(counter,1).cont;
   if(obj /= void) then
5 Y2 J2 j, Y9 i# a$ j8 @% Y    found := true;
- Q* a' {* R0 P: V/ J6 D   end; -- if
' K! @# l! |5 M/ y+ D   counter := counter + 1;
  end; -- while
% M% u% J% K# D
  if found then
  -- put the carbody on a skid
   obj.move(@);
  end; -- if
end; -- if not StoreCarbody.empty
end;
里面的found急整个循环不太懂，求高手讲解下？急~~~~