sim talk 程序

hln6610320

is
) Z% X3 w. G2 W7 T  @; ~  J: W9 }  g obj : object;   -- first carbody in store
% W4 T  L- [/ L found : boolean;  -- found a chassis
counter : integer;  -- position in store
do
3 o2 z" B# b% X3 H2 ?; N$ B/ `, r -- make sure there is a carbody in the store
if not StoreCarbody.empty() then
7 C* x! q! F) h( @  found := false;
  counter := 1;

  -- iterate through the store
2 D" N) ^; V" R  while not found and counter <= StoreCarbody.xDim loop
   obj := StoreCarbody.pe(counter,1).cont;
% h$ ?( I' {+ J- q7 H   if(obj /= void) then
$ s$ V3 |8 b0 J0 ?    found := true;
/ G2 y: O  J3 N+ ~   end; -- if
# P4 _# S5 }# V- N9 Q8 B   counter := counter + 1;
  end; -- while
0 J, ^/ r" [) H$ b, ^
* T% m7 B; G$ X) `! ^+ Q  if found then
. `. p  c# r3 p0 h# D  -- put the carbody on a skid
; ?8 B) L4 k4 o" N% c2 i   obj.move(@);
  end; -- if
end; -- if not StoreCarbody.empty
end;
里面的found急整个循环不太懂，求高手讲解下？急~~~~