// while loop test

function Main()

   local x := 0

   while x++ < 1000
      QOut( x )
   end

return nil