Try This

Circle Fill

10 INPUT "X-COORDINATE? (0-255)(127 IS CENTER) ";X
20 INPUT "Y-COORDINATE? (0-255)(87 IS CENTER) ";Y
30 INPUT "RADIUS? ";R
40 CIRCLE X,Y,R: PLOT X,Y
50 INPUT "CHOOSE COLOR BY KEY NUMBER ";C: INK C
110 FOR N=0 TO R
120 LET Z=R↑2: LET ZZ=N↑2
130 LET XX=SQR (Z-ZZ)
140 LET YY=Y+XX: LET XY=2*XX
150 PLOT X+N,YY: DRAW 0,-XY
160 PLOT X-N,YY: DRAW 0,-XY
170 NEXT N
210 INK 0
220 CIRCLE X,Y,R-12
230 FOR G=11 TO 16
240 CIRCLE X,Y,R+G
250 NEXT G
310 PRINT AT 0,0;"X=";X;AT 1,0;"Y=";Y;AT 2,0;"R=";R
320 PRINT AT 0,8;"COLOR KEY NO.=";C
330 PRINT AT 21,4;"HIT ANY KEY TO REPEAT"
340 PAUSE 0: CLS: GO TO 10

CAPS Mode

10 REM ************************************
12 REM IN AND OUT OF CAPS MODE FROM WITHIN PROGRAM (FOR T/S 2068) See SYNTAX, March 1984
14 REM ************************************ EXAMPLE PROGRAM Walt Gaby, April 1984
16 REM ************************************
20 POKE 23658,8
30 INPUT a$
35 FOR n=1 TO 5
40 PRINT a$
45 NEXT n
50 POKE 23658,0
60 INPUT b$
65 FOR n=1 TO 3
70 PRINT b$
75 NEXT n
80 GO TO 10