Will this help?
sync on : sync rate 50
cx = 320
cy = 240
ra = 25
ang# = 0.0
do
cls
circle cx,cy,ra
RotateLine(cx,cy,ra,25,ang#)
if leftkey()=1 then ang# = ang# - 1.0
if rightkey()=1 then ang# = ang# + 1.0
sync
loop
Function RotateLine(x,y,radius,length,angle#)
angle# = 180.0 - angle#
lx1 = newxvalue(x,angle#,radius)
ly1 = newzvalue(y,angle#,radius)
lx2 = newxvalue(x,angle#,radius+length)
ly2 = newzvalue(y,angle#,radius+length)
Line lx1,ly1,lx2,ly2
endfunction
Programming anything is an art, and you can't rush art.
Unless your name is Bob Ross, then you can do it in thirty minutes.