sim talk 程序

hln6610320

is
obj : object;   -- first carbody in store
found : boolean;  -- found a chassis
) W) g/ ]$ s% ], Z! x counter : integer;  -- position in store
  j! H/ y6 T8 n8 ?1 ]1 d0 a& H% ]do
-- make sure there is a carbody in the store
if not StoreCarbody.empty() then
; z* K0 i" {) l  found := false;
  t1 F. |. _2 I+ P) Y& U  counter := 1;

) O/ V+ V4 |5 }: }7 p  -- iterate through the store
1 Y3 n. {* C- Q' z$ G# M' j  while not found and counter <= StoreCarbody.xDim loop
   obj := StoreCarbody.pe(counter,1).cont;
   if(obj /= void) then
8 R1 P6 @6 s7 l7 d9 P: F0 Y    found := true;
   end; -- if
8 |' M; H" d% ?, A0 _! H   counter := counter + 1;
  end; -- while

  if found then
+ S, b- w  H; }6 z! t  -- put the carbody on a skid
6 T1 d0 \7 j$ [) y2 ^6 g  D   obj.move(@);
, p! E" h# p& f0 W/ o: u7 G  end; -- if
end; -- if not StoreCarbody.empty
1 O9 A0 u4 b4 O' pend;
; b+ ]& Y1 r3 C0 p  Z里面的found急整个循环不太懂，求高手讲解下？急~~~~