CLS
FOR i = 1 TO 300
	FOR j = 1 TO 150
		c1=-2+4*i/300
		c2=2-4*j/300
		x=c1
		y=c2
			FOR n = 1 TO 30
			x1=x*x-y*y+c1
			y1=2*x*y+c2
			r=x1*x1+y1*y1
			IF r > 4 THEN GOTO 1000
			x = x1
			y = y1
			NEXT n
		PSET(i, j)
		PSET(i,300-j)
	1000 NEXT j
NEXT i
END