window 1

dim as long i

do
  i++
  print i
until ( i mod 6 == 0 )

HandleEvents