FizzBuzz/Basic: Difference between revisions
moved entry and gave it a header
(moved entry and gave it a header) |
|||
Line 98:
Lbl 1↵
Next</lang>
=={{header|FreeBASIC}}==
<lang freebasic>'FreeBASIC
Dim As ULong n
For n = 1 To 100
If n Mod 15 = 0 Then
Print "FizzBuzz"
ElseIf n Mod 3 = 0 Then
Print "Fizz"
ElseIf n Mod 5 = 0 Then
Print "Buzz"
Else
Print n
End If
Next n
sleep</lang>
=={{header|GW-BASIC}}==
|