FizzBuzz/Basic: Difference between revisions

m
(Add BaCon)
Line 15:
<lang freebasic>' FizzBuzz
FOR i = 1 TO 100
msg$ = IIF$(MOD(i, 3) = 0, "Fizz", "Fizz")
msg$ = msg$ & IIF$(MOD(i, 5) = 0, "Buzz", "Buzz")
PRINT IIF$(msg$ = "", STR$(i), msg$), " ";
NEXT
Anonymous user