RosettaCodeData/Task/Loops-Do-while/FutureBasic/loops-do-while.basic

window 1

dim as long i

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

HandleEvents