10 X=0
12 Y=120
14 Z=0
100 REM 
110 SETCOLOR 0,0,0
112 FILLRECT 0,0,178,220
120 SETCOLOR 255,191,0
122 DRAWARC 50,50,80,80+(Z),X,Y
123 FILLARC 53,53,74,74+(Z),X,Y
124 DRAWSTRING "X="+STR$(X)+"  Y="+STR$(Y),1,1
125 DRAWSTRING "DRAWARC",1,20
126 PLOT 50+(80/2),50+((80+(Z))/2)
300 REM 
310 IF LEFT(0) THEN X=X-1
320 IF RIGHT(0) THEN X=X+1
330 IF DOWN(0) THEN Y=Y-1
340 IF UP(0) THEN Y=Y+1
350 IF INKEY(0)=51 THEN Z=Z+1
360 IF INKEY(0)=57 THEN Z=Z-1
380 IF INKEY(0)<>0 THEN GOTO 100
390 GOTO 300