sim talk 程序

hln6610320

is
6 Q( i1 l5 y4 v1 f obj : object;   -- first carbody in store
found : boolean;  -- found a chassis
/ R9 U. P. G) e$ L2 M counter : integer;  -- position in store
% `: I- O+ o+ A$ q# C$ qdo
8 a2 x+ a' |1 {, a: k6 b; M -- make sure there is a carbody in the store
+ m9 \$ P; h: ?0 t6 c! e! G8 Y if not StoreCarbody.empty() then
, G) F! J5 w  f1 h8 ^4 e( H  found := false;
9 G' h8 q% z4 \5 j8 T* V  counter := 1;

  -- iterate through the store
; z6 J0 ]. r, |! ^  while not found and counter <= StoreCarbody.xDim loop
   obj := StoreCarbody.pe(counter,1).cont;
   if(obj /= void) then
* k$ s9 \  `; C( W" ?, P# j0 O8 V    found := true;
5 N  U4 T% S" p0 I   end; -- if
   counter := counter + 1;
  end; -- while
4 \3 G3 X$ t, i$ O6 S# Q* l5 \) J
* n4 V8 @1 P  u8 s3 v  if found then
8 H+ G: F% T  y1 v2 V2 V- Y  -- put the carbody on a skid
: J0 p% n( A' Y3 h* r! ^' k   obj.move(@);
  end; -- if
end; -- if not StoreCarbody.empty
end;
里面的found急整个循环不太懂，求高手讲解下？急~~~~