REM Start of BASIC! Program
gr.open 0, 0, 0, 255
gr.orientation 1
gr.screen w,h
gr.set.stroke 1
gr.bitmap.create bm,480,800
gr.bitmap.drawinto.start bm
gr.color 255,0,0,0,1
gr.rect vbn,0,0,480,800
gr.bitmap.drawinto.end
gr.bitmap.draw bmp,bm,0,0
do
for ll=0 to 324 step 36
l=360-ll
x=80*sin(toradians(l))+240
y=80*cos(toradians(l))+240
x1=80*sin(toradians(l-36))+240
y1=80*cos(toradians(l-36))+240
x2=80*sin(toradians(l-72))+240
y2=80*cos(toradians(l-72))+240
gr.bitmap.drawinto.start bm
gr.color 255,50,50,50
gr.circle c,x,y,20
gr.color 255,150,150,150
gr.circle c,x1,y1,18
gr.color 255,255,255,255
gr.circle c,x2,y2,18
gr.bitmap.drawinto.end
gr.modify bmp,"bitmap",bm
gr.render
pause 100
next ll

until 0