//
// $Id: t1.prg 1519 1999-10-04 18:46:41Z vszel $
//

// while loop test

function Main()

   local i := 0
   local cb := {|| QOut("test")}

   while i < 1000
      QOut(i)
      eval(cb)
      i++
   end

return nil
