RosettaCodeData/Task/Loops-Do-while/Microsoft-Small-Basic/loops-do-while-2.basic

i = 0
loopStart:
i = i + 1
TextWindow.WriteLine(i)
If Math.Remainder(i, 6) <> 0 Then
  Goto loopStart
EndIf