AT&T 6300 Programmer's Manual page 555

DEB Statements
The following example draws 3 interlocking circles
in 16-color graphics mode and fills each separate
section with various colors.
10 SCREEN 102 'set 16 color graphics
15 REM mode
20 CLS:KEY OFF 'clear screen and turn
25 REM functions keys off
30 COLOR ,,1 'use palette 1
35 REM
40 CIRCLE(320,200),100,15 'draw circle 1
50 CIRCLE(270,15OJ,100,15 'draw circle 2
60 CIRCLE (370,15OJ,100,15 'draw circle 3
70 PAINT (320,200),13,15 'fill with palette
75 REM ' position 13
80 PAINT (269,15OJ,12,15
'fill with palette
85 REM positio'n 12
90 PAINT (371,150),11,15 'fill with palette
95 REM position 11
100 PAINT (320,250),10,15
'fill with palette
105 REM position 10
110 PAINT (3aO,100),9,15 'fill with palette
115 REM position 9
120 PAINT (220,15OJ, 8,15 'fill with palette
125 REM position 8
130 PAINT (420,15OJ,7,15 'fill with palette
135 REM position 7
140 FOR I
=
7 TO 13 'loop thr.u'the used
145 REM
palette positions
150 PALETTi: 1,135
+
RND*120 'use a random
155 REM dithered color for
157 REM palette position
160 FOR A
=
1 TO 100:NEXT A
'wait awhile
170 NEXT I
180 IF LENUNKEY$l
=
0 THEN GOTO 140
185 REM 'check for keypress
190 SCREEN 0,0,0
'return to normal
200 END
3-17