sim talk 程序

hln6610320

is
6 x( C- V- {1 v" }, b4 s obj : object;   -- first carbody in store
found : boolean;  -- found a chassis
counter : integer;  -- position in store
  O9 R% g* {- bdo
-- make sure there is a carbody in the store
2 v5 U4 B. j  z6 r" k& t- j2 o if not StoreCarbody.empty() then
' E3 s& {2 i! X, a" ?  found := false;
7 i  v  S5 k4 T6 q  counter := 1;

  -- iterate through the store
# g$ s  D2 ~# ]9 Y$ h* r7 V9 }  while not found and counter <= StoreCarbody.xDim loop
6 g. U( q. P- {6 N. g' A( K# j, X8 d   obj := StoreCarbody.pe(counter,1).cont;
3 j0 H: Z+ `; M/ d" N2 w- W+ P   if(obj /= void) then
$ F' V8 U5 I. Q/ ^0 {  x    found := true;
   end; -- if
   counter := counter + 1;
3 O; J1 j2 E9 W/ Q2 }2 J  end; -- while
2 p0 R9 `' S- V+ g
4 d/ R* n$ @4 i( D1 g) M8 F  if found then
- d1 ^$ @, t% R1 o1 T6 Q  -- put the carbody on a skid
   obj.move(@);
2 r! I% q" Q( E  end; -- if
7 \, Q; |! |" L, \$ ]! n end; -- if not StoreCarbody.empty
. j7 f$ B, }1 V+ @) A5 U4 [end;
0 E. C( r9 ]& U0 k里面的found急整个循环不太懂，求高手讲解下？急~~~~