sim talk 程序

hln6610320

is
5 W; N9 ^, e! `9 |' u obj : object;   -- first carbody in store
$ ~9 \0 t8 e; v9 O( q5 a found : boolean;  -- found a chassis
counter : integer;  -- position in store
do
8 ]9 @7 b5 f8 V8 m$ F8 x8 o -- make sure there is a carbody in the store
if not StoreCarbody.empty() then
' w* q6 d1 k- h' L4 X  found := false;
8 a( {) W. t6 v  counter := 1;
4 }- D: Q! i% C+ f7 z  A
9 f. X; z7 w, I  -- iterate through the store
; ^6 M* Q9 d4 P# [1 m( h  while not found and counter <= StoreCarbody.xDim loop
. R( ?1 G4 u3 _: n- L   obj := StoreCarbody.pe(counter,1).cont;
   if(obj /= void) then
3 \$ \, H5 C- ^& ~3 l8 @: n( D$ Z    found := true;
/ i, C2 V/ f  U2 B   end; -- if
   counter := counter + 1;
8 S) ~9 m- P& ^! |9 w  end; -- while
! p* T+ |9 F0 A; P' h
  if found then
  -- put the carbody on a skid
   obj.move(@);
7 H  w+ X( J4 [# |& D3 V: ^$ q  end; -- if
9 i5 \9 ^' o) X; ^ end; -- if not StoreCarbody.empty
end;
  K4 N* o" L& w# i  s) m2 b" \里面的found急整个循环不太懂，求高手讲解下？急~~~~