Anonymous user
FizzBuzz/Basic: Difference between revisions
moving BBC BASIC, Casio BASIC
(moving FizzBuzz / Basic to subpage) |
(moving BBC BASIC, Casio BASIC) |
||
Line 1:
{{collection|FizzBuzz}}
=={{header|BASIC}}==
Line 45:
80 NEXT A
</lang>
=={{header|BBC BASIC}}==
<lang bbcbasic> FOR number% = 1 TO 100
CASE TRUE OF
WHEN number% MOD 15 = 0: PRINT "FizzBuzz"
WHEN number% MOD 3 = 0: PRINT "Fizz"
WHEN number% MOD 5 = 0: PRINT "Buzz"
OTHERWISE: PRINT ; number%
ENDCASE
NEXT number%</lang>
=={{header|Casio BASIC}}==
<lang>For 1→A To 100 Step 1↵
MOD(A,15)→B↵
MOD(A,3)→C↵
MOD(A,5)→D↵
↵
B=0⇒"FIZZBUZZ"↵
B=0⇒Goto 1↵
C=0⇒"BUZZ"↵
C=0⇒Goto 1↵
D=0⇒"FIZZ"↵
D=0⇒Goto 1↵
↵
A◢
Goto 1
↵
Lbl 1↵
Next</lang>
| |||