sim talk 程序

hln6610320

is
obj : object;   -- first carbody in store
: h# w/ S* q) i7 r7 m( ? found : boolean;  -- found a chassis
3 }) Y8 N5 g+ f, i6 o/ i# ^- p1 ] counter : integer;  -- position in store
5 q7 i9 J0 W( h0 ~3 V& `do
-- make sure there is a carbody in the store
if not StoreCarbody.empty() then
5 _8 G8 M6 e8 w' b3 @& G1 G  found := false;
  counter := 1;
4 }0 e! y, E: T. E
  -- iterate through the store
  while not found and counter <= StoreCarbody.xDim loop
   obj := StoreCarbody.pe(counter,1).cont;
4 a7 k; E3 f1 I- Z& h   if(obj /= void) then
9 G$ S6 b9 b: W+ X4 T! h7 l    found := true;
   end; -- if
0 z* W. d: \8 @# S: L: b# V1 s' s   counter := counter + 1;
  end; -- while

  if found then
3 j. t5 c+ Y+ I$ i  -- put the carbody on a skid
( r' `" S! J5 U- D& V   obj.move(@);
/ O1 M( B2 v, |, V! z/ u' Z- L  end; -- if
end; -- if not StoreCarbody.empty
, _, O) p- k% ]/ ]end;
里面的found急整个循环不太懂，求高手讲解下？急~~~~