screen 12
r=100
m=20000
xa=180
yc=180

xb=420

pi=4*atn(1)
locate 20,23:?"1"
locate 20,53:?"2"
for n=1 to m
rp=sqr((r^2)*rnd)
fi=2*pi*rnd
x=xb+rp*cos(fi)
y=yc+rp*sin(fi)
pset (x,y)
rp=r*rnd
x=xa+rp*cos(fi)
y=yc+rp*sin(fi)
pset (x,y)
next n

locate 22,1:?"Hit <Esc> - to quit"
wata:
 if inkey$=chr$(27) then stop else wata