sim talk 程序

hln6610320

is
# k  t& p2 G: C8 x& @ obj : object;   -- first carbody in store
& x: [- s: Q- d9 P! u) E1 V+ d2 ? found : boolean;  -- found a chassis
. E5 I8 n4 G# ]5 Q/ ? counter : integer;  -- position in store
2 X+ j+ E; n* j/ mdo
-- make sure there is a carbody in the store
if not StoreCarbody.empty() then
  found := false;
6 O, @7 g8 J; _/ B" @  counter := 1;
9 V1 b+ q; ^: ]+ {1 y% G8 E
  -- iterate through the store
% K- }8 S0 F# ?: s5 Y$ H  while not found and counter <= StoreCarbody.xDim loop
   obj := StoreCarbody.pe(counter,1).cont;
   if(obj /= void) then
! x/ j7 f3 ^6 d7 a4 |! a* J5 g/ O    found := true;
   end; -- if
9 j6 {: N3 k4 U* w9 I) _   counter := counter + 1;
+ F  _# p/ p' B4 e& ^  end; -- while
& H4 r6 z; l3 m. |# e. ^, o$ [8 a% y
  if found then
6 a% }! G4 n: e4 |4 J  -- put the carbody on a skid
   obj.move(@);
+ n3 R) w; [+ m0 O$ \/ L4 g  end; -- if
end; -- if not StoreCarbody.empty
9 d# p5 Q) u: a% S5 S# U' zend;
里面的found急整个循环不太懂，求高手讲解下？急~~~~