sim talk 程序

hln6610320

is
$ L, n: o8 _# y& H8 S obj : object;   -- first carbody in store
found : boolean;  -- found a chassis
/ Q0 l& o6 a0 ^. `2 ^8 _& E2 J/ m counter : integer;  -- position in store
do
) m' X$ t0 w3 b6 k$ l -- make sure there is a carbody in the store
8 Q* X: @9 q6 ^5 B9 F if not StoreCarbody.empty() then
  found := false;
$ h: S- ^) x/ L) o% ]+ |  counter := 1;

  -- iterate through the store
  while not found and counter <= StoreCarbody.xDim loop
/ x4 ?$ x9 Q3 P/ \1 M   obj := StoreCarbody.pe(counter,1).cont;
   if(obj /= void) then
$ Z2 n/ f+ w: _    found := true;
   end; -- if
- d" Y* Q5 C$ W& h& S5 t2 C2 u   counter := counter + 1;
  end; -- while

  if found then
  -- put the carbody on a skid
   obj.move(@);
! o% |! @# x" x+ k+ O( _8 @  end; -- if
end; -- if not StoreCarbody.empty
+ Z& ~7 B) V9 f: }/ Y# Lend;
# |1 x( b/ q. R! I, O) U$ f里面的found急整个循环不太懂，求高手讲解下？急~~~~