sim talk 程序

hln6610320

is
obj : object;   -- first carbody in store
4 L: }, L, A  M6 U found : boolean;  -- found a chassis
/ I/ r. n9 E1 Z" n# m# T0 [8 ? counter : integer;  -- position in store
do
& e1 l0 R9 t" ? -- make sure there is a carbody in the store
if not StoreCarbody.empty() then
) L1 O4 j- k& `$ e3 O6 ?! q  found := false;
  counter := 1;

: ~, u7 l) y+ L: R4 b  -- iterate through the store
7 V. T  y% G" q0 h3 f" C  while not found and counter <= StoreCarbody.xDim loop
0 R. _7 s- B2 v' A   obj := StoreCarbody.pe(counter,1).cont;
   if(obj /= void) then
    found := true;
   end; -- if
   counter := counter + 1;
4 ?& e- [; h/ A3 A  r% [1 M" H  end; -- while
& f- k4 |: H% Y" W
  if found then
4 y' H$ _3 I6 T  -- put the carbody on a skid
   obj.move(@);
  end; -- if
end; -- if not StoreCarbody.empty
2 O4 K5 }8 V) @( ~' \* e4 ]end;
里面的found急整个循环不太懂，求高手讲解下？急~~~~