sim talk 程序

hln6610320

is
! j% F) K2 p: F  a obj : object;   -- first carbody in store
& i# H- d8 P+ F+ O found : boolean;  -- found a chassis
: f, K6 `( v: I; e: R$ T counter : integer;  -- position in store
3 M6 O) K" t! E3 f0 l: Ido
" {7 x- |% x( |; E) d4 U -- make sure there is a carbody in the store
if not StoreCarbody.empty() then
) o9 F6 z5 W$ ]3 e& Q8 C  found := false;
0 R& h0 W( ^' B* O8 ^  counter := 1;
6 f9 s. D. l- w
  -- iterate through the store
8 x* Q' r. ~: D  while not found and counter <= StoreCarbody.xDim loop
' T. t' [5 R( `3 w   obj := StoreCarbody.pe(counter,1).cont;
   if(obj /= void) then
2 t* z% B4 j4 I6 i    found := true;
4 J$ R0 x" M0 S% w% h' P   end; -- if
6 I. ^! h& a% `% E$ U# F   counter := counter + 1;
  end; -- while
* N5 _; A& _$ \' y# P+ T
  if found then
7 m0 f: r. I" i+ y% R  -- put the carbody on a skid
4 h2 E' W1 G* g( B1 n+ H   obj.move(@);
  end; -- if
end; -- if not StoreCarbody.empty
3 Z3 p+ m; B; |/ Y$ i% D$ t* wend;
% i. \" J$ i: a/ ]8 S/ S里面的found急整个循环不太懂，求高手讲解下？急~~~~