sim talk 程序

hln6610320

is
: b8 t- v- z7 d9 l/ a obj : object;   -- first carbody in store
found : boolean;  -- found a chassis
  e7 L0 K; i, Q/ v. ?) |! k2 P counter : integer;  -- position in store
do
-- make sure there is a carbody in the store
if not StoreCarbody.empty() then
% T4 Y1 y: \" o/ n/ y  found := false;
! Q& I& b  D3 O* |. P/ ]5 Y- ~" d  counter := 1;
5 }: P: n; W2 {" C
  -- iterate through the store
, o7 a# f. s6 q5 A! q  while not found and counter <= StoreCarbody.xDim loop
0 G* O& M# k( M% Z" j   obj := StoreCarbody.pe(counter,1).cont;
+ e2 G7 T3 b3 k  I/ I4 r   if(obj /= void) then
8 z- L" e# Y2 ~9 s6 }5 Z    found := true;
/ w, d) `7 P: j, C   end; -- if
- n! k7 K4 L9 i1 l   counter := counter + 1;
  end; -- while
" D5 P& D: w% Z& {# u6 S* l; E
* l; f% ?! V- f  `3 f% {) X' l  if found then
  -- put the carbody on a skid
; [) D1 s" X6 P) g# n4 Z, C, O& d   obj.move(@);
  end; -- if
9 ?% Q0 D8 W2 ~) a0 Q end; -- if not StoreCarbody.empty
1 D* d. c% t& F7 [, X- o4 q2 w  Dend;
) s# L6 `6 o" m9 y2 u里面的found急整个循环不太懂，求高手讲解下？急~~~~