Commodore 128 - Page 113

Note: SCALE comes after GRAPHIC and does not affect CHAR.
Here are some additional example programs using the graphics
statements you just learned.
10 COLOR 0,1
20 COLOR 1,8
30 COLOR 4,1
40 GRAPHIC 1,1
50 FOR 1=80 TO 240 STEP 10
60 CIRCLE 1,1,100,75,75
70 NEXT I
80 COLOR 1,5
90 FOR 1= 80 TO 250 STEP
10
100 CIRCLE 1,1,100,50,50
110 NEXT I
120 COLOR 1,7
130 FOR 1=50 TO 280 STEP
10
140 CIRCLE 1,1,100,25,25
150 NEXT I
160 FOR 1=1 TO 7500:NEXT I
170 GRAPHIC 0,1:COLOR 1,
2
10
GRAPHIC 1,1
20
COLOR 0,1
30 COLOR
4,1
40
FOR 1 =1 TO 50
50
Z=I NT
(((RND
(1) )
*16)+1)*1
60 COLOR 1,Z
70 X = INT
(((RND
(1)
)
*30)+l)*10
80
Y = I NT
(((RND
(1) )
*20)+1)*10
90
U = I NT
(((RND
(1)
)
*30)+1)*10
100 V = INT (((RND
(1)
)*20)+l)*10
110
DRAW
1,X,Y TO U
r
V
120
NEXT
I
130 SCNCLR
140
GOTO
40
6-15