sim talk 程序

hln6610320

is
, O4 w# w& c0 U  }  J- B obj : object;   -- first carbody in store
found : boolean;  -- found a chassis
) Q. r# q( a9 w5 V6 e/ D' ? counter : integer;  -- position in store
$ q& r" O8 e  X) c1 mdo
-- make sure there is a carbody in the store
2 U5 ]/ k+ F# }1 n  N% x5 ] if not StoreCarbody.empty() then
. \* K. o) F0 V. ^, B  found := false;
  counter := 1;
, Q0 r0 A7 l( Q3 C' P: a
1 W4 f( U8 ?, N+ ]3 I1 E; y  -- iterate through the store
  while not found and counter <= StoreCarbody.xDim loop
) J8 x/ R# V, }' C2 j. v8 D   obj := StoreCarbody.pe(counter,1).cont;
   if(obj /= void) then
+ i4 @$ h3 u% _7 i, Z4 d    found := true;
# G) b1 }& [9 p. n. H3 e3 I! G9 _' \   end; -- if
* c* v4 }; a0 B1 c   counter := counter + 1;
  end; -- while

  if found then
4 M# w5 S0 Y4 h/ Z% Y  -- put the carbody on a skid
4 l+ ^! u4 m' ]! F   obj.move(@);
  o4 a( ^  Y/ `* C  end; -- if
end; -- if not StoreCarbody.empty
end;
里面的found急整个循环不太懂，求高手讲解下？急~~~~