sim talk 程序

hln6610320

is
obj : object;   -- first carbody in store
0 s7 X7 H3 U$ t" z7 @  o' s found : boolean;  -- found a chassis
% r8 y+ b& e, L) G. Y! k/ O; n counter : integer;  -- position in store
6 I' ]' e% ^1 h6 [: m! cdo
-- make sure there is a carbody in the store
if not StoreCarbody.empty() then
) D0 j! S* N& n  found := false;
7 A8 C4 D: o; L: x- F  counter := 1;

  -- iterate through the store
$ N) h0 I' [- y# c  while not found and counter <= StoreCarbody.xDim loop
   obj := StoreCarbody.pe(counter,1).cont;
   if(obj /= void) then
( g7 T1 D5 D/ J6 c5 S    found := true;
   end; -- if
0 [6 _5 \7 Z% u% e/ u0 C   counter := counter + 1;
  end; -- while
7 `/ J% \1 K9 E# y& l  O& k6 H- I
  if found then
  -- put the carbody on a skid
3 J- E! D: D; n$ E   obj.move(@);
  end; -- if
end; -- if not StoreCarbody.empty
end;
) \# ?- D! \6 [4 U里面的found急整个循环不太懂，求高手讲解下？急~~~~