sim talk 程序

hln6610320

is
obj : object;   -- first carbody in store
7 K* t* c$ s8 I& e. a' @ found : boolean;  -- found a chassis
counter : integer;  -- position in store
3 l' f8 s* z! g- T2 a6 w6 {do
8 I3 Q1 b7 P1 r  d -- make sure there is a carbody in the store
if not StoreCarbody.empty() then
* Z8 Z0 I8 G+ M  found := false;
4 V' b2 Z( o/ f  Y8 k5 i1 u1 q$ w  counter := 1;
) Q7 R: d. x) m
* v( }) u- M# x$ h0 M  -- iterate through the store
1 T1 y$ `0 L6 v  g! j& S  while not found and counter <= StoreCarbody.xDim loop
   obj := StoreCarbody.pe(counter,1).cont;
* R$ O7 i# f; V: \$ _, @   if(obj /= void) then
$ V( e% @7 g- q2 M5 L* ^    found := true;
( G5 E  N# O6 u# S   end; -- if
8 h. [% a! z0 \5 W   counter := counter + 1;
7 V% f0 l6 P( Z. Z  end; -- while

$ V) {$ G" Q- u' r  if found then
  -- put the carbody on a skid
7 r4 F: L* L2 U& \8 J0 n6 m7 e& h   obj.move(@);
6 F2 Y$ |. t  W* x$ m5 i  end; -- if
% b& {0 ]1 R8 j end; -- if not StoreCarbody.empty
end;
/ h8 e, @' r+ }7 G/ j里面的found急整个循环不太懂，求高手讲解下？急~~~~