sim talk 程序

hln6610320

is
obj : object;   -- first carbody in store
found : boolean;  -- found a chassis
counter : integer;  -- position in store
. Q8 \5 l% [) B( ?$ ?do
! M" t/ `- W7 L( T -- make sure there is a carbody in the store
: r. K' }. F( m; v  \ if not StoreCarbody.empty() then
5 Q: S5 G- `; Q) f! a5 _  found := false;
9 l: ^  z8 L3 m3 I$ C6 J, `  counter := 1;
) L% z2 z" h& p1 B$ D" J( L
8 c7 _( U& b1 {% l+ Z  -- iterate through the store
$ G) C/ C. X: S' J5 R4 m  while not found and counter <= StoreCarbody.xDim loop
9 _6 R$ m& y5 l& J/ X* @   obj := StoreCarbody.pe(counter,1).cont;
- f" r/ C0 o$ A. {* A+ K   if(obj /= void) then
    found := true;
   end; -- if
5 c6 ?4 N8 S5 H1 k$ N" ?3 C   counter := counter + 1;
  end; -- while
: b, Z  Y' C1 h7 B
7 K+ Y. B' G8 F" b3 x$ X- @' r  if found then
  -- put the carbody on a skid
! V5 `- i. p6 P6 g* o   obj.move(@);
  u$ W% s! U) g6 `7 \5 i  end; -- if
end; -- if not StoreCarbody.empty
end;
  O, N7 u0 }" ~8 ]' m: [# i8 a里面的found急整个循环不太懂，求高手讲解下？急~~~~