sim talk 程序

hln6610320

is
obj : object;   -- first carbody in store
' T/ c. C6 e' w found : boolean;  -- found a chassis
0 B1 V( s$ g- |" r% f/ @5 Q. H' p counter : integer;  -- position in store
do
: T2 t  ^# D; q  [- |! X -- make sure there is a carbody in the store
6 q6 j0 g+ ?# {5 @5 V6 x if not StoreCarbody.empty() then
& @) ^) t. f6 X; F9 S, \7 T/ d0 @: F+ T  found := false;
  counter := 1;
- f& \8 _: v* {0 R% `- e: c
5 a, _9 f6 w) T" Y& ]  G  j  -- iterate through the store
  while not found and counter <= StoreCarbody.xDim loop
   obj := StoreCarbody.pe(counter,1).cont;
   if(obj /= void) then
    found := true;
   end; -- if
( |" B$ t% S/ k  V  z& B   counter := counter + 1;
. q) {1 {0 |4 S( F, h  end; -- while
6 K$ L6 O; B& j" U6 E( ^
  if found then
/ n, y* G* h8 y0 ]4 a5 t2 [9 \  -- put the carbody on a skid
- q, N/ M. w9 h3 N" a% x) ]" y5 @   obj.move(@);
  end; -- if
end; -- if not StoreCarbody.empty
end;
+ Q5 c6 d4 E3 b7 ?里面的found急整个循环不太懂，求高手讲解下？急~~~~