sim talk 程序

hln6610320

is
1 A, v! N- Q0 l2 Q. ~. T obj : object;   -- first carbody in store
' b% p2 r, H6 C found : boolean;  -- found a chassis
' y: H2 |' }$ H2 E3 U- f counter : integer;  -- position in store
do
" K5 s; h/ u# v7 m& W -- make sure there is a carbody in the store
, G; F( T! y- P/ i* f  j- W if not StoreCarbody.empty() then
  found := false;
' |& X2 C! E% k, F+ O, Q8 \, j  counter := 1;
0 \; E0 ], i: x" h3 k" N( H
  -- iterate through the store
' r6 r7 I6 I& h  while not found and counter <= StoreCarbody.xDim loop
   obj := StoreCarbody.pe(counter,1).cont;
4 [; ^* O4 o2 e   if(obj /= void) then
    found := true;
   end; -- if
0 F  N5 t* X% d% Y# @# o; _   counter := counter + 1;
  end; -- while
+ k" c" ?; ^2 n- z8 H# T
  if found then
  d0 e% b# t3 ?  -- put the carbody on a skid
5 f1 G7 W) O" Q% j# i7 O   obj.move(@);
5 N! W6 c2 P$ ?, |" y0 x& N$ s  end; -- if
end; -- if not StoreCarbody.empty
end;
里面的found急整个循环不太懂，求高手讲解下？急~~~~