Anonymous user
FizzBuzz/Basic: Difference between revisions
→{{header|XBasic}}
Line 288:
End Sub</lang>
== {{header|XBasic}} ==
<lang xbasic>
PROGRAM "fizzbuzz"
VERSION "0.0001"
DECLARE FUNCTION Entry()
FUNCTION Entry()
FOR i% = 1 TO 100
SELECT CASE TRUE
CASE i% MOD 15 = 0:
PRINT "FizzBuzz"
CASE i% MOD 3 = 0:
PRINT "Fizz"
CASE i% MOD 5 = 0:
PRINT "Buzz"
CASE ELSE:
PRINT i%
END SELECT
NEXT i%
END FUNCTION
END PROGRAM
</lang>
| |||