RosettaCodeData/Task/Loops-Continue/FreeBASIC/loops-continue.basic

13 lines
151 B
Plaintext

' 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