sim talk 程序

hln6610320

is
obj : object;   -- first carbody in store
! J+ \$ e$ c. [ found : boolean;  -- found a chassis
' m$ k, m$ y7 y6 [/ P( k2 q# E9 W counter : integer;  -- position in store
do
$ p5 ^$ k3 j! y -- make sure there is a carbody in the store
  \1 i; x0 O! A- v8 X: f0 Y  N) Q: e if not StoreCarbody.empty() then
  found := false;
  counter := 1;

  -- iterate through the store
  while not found and counter <= StoreCarbody.xDim loop
   obj := StoreCarbody.pe(counter,1).cont;
5 a3 l) f8 O8 F1 y$ Z   if(obj /= void) then
    found := true;
) J: p' t" L; V0 ~5 X0 _5 D   end; -- if
( w/ E2 Y; I! n   counter := counter + 1;
  end; -- while
9 D* }) _. x- s( ?$ k" m
/ U) c% P- j% i: z7 \  if found then
6 p9 M; `0 _+ M" t% F  -- put the carbody on a skid
   obj.move(@);
  end; -- if
end; -- if not StoreCarbody.empty
end;
$ e6 o) c$ k9 W0 e) |/ i里面的found急整个循环不太懂，求高手讲解下？急~~~~