sim talk 程序

hln6610320

is
  N: t5 l0 o% y$ _+ m# e9 \ obj : object;   -- first carbody in store
, @6 A8 c% L( }, F found : boolean;  -- found a chassis
counter : integer;  -- position in store
do
-- make sure there is a carbody in the store
if not StoreCarbody.empty() then
  found := false;
( v  P# n: y$ x  counter := 1;

0 O9 U  t2 K6 a3 q  -- iterate through the store
  while not found and counter <= StoreCarbody.xDim loop
   obj := StoreCarbody.pe(counter,1).cont;
0 [$ i3 m. ?' j# c  V$ d   if(obj /= void) then
    found := true;
   end; -- if
   counter := counter + 1;
" f) D& }& T' n" y. S. G  end; -- while
9 a) g. n2 e, ^$ [! k
8 x1 ^3 V- t  `6 S  if found then
! d( Q; V7 M3 d  -- put the carbody on a skid
   obj.move(@);
, ]$ |8 }" k+ L, D  end; -- if
5 C7 n3 k( K4 Y3 E4 |$ q3 D end; -- if not StoreCarbody.empty
end;
里面的found急整个循环不太懂，求高手讲解下？急~~~~