setscreen("graphics:max,max")

var name :string
put "Please enter your name or a word or something: "..
get name
setscreen("offscreenonly")
var xm,ym,bm :int
var sx,sy,sr :int
var degree :real:=0
var font:int := Font.New ("serif:40")

loop
Mouse.Where(xm,ym,bm)
xm:= xm-maxx div 2
ym:=ym -maxy div 2
if xm not =0 then
degree:= arctand(abs(ym)/abs(xm))
end if
if xm = 0 then
degree:=90
end if
sr:=round(sqrt(xm**2+ym**2))div 2
if xm>0 and ym>=0 then
degree+=0
end if
if xm<0 and ym>0 then
degree:=180-degree
end if
if xm<0 and ym<0 then
degree+=180
end if
if xm>=0 and ym<=0 then
degree:=360-degree
end if

locate(1,1)
put degree
degree-=180
cls
Mouse.Where(xm,ym,bm)
Draw.FillOval(xm,ym,50,50,44)
for decreasing i:sr ..1
sx:=round(maxx div 2+i*cosd(degree))
sy:=round(maxy div 2+i*sind(degree))
Font.Draw (name,sx - Font.Width (name, font)div 2,sy-15, font, 7)
end for
Font.Draw (name,sx - Font.Width (name, font)div 2,sy-15, font, 3)

View.Update

exit when hasch
end loop