sim talk 程序

hln6610320

is
obj : object;   -- first carbody in store
found : boolean;  -- found a chassis
4 Q1 j! t  F% A9 H+ k/ v' _# ?5 O counter : integer;  -- position in store
- X# v" C3 }) n1 k7 N* X( Fdo
& \: N. c9 o% h" D -- make sure there is a carbody in the store
if not StoreCarbody.empty() then
# `" T5 ?3 J* D6 S" Y  found := false;
  counter := 1;
3 M" ~7 z" l- r% u; F% \. e
( _: u2 q  I/ }* s- Y; q# t  -- iterate through the store
  while not found and counter <= StoreCarbody.xDim loop
   obj := StoreCarbody.pe(counter,1).cont;
  v# u6 K2 R: d* Z+ D# o/ ?. z7 [: i   if(obj /= void) then
    found := true;
) T6 ]* M- T+ V' q$ ]1 e1 I8 a   end; -- if
6 J) M/ |1 z' W# I! T   counter := counter + 1;
  end; -- while
- t  B+ W, u" N" Z, y
) |4 B1 L4 k. ^3 f  if found then
( @# y; t) V6 H$ K, d/ `  -- put the carbody on a skid
1 B. q# t- t) Y* L( P) l% _   obj.move(@);
  end; -- if
; Y: ^; X& G, c; i2 k end; -- if not StoreCarbody.empty
end;
. o6 L. F3 ~- t" s- ~% C里面的found急整个循环不太懂，求高手讲解下？急~~~~