sim talk 程序

hln6610320

is
3 v: u  _+ ~0 y# n* V obj : object;   -- first carbody in store
found : boolean;  -- found a chassis
counter : integer;  -- position in store
+ I4 s3 Q! s- I6 X; m' u* u3 M9 N4 Rdo
-- make sure there is a carbody in the store
if not StoreCarbody.empty() then
  found := false;
3 E: u: M' L9 @% i5 L9 P( F  counter := 1;

* H6 x1 Q0 K8 F  -- iterate through the store
/ s) W; Q7 q8 }, s2 o/ j& ?  while not found and counter <= StoreCarbody.xDim loop
   obj := StoreCarbody.pe(counter,1).cont;
   if(obj /= void) then
# i9 ~( f" U* p2 s3 _    found := true;
   end; -- if
# H: v: P2 n$ n. y# v   counter := counter + 1;
  end; -- while

  if found then
4 o% B4 E) J' r/ Z$ @# J  -- put the carbody on a skid
  c8 |. s* }" O7 M0 k   obj.move(@);
  end; -- if
$ y/ q) I6 s/ w5 Y end; -- if not StoreCarbody.empty
end;
里面的found急整个循环不太懂，求高手讲解下？急~~~~