sim talk 程序

hln6610320

is
obj : object;   -- first carbody in store
, \5 [' L) ?) E; ~) D. b found : boolean;  -- found a chassis
' _. E# u2 ]% n9 ~  a' R4 I1 E3 E counter : integer;  -- position in store
* g4 g1 O7 F( m9 p9 E) o  Ndo
-- make sure there is a carbody in the store
5 R0 Y- O- O% x# W! }: ]) @ if not StoreCarbody.empty() then
* S0 f/ u1 ~8 B2 I0 }$ F  found := false;
  counter := 1;

  -- iterate through the store
7 V2 B/ h9 h! s% R" Z" O, {7 ~( ?" d  while not found and counter <= StoreCarbody.xDim loop
) d. D2 u, E: ^/ _) P2 V   obj := StoreCarbody.pe(counter,1).cont;
& D6 P" Y* T  W4 F1 b$ }% e1 w& j   if(obj /= void) then
$ k) u3 A2 \+ F; o6 T& @8 t- Z2 o    found := true;
   end; -- if
   counter := counter + 1;
: w" s- o, t$ c6 }/ i# z1 @3 x  end; -- while
! |, F9 h4 u$ v: p4 e' M
+ {7 ~6 {! Y" r. r7 r5 p  if found then
4 K3 D% m4 I5 l2 s9 @! Z  -- put the carbody on a skid
$ h# }) A) }2 N* }- t   obj.move(@);
  end; -- if
end; -- if not StoreCarbody.empty
8 _0 o; u$ J  L' t7 C- F  dend;
9 H& h2 [/ j* v6 `2 R/ C: G6 J里面的found急整个循环不太懂，求高手讲解下？急~~~~