Global gfx = 600,gfy = 600
Graphics gfx,gfy,32,2
SetBuffer BackBuffer()

Global x = gfx/2,y = gfy/2

Global z, dx#, dy#

Global ax=50,ay=gfy/2,avx,avy

Dim mxs(10)
Dim mys(10)

HidePointer()

While Not KeyHit(1)

If z Mod 10 = 0 Then
	MoveMouse(gfx/2,gfy/2)
EndIf


z = (z+1) Mod 10
mxs(z) = MouseXSpeed()
mys(z) = MouseYSpeed()
For i = 0 To 9
	dx = mxs(i) + dx
	dy = mys(i) + dy
Next
dx = dx/20.0
dy = dy/20.0

x = x + dx
y = y + dy

x = x + (gfx/2-x)/5
y = y + (gfy/2-y)/5

For i = 0 To 3
	Color 255-50*i,200-63*i,0
	Oval x-100-i,y-100-i,200+i*2,200+i*2,0
	Oval x-100+i,y-100+i,200-i*2,200-i*2,0
Next

For i = 0 To 97
	If Not MouseDown(1)
		Color 159+i,0,0
	Else
		Color 0,159+i,0
	EndIf
	If MouseDown(2) Then
		Color 0,0,159+i
	EndIf
	Oval x-97+i,y-97+i,194-i*2,194-i*2
Next

Color 255,255,255
Rect ax-5,ay-20,10,40
Color 0,0,0
Text ax-5,ay-21,"A"
Text ax-5,ay-11,"U"
Text ax-5,ay,   "T"
Text ax-5,ay+9,"O"

ax = Floor(ax + (x-gfx/2))
ay = Floor(ay + (y-gfy/2))

Flip
Cls
Wend
End