REM Start of BASIC!Program

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

gr.set.antialias 10
gr.set.stroke 10

gr.color 255,255,255,255


spektr:


Gr.Color rnd()*255, 227, 0, 41,0
gr.circle k,200,400,140

Gr.Color rnd()*255, 255, 98, 101,0
gr.circle k2,200,400,130

Gr.Color rnd()*255, 255, 160, 32,0
gr.circle o,200,400,120

Gr.Color rnd()*255, 255, 155, 30,0
gr.circle o2,200,400,110

Gr.Color rnd()*255, 255, 230, 11,0
gr.circle g,200,400,100

Gr.Color rnd()*255, 255, 222, 77,0
gr.circle g2,200,400,90

Gr.Color rnd()*255, 110, 255, 10,0
gr.circle z,200,400,80

Gr.Color rnd()*255, 49, 255, 45,0
gr.circle z2,200,400,70

Gr.Color rnd()*255, 0, 239, 228,0
gr.circle h,200,400,60

Gr.Color rnd()*255, 34, 255, 239,0
gr.circle h2,200,400,50

Gr.Color rnd()*255, 10, 0, 246,0
gr.circle s,200,400,40

Gr.Color rnd()*255, 15, 49, 255,0
gr.circle s2,200,400,30

Gr.Color rnd()*255, 250, 0, 236,0
gr.circle f,200,400,20

Gr.Color rnd()*255, 255, 45, 238,0
gr.circle f2,200,400,10

gr.render

gr.cls

goto spektr