sim talk 程序

hln6610320

is
obj : object;   -- first carbody in store
6 [1 ^) e. w9 ^6 ^- ^0 R found : boolean;  -- found a chassis
counter : integer;  -- position in store
do
-- make sure there is a carbody in the store
if not StoreCarbody.empty() then
  found := false;
  counter := 1;

  -- iterate through the store
  while not found and counter <= StoreCarbody.xDim loop
   obj := StoreCarbody.pe(counter,1).cont;
8 r( k$ [: v6 y- m* i! a' T   if(obj /= void) then
3 _: s2 M4 |/ M$ J: o# ]3 k    found := true;
   end; -- if
( f  ], S* v) \) ]- x) j   counter := counter + 1;
) P9 k* Q; V* _5 r* y9 S  end; -- while
, D: J* s( H3 T- d+ w7 ^( a) N! a7 l8 T0 S
/ v- x) o0 C1 r: ~+ X$ ~' `' S  if found then
9 c% U, a0 C7 p( I. }% n) m( k  -- put the carbody on a skid
2 m$ ~* z  w. i8 l8 @' y   obj.move(@);
  end; -- if
end; -- if not StoreCarbody.empty
- r. e4 F, _7 @  ~2 b: pend;
里面的found急整个循环不太懂，求高手讲解下？急~~~~