Shows some circles, thats all really.
change rowsize for bigger/smaller circles
#constant rowsize 5
randomize timer()
sync on
do
row=0 : b#=0 : c#=0 : nx=0 : ny=0
repeat : t=rnd(2)+1 : until ot<>t-1 : dec t : ot=t
repeat
inc b#,0.5
if t=0 then ink rgb(b#*rowsize,0,0),0
if t=1 then ink rgb(0,b#*rowsize,0),0
if t=2 then ink rgb(0,0,b#*rowsize),0
for a=0 to 360
x=sin(a)*b# : y=cos(a)*b#
line x+screen width()/2,y+screen height()/2,nx+screen width()/2,ny+screen height()/2
nx=x : ny=y
if (b#-c#)*rowsize>255 then c#=b# : inc row
next a
sync
until row>6
loop