sim talk 程序

hln6610320

is
, u3 D/ z! Z8 M1 s0 g" d obj : object;   -- first carbody in store
: m6 O1 E5 U, I1 n found : boolean;  -- found a chassis
" ^% U; K( f& Y2 A# L2 D counter : integer;  -- position in store
do
-- make sure there is a carbody in the store
if not StoreCarbody.empty() then
  y2 k0 f. i& m) G9 Z0 ^% Y4 t  found := false;
  counter := 1;
8 x1 a& l- q! c5 m# a
  -- iterate through the store
  while not found and counter <= StoreCarbody.xDim loop
, w! V4 C- ]; C( K   obj := StoreCarbody.pe(counter,1).cont;
   if(obj /= void) then
    found := true;
   end; -- if
7 }8 d" V3 V7 d' R   counter := counter + 1;
  end; -- while

6 Z- d/ P- m+ Z- \  if found then
2 K# U5 B1 j& l; n) z5 o5 Q; @1 O  -- put the carbody on a skid
/ Q: i% t; a1 @$ E   obj.move(@);
  end; -- if
( I" s% ^( N% L# X3 q end; -- if not StoreCarbody.empty
end;
里面的found急整个循环不太懂，求高手讲解下？急~~~~