sim talk 程序

hln6610320

is
8 ?+ Q1 |: u3 }. | obj : object;   -- first carbody in store
found : boolean;  -- found a chassis
counter : integer;  -- position in store
5 f; r" c$ [# [do
6 ]% z5 \- p/ H3 j' }+ `  W -- make sure there is a carbody in the store
if not StoreCarbody.empty() then
( I( P9 X" `8 X7 p, S2 D  found := false;
  counter := 1;
! p% V7 P. k! |+ f9 v  x
1 Z+ D+ ~" A& Y0 v* _: B, v  -- iterate through the store
" f& J& l( C4 ?6 ]  while not found and counter <= StoreCarbody.xDim loop
   obj := StoreCarbody.pe(counter,1).cont;
   if(obj /= void) then
( C0 ?6 R/ \% w1 P) N: P$ c+ ]* [    found := true;
% f2 |. o# f- u! b   end; -- if
   counter := counter + 1;
6 E( ]% f" `) o3 c  i  end; -- while

  if found then
4 k/ |6 B. ^$ }# \1 ~  -- put the carbody on a skid
   obj.move(@);
  end; -- if
end; -- if not StoreCarbody.empty
2 |& A" s/ I) w1 _; Z+ B, yend;
里面的found急整个循环不太懂，求高手讲解下？急~~~~