Skip to content
This repository was archived by the owner on Jan 18, 2021. It is now read-only.

Commit c803bee

Browse files
committed
Add Commodore64 BASIC version of fizzbuzz
This code ran in VICE version 3.4
1 parent ae9c1f6 commit c803bee

File tree

1 file changed

+19
-0
lines changed

1 file changed

+19
-0
lines changed

Diff for: C64 BASIC/FIZZBUZZ

+19
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,19 @@
1+
1 REM
2+
2 REM FIZZBUZZ IN COMMODORE BASIC
3+
3 REM
4+
10 T = TIME
5+
15 PRINT CHR$(147);
6+
20 FIZZ = 0 :BUZZ = 0 :ROW = 0 :COL = 0
7+
30 FOR I = 1 TO 100
8+
40 FIZZ = FIZZ + 1 :BUZZ = BUZZ + 1
9+
50 ROW = ROW + 1
10+
60 POKE 211, COL
11+
70 IF FIZZ = 3 THEN PRINT "FIZZ"; :FIZZ = 0
12+
80 IF BUZZ = 5 THEN PRINT "BUZZ"; :BUZZ = 0
13+
90 IF FIZZ > 0 AND BUZZ > 0 THEN PRINT I;
14+
100 IF ROW = 25 THEN PRINT CHR$(19); :COL = COL + 10 :ROW = 0
15+
110 IF ROW > 0 THEN PRINT
16+
120 NEXT
17+
130 SECS = (TIME - T) / 60
18+
140 POKE 198, 0 :WAIT 198, 1
19+
150 PRINT CHR$(147) "RAN FOR" SECS "SECONDS"

0 commit comments

Comments
 (0)