sim talk 程序

hln6610320

is
obj : object;   -- first carbody in store
found : boolean;  -- found a chassis
6 F4 ~7 D4 g$ V; Z1 Z4 `: P- `% Q counter : integer;  -- position in store
do
-- make sure there is a carbody in the store
& x! _+ T0 P1 \) v+ q* N if not StoreCarbody.empty() then
8 k/ W% X3 S( U, h  found := false;
  counter := 1;

  -- iterate through the store
  while not found and counter <= StoreCarbody.xDim loop
   obj := StoreCarbody.pe(counter,1).cont;
   if(obj /= void) then
    found := true;
   end; -- if
6 r; v  Z, k( F   counter := counter + 1;
# Q2 `6 Z* o5 ^! R  ^) u9 S' b  end; -- while
* t+ c& d6 v) ~/ e7 j' P* J8 z
, g; H" t  m# V) ^* q7 L: U  if found then
  -- put the carbody on a skid
   obj.move(@);
  end; -- if
: S( o7 s' T; u+ ]% P end; -- if not StoreCarbody.empty
) J$ K; U6 `7 wend;
* J4 N$ }+ n; i# l3 k! D& Y里面的found急整个循环不太懂，求高手讲解下？急~~~~