sim talk 程序

hln6610320

is
obj : object;   -- first carbody in store
found : boolean;  -- found a chassis
counter : integer;  -- position in store
do
-- make sure there is a carbody in the store
. x9 I( z3 ]4 U$ a* @1 y if not StoreCarbody.empty() then
" I  Y+ u* d+ S7 E' y" h7 J  found := false;
3 X8 d2 @2 m8 a1 k  counter := 1;
. S- ]; r2 c+ J7 n: K4 C3 H2 r
  -- iterate through the store
  while not found and counter <= StoreCarbody.xDim loop
) `- ]( ?6 ]& F: C6 k   obj := StoreCarbody.pe(counter,1).cont;
   if(obj /= void) then
    found := true;
) j" S3 v7 K# G. s4 d   end; -- if
* _# r* ~# i5 z0 v0 V: A   counter := counter + 1;
- n, g0 ~0 f% M) B) U  end; -- while

/ `+ ]* K9 T( C7 I9 H  if found then
  -- put the carbody on a skid
   obj.move(@);
  end; -- if
end; -- if not StoreCarbody.empty
( w( ?5 G5 Z- M' T( Lend;
3 y% g3 K0 e# e里面的found急整个循环不太懂，求高手讲解下？急~~~~