sim talk 程序

hln6610320

is
obj : object;   -- first carbody in store
found : boolean;  -- found a chassis
counter : integer;  -- position in store
do
( Z- K. I' m2 x: v -- make sure there is a carbody in the store
if not StoreCarbody.empty() then
; i4 Q6 l* }, P3 S  found := false;
  counter := 1;

  -- iterate through the store
  while not found and counter <= StoreCarbody.xDim loop
0 w; f% [# K! w3 X   obj := StoreCarbody.pe(counter,1).cont;
   if(obj /= void) then
6 T* }9 S8 |- |  q( ^    found := true;
   end; -- if
3 r: e3 Z# R" W; g7 |, C& J8 C   counter := counter + 1;
  end; -- while
* S8 s/ @! J& Y0 \9 J
: x* ~* d# b! N  if found then
  -- put the carbody on a skid
9 N; ]/ v" e2 K1 Z" ^' J   obj.move(@);
  end; -- if
end; -- if not StoreCarbody.empty
end;
4 {6 k0 \7 L3 [% Q0 I8 R1 L7 m里面的found急整个循环不太懂，求高手讲解下？急~~~~