Commodore 128 System Manual 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 C O L O R
20 C O L O R
30 C O L O R
40 G R A P H I C
50 F O R
60 C I R C L E
70 N E X T
80 C O L O R
90 FO R
100 C I R C L E
110
120 C O L O R
130 F O R
140 C I R C L E
150 N E X T
1 6 0 F O R
170 G R A P H I C
10 G R A P H I C
20 C O L O R
30 C O L O R
40 F O R
50
60 C O L O R
70 X = INT
80 Y = I NT
90 U = I NT
100 V = INT
110 D R A W 1 , X , Y TO U
120 N E X T
130
140 G O T O
0,1
1,8
4,1
1,1
1=80 TO
1 , 1 , 1 0 0 , 7 5 , 7 5
I
1,5
1= 80 TO 250
1 , 1 , 1 0 0 , 5 0 , 5 0
N E X T I
1,7
1=50 TO
1 , 1 , 1 0 0 , 2 5 , 2 5
I
1=1 TO 7 5 0 0 : N E X T
0 , 1 : C O L O R
1,1
0,1
4,1
1 = 1 TO
Z=I NT (((RND
1,Z
(((RND
(((RND
(((RND
(((RND
I
S C N C L R
40
240 ST EP
S T EP
280 S T E P
1, 2
50
(1) ) * 1 6 ) + 1 ) * 1
(1) ) * 3 0 ) + l ) *10
(1) ) * 2 0 ) + 1 ) * 1 0
(1) ) * 3 0 ) + 1 ) * 1 0
(1 ) )* 2 0 ) + l ) *10
r
V
10
10
10
I
6-15