sim talk 程序

hln6610320

is
obj : object;   -- first carbody in store
found : boolean;  -- found a chassis
counter : integer;  -- position in store
do
-- make sure there is a carbody in the store
) h7 w5 H# `/ m+ m: f3 ]; d3 w if not StoreCarbody.empty() then
( m0 t8 q! Q- A" C$ J* b' [1 m  found := false;
  counter := 1;
1 ?" @" l( G' m/ u0 x! A, A
  -- iterate through the store
7 T) [4 \$ ?: J/ y% W  while not found and counter <= StoreCarbody.xDim loop
7 z8 i/ V% T4 l$ ^+ D. i- N9 t   obj := StoreCarbody.pe(counter,1).cont;
   if(obj /= void) then
    found := true;
   end; -- if
' A5 N# D& C  v  b. J5 s   counter := counter + 1;
  end; -- while

  if found then
2 D# v. z* d3 F6 Z6 H  m- C) W  -- put the carbody on a skid
   obj.move(@);
  end; -- if
; T3 t- p4 o* W  [ end; -- if not StoreCarbody.empty
9 g: ~: e, C- |6 O+ L7 wend;
- b# [# @9 K/ D8 o' y6 o7 V9 h% N里面的found急整个循环不太懂，求高手讲解下？急~~~~