sim talk 程序

hln6610320

is
obj : object;   -- first carbody in store
found : boolean;  -- found a chassis
* G, z+ M# i, _& |# i/ S! ] counter : integer;  -- position in store
2 m  U; D1 I4 ?$ _9 J5 Tdo
( k  d9 f% N2 R: s7 Q( p+ P -- make sure there is a carbody in the store
if not StoreCarbody.empty() then
& O: k8 y' J+ ]/ h( H& h  found := false;
0 j4 v. E- i& V7 ^( |! @( P. n  counter := 1;
$ m, i7 D% x+ Z- ~! B0 l& l2 e
/ a$ |( K3 f5 M# Z5 s, X# Z  -- iterate through the store
8 P  C9 m- ]4 i5 L% |# o  while not found and counter <= StoreCarbody.xDim loop
! u9 `7 c% h! \  l* R( v0 B7 \   obj := StoreCarbody.pe(counter,1).cont;
# ?/ Y1 Y$ t9 P. A; ]7 `   if(obj /= void) then
    found := true;
$ b- f: T, d6 y$ R   end; -- if
   counter := counter + 1;
, W% ^/ O/ }; z  end; -- while

: M0 q& A1 Q" |% @( I7 U  if found then
9 Q+ y* W. }: E2 R5 a3 y- J  -- put the carbody on a skid
   obj.move(@);
  x2 P: y1 q  e  end; -- if
end; -- if not StoreCarbody.empty
' U8 Y, D+ _4 x* e% Tend;
. B7 Q$ l: {1 p) I里面的found急整个循环不太懂，求高手讲解下？急~~~~