sim talk 程序

hln6610320

is
/ I4 c5 V. o8 k+ {1 w' M) ^- X obj : object;   -- first carbody in store
8 T$ \: Q7 m0 x% q# H8 }4 c+ m, x found : boolean;  -- found a chassis
counter : integer;  -- position in store
) ]4 u/ E/ ~5 X) t' I% S- j8 Edo
& x  G2 i# `9 z% {9 y3 U) n  i0 Z -- make sure there is a carbody in the store
& q  E3 E2 n( Z8 _% y" y% x if not StoreCarbody.empty() then
  found := false;
9 f" |. \8 ]* w% {( N+ \$ ]  counter := 1;

8 p" l2 }2 s2 \2 w+ @  -- iterate through the store
  while not found and counter <= StoreCarbody.xDim loop
) {. g9 d" s; W: t% @0 K$ g   obj := StoreCarbody.pe(counter,1).cont;
+ {  ^9 ^/ Y% _) s6 b- G+ \   if(obj /= void) then
! P2 _3 w' n' }/ b    found := true;
  W: b+ }& H  [7 ]2 M& j$ Q& `   end; -- if
7 ^1 v# W5 V" J   counter := counter + 1;
# T; F$ O; Z1 i4 Z  end; -- while

' K- g+ R. e$ G* [  R  if found then
4 S! z, a; ^# @0 {  -- put the carbody on a skid
% P( T  W- t4 T" A' A. F5 T   obj.move(@);
  end; -- if
. x9 p! c, I4 _5 m( n% k# }+ {( s8 R3 T end; -- if not StoreCarbody.empty
end;
里面的found急整个循环不太懂，求高手讲解下？急~~~~