sim talk 程序

hln6610320

is
obj : object;   -- first carbody in store
found : boolean;  -- found a chassis
$ B$ q2 D" P* O+ R  D# m# ` counter : integer;  -- position in store
do
-- make sure there is a carbody in the store
8 @* h. _# a3 n# N# F if not StoreCarbody.empty() then
2 q) C; c  l, }7 v$ i" Y  found := false;
  counter := 1;

4 h/ t, `. h6 U& J2 r  -- iterate through the store
5 y7 F8 ~8 O, \; C  while not found and counter <= StoreCarbody.xDim loop
   obj := StoreCarbody.pe(counter,1).cont;
! S; n/ g: t, l# N; b0 S0 k   if(obj /= void) then
    found := true;
   end; -- if
) G" c" R1 o3 A1 H9 r   counter := counter + 1;
+ `% q& o  L, S7 e- o" K* `& [  R1 Z  end; -- while
5 A7 F# T; V! Y+ F. Q1 _: \
  if found then
7 s: c& Z3 n/ `+ y  U3 e% G1 n  -- put the carbody on a skid
+ }1 \1 T# I9 S. i% Y   obj.move(@);
0 E2 D( Z& Q* e8 z) E  end; -- if
end; -- if not StoreCarbody.empty
end;
3 ^$ A2 f: X. _9 l: b: ]; n里面的found急整个循环不太懂，求高手讲解下？急~~~~