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