FizzBuzz/Basic: Difference between revisions
Content added Content deleted
(→{{header|ASIC}}: Added) |
(→{{header|Minimal BASIC}}: Added.) |
||
| Line 233: | Line 233: | ||
next i</lang> |
next i</lang> |
||
== {{header|Minimal BASIC}} == |
|||
{{works with|Commodore BASIC|3.5}} |
|||
{{works with|Nascom ROM BASIC|4.7}} |
|||
<lang gwbasic> |
|||
10 REM FizzBuzz |
|||
20 FOR I = 1 TO 100 |
|||
30 IF INT(I/15)*15 <> I THEN 60 |
|||
40 PRINT "FizzBuzz" |
|||
50 GOTO 130 |
|||
60 IF INT(I/3)*3 <> I THEN 90 |
|||
70 PRINT "Fizz" |
|||
80 GOTO 130 |
|||
90 IF INT(I/5)*5 <> I THEN 120 |
|||
100 PRINT "Buzz" |
|||
110 GOTO 130 |
|||
120 PRINT I |
|||
130 NEXT I |
|||
140 END |
|||
</lang> |
|||
=={{header|PureBasic}}== |
=={{header|PureBasic}}== |
||