sim talk 程序

hln6610320

is
8 a1 |5 W- m" g' e5 f6 F obj : object;   -- first carbody in store
, _6 ~) j. i- r2 w/ Y8 h3 n found : boolean;  -- found a chassis
counter : integer;  -- position in store
do
7 V- L9 T/ t1 m& V' C -- make sure there is a carbody in the store
: C/ Y4 A1 P+ c- r2 ]$ q* v( h$ N if not StoreCarbody.empty() then
, r6 y. c) b8 M' R- y4 i  @  found := false;
+ H* f' w5 f, k% l0 c4 N& U# C  counter := 1;

" c& \6 {2 u% r( ], G8 U+ O$ d  -- iterate through the store
  while not found and counter <= StoreCarbody.xDim loop
   obj := StoreCarbody.pe(counter,1).cont;
   if(obj /= void) then
; ]- Z' k4 j+ ]    found := true;
   end; -- if
5 n" G& ]: j4 @+ `: K; \- l   counter := counter + 1;
  end; -- while
& p- f, U. v! I7 B
  if found then
  -- put the carbody on a skid
   obj.move(@);
  end; -- if
end; -- if not StoreCarbody.empty
end;
" k! W7 t  \: ]. n里面的found急整个循环不太懂，求高手讲解下？急~~~~