RosettaCodeData/Task/FizzBuzz/BASIC/fizzbuzz.basic

'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