sim talk 程序

hln6610320

is
/ e6 M5 P8 I0 _6 l obj : object;   -- first carbody in store
0 i% k% ~) J$ [2 Y1 _" j found : boolean;  -- found a chassis
counter : integer;  -- position in store
9 `3 R6 u9 w+ V  ]8 Qdo
  S7 z! M+ P  [: h8 H -- make sure there is a carbody in the store
if not StoreCarbody.empty() then
  found := false;
  counter := 1;
7 @0 {: L! H7 F6 h% B7 A& L
) m+ j/ ]# B; L9 e2 \+ N# j  -- iterate through the store
  while not found and counter <= StoreCarbody.xDim loop
   obj := StoreCarbody.pe(counter,1).cont;
1 v& p$ ?" O" ~, W. C( N2 Z8 E( i   if(obj /= void) then
+ F7 |, {6 b' R: |& X5 p' S' D    found := true;
& L6 C0 b; ]6 ?0 p   end; -- if
9 T- t0 z" g, @, n8 z2 v   counter := counter + 1;
! z2 ?9 o& A' A( `1 O5 ?  end; -- while

) z) o& X/ w3 E  if found then
  -- put the carbody on a skid
   obj.move(@);
  end; -- if
. ]# K0 v4 b7 G end; -- if not StoreCarbody.empty
$ q1 f2 I- g8 X! D& T0 y8 j7 Fend;
  ^7 t" r# k/ [( L& t- C: S- R里面的found急整个循环不太懂，求高手讲解下？急~~~~