RosettaCodeData/Task/Loops-Do-while/Microsoft-Small-Basic/loops-do-while-2.basic
2023-07-01 13:44:08 -04:00

7 lines
108 B
Text

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