sim talk 程序

hln6610320

is
obj : object;   -- first carbody in store
/ g$ M, L1 j3 ?3 [6 E) Z/ j* V$ I found : boolean;  -- found a chassis
& L% S  s- D$ t9 d# m# O counter : integer;  -- position in store
) B$ M' ]' D1 N. c# O" m% zdo
-- make sure there is a carbody in the store
0 E$ H0 f' u6 }. b if not StoreCarbody.empty() then
  found := false;
6 h4 m5 G; a- j2 L7 p1 I  counter := 1;
5 ]1 Y! _5 t& q4 f) w8 ]2 A
2 @6 {# `- ]4 {3 ^! i- T! l  -- iterate through the store
  while not found and counter <= StoreCarbody.xDim loop
: W* r# k1 C/ F# p* j; @: S   obj := StoreCarbody.pe(counter,1).cont;
, V1 _1 y$ ]$ L2 p3 I   if(obj /= void) then
    found := true;
   end; -- if
# w) E& |- d9 W' X6 K- B   counter := counter + 1;
  end; -- while

  if found then
  -- put the carbody on a skid
   obj.move(@);
* @2 t. \5 A6 g. X; }/ Q* q  end; -- if
4 r% D% v4 K/ V* v end; -- if not StoreCarbody.empty
end;
里面的found急整个循环不太懂，求高手讲解下？急~~~~