sim talk 程序

hln6610320

is
obj : object;   -- first carbody in store
% p% q( |* }- r1 S% H$ o found : boolean;  -- found a chassis
1 w; Z, D# K+ q2 t1 _6 [" q( N counter : integer;  -- position in store
do
-- make sure there is a carbody in the store
. @7 q4 b' e! \6 x) ?# W; ~+ Q if not StoreCarbody.empty() then
  found := false;
  counter := 1;

  -- iterate through the store
) r' s- ^5 X9 d6 B  while not found and counter <= StoreCarbody.xDim loop
   obj := StoreCarbody.pe(counter,1).cont;
+ [4 Z3 F. i- Z0 O6 |6 R   if(obj /= void) then
- A7 b& h$ S1 G    found := true;
   end; -- if
   counter := counter + 1;
/ b2 R/ f4 z3 J" @4 }  end; -- while

  if found then
  -- put the carbody on a skid
+ I% f( L& J( \5 q5 T/ T. f% W   obj.move(@);
  end; -- if
end; -- if not StoreCarbody.empty
5 a# f% w8 l8 R  ^end;
里面的found急整个循环不太懂，求高手讲解下？急~~~~