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
8 G! a# T* g# N& {. } if not StoreCarbody.empty() then
  found := false;
: T" K9 j1 H& c9 C4 n  counter := 1;
& l1 x& p2 X" Y: \
7 f+ M$ ^+ R1 h8 y: e  -- iterate through the store
8 o4 G; n3 K6 u  while not found and counter <= StoreCarbody.xDim loop
   obj := StoreCarbody.pe(counter,1).cont;
  R! ?! y9 y' Z' x/ k+ k   if(obj /= void) then
- X# m) _( u" n9 h    found := true;
. s) J. P5 M7 ]) d1 E3 R   end; -- if
9 q5 h% N4 q) I   counter := counter + 1;
# m9 }6 M6 n# F7 o( k  end; -- while

6 X  n2 p3 \. g2 a  if found then
$ }& `& Z0 f4 d) @( K- N* ]7 l, D  -- put the carbody on a skid
) a5 n6 ^( V, t' v+ B   obj.move(@);
  end; -- if
end; -- if not StoreCarbody.empty
5 U' f4 r, |  F, n0 Hend;
# l0 v* ]3 U% m2 p里面的found急整个循环不太懂，求高手讲解下？急~~~~