sim talk 程序

hln6610320

is
) i  W' @2 A( H7 V5 n/ @ obj : object;   -- first carbody in store
found : boolean;  -- found a chassis
counter : integer;  -- position in store
do
0 X$ a$ e9 G- U -- make sure there is a carbody in the store
if not StoreCarbody.empty() then
  found := false;
  y! G. Q3 G$ U* S  counter := 1;

  -- iterate through the store
  while not found and counter <= StoreCarbody.xDim loop
   obj := StoreCarbody.pe(counter,1).cont;
! U' U5 q( K. i) `. o! b6 u' L   if(obj /= void) then
$ v+ e: ]9 F% S  N, M; A) w    found := true;
& @& m' [3 m2 _! Z+ `   end; -- if
. D! {! M8 s  q8 N$ y% L   counter := counter + 1;
1 {4 C* B$ @3 v  end; -- while

/ k0 |4 U, O# i$ @2 E9 W1 M( \- P# J  if found then
  -- put the carbody on a skid
   obj.move(@);
  end; -- if
end; -- if not StoreCarbody.empty
: y5 d8 S- ^1 Z1 g* }1 Hend;
里面的found急整个循环不太懂，求高手讲解下？急~~~~