sim talk 程序

hln6610320

is
obj : object;   -- first carbody in store
/ j7 `! M3 Q$ F% O found : boolean;  -- found a chassis
counter : integer;  -- position in store
do
( X% s& ^* L4 |0 i' s/ c- g$ S -- make sure there is a carbody in the store
if not StoreCarbody.empty() then
* O- l( P3 u0 Z  found := false;
  counter := 1;
1 w. `; n2 D3 C. I+ z
& O! B$ L- u/ b  -- iterate through the store
  while not found and counter <= StoreCarbody.xDim loop
   obj := StoreCarbody.pe(counter,1).cont;
& E0 m8 i1 O- I  H/ K% h: ]   if(obj /= void) then
    found := true;
   end; -- if
" T- r/ y% X7 n: E0 t- u   counter := counter + 1;
  end; -- while
" g8 J5 k- g* j2 U# W' h& p( J
. I% X! j8 N9 x; \# v6 P  if found then
  -- put the carbody on a skid
2 n$ a3 d7 \- m   obj.move(@);
  end; -- if
end; -- if not StoreCarbody.empty
end;
" t) L; R7 K8 Q. ~. ]' D" N# ]( T里面的found急整个循环不太懂，求高手讲解下？急~~~~