sim talk 程序

hln6610320

is
4 M( P5 C' c, Z% X/ h; X: Q; O- M0 u obj : object;   -- first carbody in store
7 h% n' P& ]! [ found : boolean;  -- found a chassis
counter : integer;  -- position in store
do
-- make sure there is a carbody in the store
: s* y0 O( @  X& p0 g. y: [+ d if not StoreCarbody.empty() then
5 Y) Z7 M$ ]; P0 ^5 {! B7 G: I2 v  found := false;
  counter := 1;
% a7 r( u1 G" P/ s; e% I6 o
  -- iterate through the store
8 D/ B: N7 `; Y' V  while not found and counter <= StoreCarbody.xDim loop
   obj := StoreCarbody.pe(counter,1).cont;
* ^. t. \5 S+ w   if(obj /= void) then
7 d! B" r  ^" C4 n    found := true;
   end; -- if
   counter := counter + 1;
  end; -- while

7 ~! f4 q- t$ }# z4 W- M5 e: ^  if found then
) K% L( `# T* H  -- put the carbody on a skid
& A9 ]' ~4 V* G5 S9 D   obj.move(@);
  end; -- if
, ]# a0 [% C, Z1 U6 j: u2 O2 n end; -- if not StoreCarbody.empty
end;
4 w1 G# D" T: d) h里面的found急整个循环不太懂，求高手讲解下？急~~~~