sim talk 程序

hln6610320

is
( |' W' b. Y- A- R$ n9 @8 ` obj : object;   -- first carbody in store
found : boolean;  -- found a chassis
counter : integer;  -- position in store
+ ~$ g2 o2 |( H. d3 R) T4 B  [do
-- make sure there is a carbody in the store
; n9 |- n+ W; Q, \$ ^# Z0 u2 D if not StoreCarbody.empty() then
  found := false;
2 i% A2 S8 B- H" C6 V; E  counter := 1;
2 n+ [" U- _: w7 s: e) U& f* H
) B) Q4 t6 h  \) |  }2 M; b: Q  -- iterate through the store
  while not found and counter <= StoreCarbody.xDim loop
   obj := StoreCarbody.pe(counter,1).cont;
   if(obj /= void) then
8 }2 O, n: o- c7 }4 Y3 w. J    found := true;
9 x- t3 P+ {7 m  H" u: P3 m   end; -- if
   counter := counter + 1;
( ?+ k# f3 L' o7 l- y7 Q  end; -- while
8 e' e' ^" E) ^" Q$ N1 h
  if found then
  -- put the carbody on a skid
' G2 l+ \1 b: J" S- ?9 `   obj.move(@);
  end; -- if
# a1 g" i+ n+ [3 V' [ end; -- if not StoreCarbody.empty
- g3 U& G% I' b, eend;
+ X' g, L. G. v4 `: `里面的found急整个循环不太懂，求高手讲解下？急~~~~