for b=-1.5 to 1.5 step 0.02
for b=-1.5 to 1.5 step 0.02
x=x1*x1-y1*y1+a y=2*x1*y1+b x1=x:y1=y if x>2 or x<-2 then exit for end if if y>2 or y<-2 then exit for end if
x=x1*x1-y1*y1+a
y=2*x1*y1+b
x1=x:y1=y
if x>2 or x<-2 then exit for end if
if y>2 or y<-2 then exit for end if
t=255-i*15 color t,t,t pset a*q+145,b*q+90 x1=0:y1=0:x=0:y=0 next b
t=255-i*15
color t,t,t
pset a*q+145,b*q+90
x1=0:y1=0:x=0:y=0
next b
x=.35 for i=1 to 70
x=.35 for i=1 to 70
if i>30 then pset x*200+10,(r-3)*200 end if next i
if i>30 then
pset x*200+10,(r-3)*200
end if
next i