sim talk 程序

hln6610320

is
obj : object;   -- first carbody in store
6 S; h: `. W8 R, R  a found : boolean;  -- found a chassis
counter : integer;  -- position in store
0 R) p& }* N. {! s' J1 h6 L% vdo
6 w% u# E, `8 Z0 P6 i8 l -- make sure there is a carbody in the store
$ `% W) A" I) L6 X if not StoreCarbody.empty() then
  found := false;
: q% R  Q+ R9 ^/ {5 K  counter := 1;
) p' K9 ?5 M7 F3 ?
0 l: ?" F" c# |! }  -- iterate through the store
$ [" }: p' _: {$ Z/ _  while not found and counter <= StoreCarbody.xDim loop
- W1 v: B: A% f1 d/ A   obj := StoreCarbody.pe(counter,1).cont;
( w* \' U) a- P4 d1 y3 [4 S   if(obj /= void) then
6 D1 T' z$ N9 a' a- A( g# H    found := true;
   end; -- if
   counter := counter + 1;
1 U+ w9 L+ J; A9 Y+ u" S  end; -- while
, s% E7 ~4 S( E
" s# e% E! [9 {8 ?  S  if found then
) y7 L7 U  l* `5 f# ]  -- put the carbody on a skid
2 q$ j9 G7 x# h0 x/ a   obj.move(@);
  end; -- if
end; -- if not StoreCarbody.empty
- C# n  d) w# Dend;
8 W- _4 U6 L# {+ A" T8 E0 b里面的found急整个循环不太懂，求高手讲解下？急~~~~