sim talk 程序

hln6610320

is
2 H& R3 V( c, x! q0 \4 X+ ]' W obj : object;   -- first carbody in store
, j, c& k" a% A7 v3 b found : boolean;  -- found a chassis
3 s7 ]2 V/ j' [9 z counter : integer;  -- position in store
) ?+ q' C% i9 `1 fdo
6 n! ^' X- k* M$ X  q -- make sure there is a carbody in the store
if not StoreCarbody.empty() then
  found := false;
1 E* `) Q5 v9 k, D* O& e  counter := 1;
, k! g: [) X( r1 O% Y8 ]7 O6 g
  -- iterate through the store
  while not found and counter <= StoreCarbody.xDim loop
   obj := StoreCarbody.pe(counter,1).cont;
' t8 e$ A" ~: t9 ]# l2 p; o   if(obj /= void) then
8 [* P2 H- O: }, H    found := true;
   end; -- if
   counter := counter + 1;
& t5 y) `* B  h# b8 X; Z( w7 Y7 z  end; -- while
) \. D1 D6 w" i4 N8 S& N8 |
! d7 q: Y0 n& _  if found then
  -- put the carbody on a skid
   obj.move(@);
1 m" I+ ^, H+ t% P* f% a8 H% `% W  end; -- if
end; -- if not StoreCarbody.empty
end;
里面的found急整个循环不太懂，求高手讲解下？急~~~~