Anonymous user
FizzBuzz/Basic: Difference between revisions
→{{header|Minimal BASIC}}: Added.
(→{{header|ASIC}}: Added) |
(→{{header|Minimal BASIC}}: Added.) |
||
Line 233:
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}}==
| |||