16 lines
295 B
Text
16 lines
295 B
Text
'Free BASIC
|
|
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
|