sim talk 程序

hln6610320

is
( ~6 Q. ]+ w2 K3 ]2 y obj : object;   -- first carbody in store
found : boolean;  -- found a chassis
9 T+ D& k# j5 [9 L) `8 c' L$ e counter : integer;  -- position in store
+ S# |$ [" x& E& f8 t, e+ xdo
0 I& m; W. K0 ? -- make sure there is a carbody in the store
if not StoreCarbody.empty() then
  found := false;
  counter := 1;
5 ~+ C5 Z8 s! Y/ ]8 D
- f# l6 @& e4 E0 y! y  x  -- iterate through the store
% p8 x$ F+ R  [+ H# {8 c2 Q) O  while not found and counter <= StoreCarbody.xDim loop
   obj := StoreCarbody.pe(counter,1).cont;
5 r2 V2 I! u2 g7 r   if(obj /= void) then
    found := true;
   end; -- if
3 }* k. H8 \; d" z" ^$ B# E- C$ w   counter := counter + 1;
  end; -- while
$ h' Z! P  ?: b4 F3 _
  if found then
  -- put the carbody on a skid
, i% a1 ]0 y& ^# Q   obj.move(@);
  end; -- if
end; -- if not StoreCarbody.empty
end;
里面的found急整个循环不太懂，求高手讲解下？急~~~~