sim talk 程序

hln6610320

is
obj : object;   -- first carbody in store
/ ]& M1 j9 y+ n7 h7 ` found : boolean;  -- found a chassis
$ Q* R1 n+ [- r( t5 H* t counter : integer;  -- position in store
' _. }$ z6 ^/ R3 D: s' y1 Y" Pdo
-- make sure there is a carbody in the store
+ S8 @! F! r; f$ L if not StoreCarbody.empty() then
9 k5 w/ [. o$ \1 g& J7 N& m  found := false;
5 G5 X* K" r" w( c$ U$ m  counter := 1;
! p; H" E. n# K
  -- iterate through the store
  while not found and counter <= StoreCarbody.xDim loop
( |4 O0 W' l( h) h   obj := StoreCarbody.pe(counter,1).cont;
9 Q  I) ^9 Y: O   if(obj /= void) then
- L1 V" {" Y' F! g; y6 t0 K    found := true;
   end; -- if
- w- I) h/ b0 ^* K/ ]   counter := counter + 1;
4 c/ S1 E2 _" C1 h4 z. ~$ e- ^% j  end; -- while
, L8 |! e6 \. j% N- {; W* J, S. T
* G& l, M  E$ P- {  if found then
& ^0 I* s% B3 v! N  j( ~1 l' X. c  -- put the carbody on a skid
   obj.move(@);
( v7 u0 I$ z# ^# H0 }, l% y4 V2 o  end; -- if
) B! p& Z4 k2 y, H, S$ Y2 n end; -- if not StoreCarbody.empty
; r9 P: V: A$ @6 j& x' ?& V' L* i- }end;
里面的found急整个循环不太懂，求高手讲解下？急~~~~