AT&T 6300 Programmer's Manual page 562

'return to normal
'see if key
pressed
'GET array
'turn off function keys
'set 16 color graphics
DEB Statements
3-24
The following program shows a box containing a
circle and how the GET statement and the PUT
statement work with the DEB. The GET array
takes four times as much storage as it does in non-
DEB graphics.
40 DIM PICOfo(300OJ
50 KEY OFF
60 SCREEN 102
70 FOR X
=
1 TO 15
80 CLS 'clear screen
90 CIRCLE (100,100),50,1 'draw circle
100 LINE (49,50)-(151,15OJ, 15-X,B
105 REM draw a box around the circle
110 PAINT (100,100),X,1 'fill the circle
120 GET (49,50)-(151,150),
PICOfo 'get the graphics
125 REM Image
130 FOR J
=
1 TO 200 STEP 50
140 FOR I
=
0 TO 50 STEP 10
150 PUT (RND*537
+
1,RND*297
+
1), PICOfo,PSET
155 REM 'put it randomly on the
157 REM screen
160 IF LENliNKEY$)
<>
0
THEN 210
165 REM
170 NEXTI
180 NEXTJ
190 NEXTX
200 GOT070
210 SCREEN 0,0,0
220 END