sim talk 程序

hln6610320

is
obj : object;   -- first carbody in store
found : boolean;  -- found a chassis
0 K  s$ ~* C2 L, W5 F counter : integer;  -- position in store
8 P6 N+ K) ?/ cdo
-- make sure there is a carbody in the store
/ A5 P( W5 O, s2 X# b if not StoreCarbody.empty() then
) s6 E2 u7 Z2 r  found := false;
  counter := 1;

  -- iterate through the store
2 |' v/ d+ i0 U+ i  while not found and counter <= StoreCarbody.xDim loop
3 @8 M1 X  q) S0 k7 B   obj := StoreCarbody.pe(counter,1).cont;
/ U0 n) }% G! @1 c9 j, B$ W$ o   if(obj /= void) then
) p# ^, x- c0 n/ g; Q( R( i; A    found := true;
/ r, Y* V2 R; a   end; -- if
   counter := counter + 1;
  end; -- while

  if found then
  -- put the carbody on a skid
   obj.move(@);
4 u. H8 }" x5 M( V/ D! Q/ r' K  end; -- if
end; -- if not StoreCarbody.empty
end;
里面的found急整个循环不太懂，求高手讲解下？急~~~~