REM Start of BASIC!Program

gr.open 0, 0, 0, 0
gr.orientation 1
gr.screen w,h

gr.set.antialias 0
gr.set.stroke 1

% круг с линиями
gr.color 255,255,255,255,0
gr.circle kr,240,240,240
gr.render

for I=0 to 360 step 22.5
x=240*sin(I/180*3.14)
y=240*cos(I/180*3.14)
gr.line l3,x+240,y+240,240,240

next I
gr.render

run:

for I=0 to 360 step 45
x=240*sin(I/180*3.14)
y=240*cos(I/180*3.14)
gr.color 255,255,255,255,1
gr.circle nc,w/3.0+x/2,h/3.55-y/2,10
next I

gr.render

goto run