screen 12:cls
m=300
vrem=.00
dim r1(m),x(m),y(m),rt(m),xt(m),yt(m)
mx=m
for k=1 to mx
gosub gener
next k
glass:
 k=1+int(mx*rnd)
 'circle(xt(k),yt(k)),rt(k),2
 paint(xt(k),yt(k)),0,0
 'preset(xt(k),yt(k))
 'circle(x(k),y(k)),r1(k),15
 'paint(x(k),y(k)),0
 'circle(x(k),y(k)),r1(k),0
 gosub gener
 delay vrem
 if inkey$=chr$(13) then stop
 goto glass

gener:
 r1(k)=3+5*rnd
 r2=.85*r1(k)
 r3=.05*r2:rt(k)=r3
 i=int(1+4*rnd)
 if i=1 then c1=1:c2=9
 if i=2 then c1=4:c2=12
 if i=3 then c1=5:c2=13
 if i=4 then c1=8:c2=7
 x(k)=r1(k)+(640-2*r1(k))*rnd
 y(k)=r1(k)+(480-2*r1(k))*rnd
 circle(x(k),y(k)),r1(k)
 paint(x(k),y(k)),c2:circle(x(k),y(k)),r1(k),c2
 xc=x(k)-.1*r1
 yc=y(k)-.1*r1
 circle(xc,yc),r2
 paint(xc,yc),c1
 circle(xc,yc),r2,c1
 xc=xc-.4*r2:yc=yc-.4*r2
 xt(k)=xc:yt(k)=yc
 circle(xc,yc),r3,15
 paint(xc,yc),15
return