sim talk 程序

hln6610320

is
obj : object;   -- first carbody in store
found : boolean;  -- found a chassis
counter : integer;  -- position in store
do
-- make sure there is a carbody in the store
" S( g- [* U  ^3 V" i! o$ G if not StoreCarbody.empty() then
+ Y" \4 x8 I% \; G- I! w  found := false;
1 w, t. @4 i( _9 j% _& }6 a1 O  counter := 1;

* ]1 Z2 p0 ?$ e/ w$ N/ @7 m: a  -- iterate through the store
  while not found and counter <= StoreCarbody.xDim loop
   obj := StoreCarbody.pe(counter,1).cont;
   if(obj /= void) then
    found := true;
   end; -- if
   counter := counter + 1;
  end; -- while
; O& r; J* n9 p. P4 F  J
* H# c7 y+ X( w0 y! q8 d8 F# }, P  if found then
  -- put the carbody on a skid
   obj.move(@);
  end; -- if
end; -- if not StoreCarbody.empty
end;
里面的found急整个循环不太懂，求高手讲解下？急~~~~