INPUT "c1";c1
INPUT "c2";c2
INPUT "x0";x0
INPUT "y0";y0
pi=3.14159
CLS
	FOR i = 1 TO 15000
	w0=x0-c1
	w1=y0-c2
	IF w0 = 0 THEN theta = pi/2
	IF w0 > 0 THEN theta = ATN(w1/w0)
	IF w0 < 0 THEN theta = pi + ATN(w1/w0)
	r = SQR(w0*w0+w1*w1)
		theta=theta/2+INT(2*RND)*pi
		r=SQR(r)
		x0=r*COS(theta)
		y0=r*SIN(theta)
		IF i < 50 THEN GOTO 77
		m=(x0+2)*300/4
		n=(2-y0)*300/4
		PSET(m,n)
	77 NEXT i
END