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

' FB 1.05. 0 Win64

Dim i As Integer = 0
Do
  i += 1
  Print i; " ";
Loop While i Mod 6 <> 0
Print
Sleep