Commodore Plus 4 - Page 108

10 COLOR 0,1
20 COLOR 1,2
30 GRAPHIC 1,1
40A = RND(l)*20 + 10
50 FOR L = 0 TO 359 STEP A
60 CIRCLE 1, 160, 100, 80, 40,,,L
70 NEXT L
80FORL=lTO2000: NEXT L
90 GRAPHIC 0,1
Here's a program you can try that uses the CIRCLE command to create
a simple design.
NEW
10 COLOR 0,1
20 COLOR 1,2
30 GRAPHIC 2,1
40FORL = lTO4
50Y=50
60IFL = 2ORL = 4THENY=100
70X=L*35 + 50
80
CIRCLE 1, X, Y, 50, 42
90 NEXT L
100 PRINT "PLUS/4 CIRCLES"
-
u
100 —