sim talk 程序

hln6610320

is
! d/ y3 i6 {( T obj : object;   -- first carbody in store
& Y0 |. ]# p" e 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
5 M* W( N% v+ u$ K# f  found := false;
3 I7 j5 F% k/ c1 \  counter := 1;

  -- iterate through the store
  while not found and counter <= StoreCarbody.xDim loop
5 n( d0 v2 H' Y& Z/ {# y9 o7 D   obj := StoreCarbody.pe(counter,1).cont;
   if(obj /= void) then
) D, ?6 T6 r: v    found := true;
   end; -- if
. ~) P( v9 o8 y5 i6 K   counter := counter + 1;
  end; -- while
$ j: k- c' H: \% j. \3 ^, o/ G
  if found then
4 ~& ~9 F: j* d2 C  -- put the carbody on a skid
4 S3 i" `: I2 }4 p4 Y   obj.move(@);
* y% l* z# i# i4 J' u  end; -- if
. Q) U% i7 E# E3 o end; -- if not StoreCarbody.empty
end;
里面的found急整个循环不太懂，求高手讲解下？急~~~~