sim talk 程序

hln6610320

is
. g. i3 {6 A7 A3 b obj : object;   -- first carbody in store
3 d* E5 p  W! s( W# H found : boolean;  -- found a chassis
counter : integer;  -- position in store
do
-- make sure there is a carbody in the store
' d0 C2 j# O, S! v/ B if not StoreCarbody.empty() then
  found := false;
  counter := 1;
* r2 |" O! a% o4 t/ c0 f. ~
  -- iterate through the store
# h5 K3 Q0 \6 h9 }  while not found and counter <= StoreCarbody.xDim loop
* U, ]7 C. A2 i/ \   obj := StoreCarbody.pe(counter,1).cont;
   if(obj /= void) then
    found := true;
   end; -- if
9 P$ l: s* R$ w4 a4 P   counter := counter + 1;
$ w  O$ `9 z: W; C3 g) z  end; -- while
0 K% ]3 z! g9 }/ g
( J' I- H! v4 u2 A' m  if found then
  -- put the carbody on a skid
. b. \# U9 `/ n   obj.move(@);
' [* d) e8 `- W& M0 C( S  end; -- if
end; -- if not StoreCarbody.empty
end;
  D2 ?; [& d) O1 `0 _) O/ \! Y里面的found急整个循环不太懂，求高手讲解下？急~~~~