''' spiro2.bas '' Simple eye-candyS demo cls rect 0,0,xmax,ymax color 0 filled dim x(12) dim y(12) h1=ymax/2 for i=0 to 11 t=cos(i*2*pi/12) x(i)=h1+t*(xmax/2-10) t=sin(i*2*pi/12) y(i)=h1+t*(ymax/2-10) next randomize for i=0 to 4 for a=11 to 0 step -1 for b=11 to 0 step -1 circle x(b),y(b),2 color rnd*14 filled line x(a),y(a),x(b),y(b) color b next : next next for i=2 to 0 step -2 for a=11 to 0 step -1 for b=11 to 0 step -1 circle x(b),y(b),2 color 0 filled line x(a),y(a),x(b),y(b) color i next : next: next '