sim talk 程序

hln6610320

is
$ H6 G+ S1 e6 C; a; _ obj : object;   -- first carbody in store
2 k- W! @! y5 T. h' H found : boolean;  -- found a chassis
* s" v4 E9 o- F0 `, m' _ counter : integer;  -- position in store
do
-- make sure there is a carbody in the store
5 y# j) g! I/ U" T- R, D if not StoreCarbody.empty() then
- g) f9 s. Y- }" I  found := false;
$ j6 b& u/ _8 P' o  counter := 1;
4 I5 v$ K) Y; u- c
/ [; k4 t: u2 Z  v" N  -- iterate through the store
  while not found and counter <= StoreCarbody.xDim loop
! [- s4 d' g* f, j2 \   obj := StoreCarbody.pe(counter,1).cont;
   if(obj /= void) then
3 N' L7 B# a) T% b8 N! h; O    found := true;
   end; -- if
   counter := counter + 1;
  end; -- while
- H( k$ }( {1 E1 b' u4 `
8 E" n, K+ I" H0 @' I! s3 M  if found then
  k, j3 g- ?3 K' \: \. k- \  -- put the carbody on a skid
   obj.move(@);
' k& T; T: k6 e1 P9 W# P# |  end; -- if
end; -- if not StoreCarbody.empty
end;
2 k" }% W2 K2 X0 H& R- a里面的found急整个循环不太懂，求高手讲解下？急~~~~