REM Start of BASIC!Program

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

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

gr.color 255,255,255,255


spektr:


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

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

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

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

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

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

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

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

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

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

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

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

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

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

goto spektr