sim talk 程序

hln6610320

is
obj : object;   -- first carbody in store
' x  J! v: F, `$ x- u. x1 a found : boolean;  -- found a chassis
" k3 p4 b( l  l( n. A) ]8 c2 b) O counter : integer;  -- position in store
do
) H1 Z8 v3 Q) j6 q5 l; a- `/ c -- make sure there is a carbody in the store
if not StoreCarbody.empty() then
2 h/ b( W& U7 h  s  found := false;
  counter := 1;

# d! q" u+ M1 n7 b: l' ?: l  -- iterate through the store
  while not found and counter <= StoreCarbody.xDim loop
   obj := StoreCarbody.pe(counter,1).cont;
   if(obj /= void) then
2 }' ]0 ~( [0 D3 F3 W    found := true;
   end; -- if
   counter := counter + 1;
  end; -- while

  if found then
) b8 ]5 i" z( b  -- put the carbody on a skid
6 ^/ e2 C6 k/ }# D8 N% c8 O5 n3 M   obj.move(@);
  end; -- if
end; -- if not StoreCarbody.empty
) i2 X1 j/ Z3 Q. |( k( ~& @end;
里面的found急整个循环不太懂，求高手讲解下？急~~~~