sim talk 程序

hln6610320

is
obj : object;   -- first carbody in store
found : boolean;  -- found a chassis
9 |3 w1 q- q, X3 w$ F3 u" E counter : integer;  -- position in store
; _0 ^0 i/ c) _% ]do
/ L6 v% l  k* z) z% j) Z* G$ B -- make sure there is a carbody in the store
# i' [1 G$ x5 |' K' R if not StoreCarbody.empty() then
  found := false;
) E+ p$ A" w* O  counter := 1;
% P( c+ D) J# A9 d
  -- iterate through the store
  f6 O! }, a6 y- m  while not found and counter <= StoreCarbody.xDim loop
6 W3 r2 \& b4 R! ^0 {   obj := StoreCarbody.pe(counter,1).cont;
! S8 V( x. ~& i" y   if(obj /= void) then
+ u- m$ ], |1 J0 T# Q    found := true;
   end; -- if
   counter := counter + 1;
9 B: J! b% Z: E3 y& z  end; -- while

7 ~/ D# F1 u, V5 B0 T% ]7 W  if found then
  -- put the carbody on a skid
   obj.move(@);
  end; -- if
end; -- if not StoreCarbody.empty
# v/ [( y; t, d4 U9 _" wend;
7 H0 r3 c; i  I" F+ N2 F- u+ b里面的found急整个循环不太懂，求高手讲解下？急~~~~