sim talk 程序

hln6610320

is
obj : object;   -- first carbody in store
found : boolean;  -- found a chassis
counter : integer;  -- position in store
do
% |# y) k1 H, x5 q$ _ -- make sure there is a carbody in the store
* G5 Q& Q- u4 \6 ^' T  N  l* {5 e if not StoreCarbody.empty() then
  found := false;
6 Y/ h+ t9 R9 [9 o/ m9 A# T  counter := 1;
% @3 e* |. H6 ]! z
. P  H0 C# G9 Q  -- iterate through the store
6 h5 P: s. m; g1 ~1 d2 j8 }6 F: y  while not found and counter <= StoreCarbody.xDim loop
   obj := StoreCarbody.pe(counter,1).cont;
   if(obj /= void) then
9 b; y( v$ \, H5 j8 Z0 Z* p    found := true;
   end; -- if
   counter := counter + 1;
  end; -- while
) R4 C% k+ J, ?" o, t' ?! }2 B0 i
' w6 m; C+ ~0 s8 A& h/ }. A  if found then
$ _5 W3 s" \* v& ]) `  -- put the carbody on a skid
   obj.move(@);
  end; -- if
) x, d% T+ D. E end; -- if not StoreCarbody.empty
end;
5 N4 U* r* o. z里面的found急整个循环不太懂，求高手讲解下？急~~~~