sim talk 程序

hln6610320

is
7 x5 }. A/ _. m7 F obj : object;   -- first carbody in store
( z* A, d3 r* }0 _! j! i+ h found : boolean;  -- found a chassis
counter : integer;  -- position in store
/ H5 _4 g* R8 H# Xdo
9 I. v. n  e- J& A -- make sure there is a carbody in the store
  ]. _2 `$ }( W5 ~" p if not StoreCarbody.empty() then
1 s& g7 h8 E; U7 |' F  found := false;
3 Z$ Y" V, h& _  counter := 1;
$ a" m9 U# V5 c0 }8 x
" E) @6 Y1 x- |& X  -- iterate through the store
; ^" t5 E+ {# S" e9 `& b  while not found and counter <= StoreCarbody.xDim loop
   obj := StoreCarbody.pe(counter,1).cont;
2 r: n, R" c  x; a! o, @& O   if(obj /= void) then
    found := true;
+ H  N- m* m+ g5 K/ {2 _2 z   end; -- if
7 {" U4 i& {: N  G" @# G4 b   counter := counter + 1;
  end; -- while
; A" E+ t6 ~6 {  v) I) u* m
  if found then
& p& D( [1 o* K  -- put the carbody on a skid
/ ^0 }  }0 i' [* E" [/ A: O: I1 |   obj.move(@);
' ?! u% j: G  W% u0 T4 j  end; -- if
2 ?7 X' s" |, G: ` end; -- if not StoreCarbody.empty
end;
里面的found急整个循环不太懂，求高手讲解下？急~~~~