10 CLEAR ALL
20 SCREEN 5
30 DOUBLE BUFFER
40 x=LERP(x,MOUSE.X/2,0.05)
50 y=LERP(y,MOUSE.Y/2,0.05)
60 LOCATE 1,1:PRINT "X:";USING$("#####",x);"  Y:";USING$("#####",y)
70 BRUSH 25
80 INK PLASMA.COLOR
90 CIRCLE FILL x,y,50
100 INK RGB(255,255,255)
110 CIRCLE x,y,50
120 SWAP BUFFERS CLS
130 PAUSE
140 IF INKEY$="" THEN 40
