sim talk 程序

hln6610320

is
obj : object;   -- first carbody in store
found : boolean;  -- found a chassis
counter : integer;  -- position in store
do
-- make sure there is a carbody in the store
if not StoreCarbody.empty() then
  found := false;
* o- g" B/ s4 k7 e" b  counter := 1;
+ ]; F$ P8 Z: w$ c" d$ g
3 B7 }% R3 X3 V& n, v  -- iterate through the store
  while not found and counter <= StoreCarbody.xDim loop
   obj := StoreCarbody.pe(counter,1).cont;
. R( T6 w6 E& P. |/ W( D2 N   if(obj /= void) then
1 g# C5 v+ s* B' p& G9 r    found := true;
   end; -- if
* Q6 i" t) _" {, Q   counter := counter + 1;
  end; -- while

! o4 k# @2 I- f, T+ |. }# a  if found then
9 {: P- S. H" l  H' h; Q$ B3 ~  -- put the carbody on a skid
  [5 Z/ F# j& U+ t8 j* \( \& H  K& [   obj.move(@);
  end; -- if
; k. R, x' A- s4 g end; -- if not StoreCarbody.empty
end;
6 o" d6 S' y  P* E4 _里面的found急整个循环不太懂，求高手讲解下？急~~~~