sim talk 程序

hln6610320

is
' O' I( ~/ v) W obj : object;   -- first carbody in store
# O4 T# Y. }3 I3 j found : boolean;  -- found a chassis
counter : integer;  -- position in store
6 J( ?* [- T: u7 r, zdo
! X# x0 _) v+ T, p -- make sure there is a carbody in the store
! h) c8 u- u! n7 o7 k7 [ 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;
   if(obj /= void) then
    found := true;
& T. [1 X. l* g9 i) e   end; -- if
   counter := counter + 1;
  end; -- while
; A3 z# w3 c/ b2 ?
  if found then
; r* x5 a6 {# a) ?! u1 S  -- put the carbody on a skid
   obj.move(@);
) G! @: `) q  L) A  B5 X  end; -- if
) s7 r, s9 e3 t8 J  g/ c end; -- if not StoreCarbody.empty
0 J4 s/ s; N6 }end;
里面的found急整个循环不太懂，求高手讲解下？急~~~~