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 x=200 y=400 k=0 n=0 p=0 run: for a=1 to 7 step 1 for I=0 to 360 step 30 x=190*sin(I/180*3.14) y=190*cos(I/180*3.14) if a=1 then gr.color255,227,0,41,1 if a=2 then gr.color255,255,160,32,1 if a=3 then gr.color255,255,230,11,1 if a=4 then gr.color255,110,255,10,1 if a=5 then gr.color255,0,239,228,1 if a=6 then gr.color255,10,0,246,1 if a=7 then gr.color255,250,0,236,1 gr.circle nc,w/2+x/2,h/2-y/2,25 gr.render next I next a goto run