RosettaCodeData/Task/Loops-Continue/FreeBASIC/loops-continue.basic
2023-07-01 13:44:08 -04:00

12 lines
151 B
Text

' FB 1.05.0 Win64
For i As Integer = 1 To 10
Print Str(i);
If i Mod 5 = 0 Then
Print
Continue For
End If
Print ", ";
Next
Print
Sleep