円を媒介変数表示した式を使うといいかも。
http://cfv21.web.fc2.com/cfv21/math/quadcvparam.htm
ほぼ答えのヒントスクリプトでもどうぞ。
;ヒントスクリプト 1
pi = 3.14159
r = 200
*main
redraw 1 : await 16 : redraw 0 : color 255, 255, 255 : boxf : color : pos 0,0
th++
thr = pi/180.0*th
px = cos(thr)*r
py = sin(thr)*r
line px+ginfo_winx/2, py+ginfo_winy/2, ginfo_winx/2, ginfo_winy/2
goto *main
もう一つの方法として、こういうのもいいと思います。
;ヒントスクリプト 2
py=100
repeat 10
px+=10
line 0,0, px, py
loop
repeat 10
py-=10
line 0,0, px, py
loop
このやり方で特に気にならないならこれの方が簡単で分かりやすくていいかもしれません。