sim talk 程序

hln6610320

is
' _8 G# Y4 k7 ~" c2 v$ f0 \8 }0 k obj : object;   -- first carbody in store
4 Q# X% d0 n; |2 Y3 D found : boolean;  -- found a chassis
counter : integer;  -- position in store
4 l4 N& e# j  ]$ }do
-- make sure there is a carbody in the store
if not StoreCarbody.empty() then
  found := false;
  counter := 1;
1 u. k8 o8 p; D8 s
' `/ r) W. k) v" P7 P/ p% W1 B  -- iterate through the store
  while not found and counter <= StoreCarbody.xDim loop
   obj := StoreCarbody.pe(counter,1).cont;
) U5 \2 i8 c  }4 T# s  r( ~   if(obj /= void) then
  ~9 |3 R) @% O2 @/ @: k    found := true;
# G7 C4 x1 k: P, S   end; -- if
6 R9 z8 _2 G3 K; L   counter := counter + 1;
  end; -- while

% P; q& T" Y7 u- w" s; |  if found then
  -- put the carbody on a skid
   obj.move(@);
  end; -- if
9 }; _3 x) M* n  M end; -- if not StoreCarbody.empty
end;
里面的found急整个循环不太懂，求高手讲解下？急~~~~