Graphics 640,480,16,2
SetBuffer BackBuffer()

x_min# = -3.2
x_max# = 3.2
Const step_x# = 0.01

y_min# = -2.4
y_max# = 2.4
Const step_y# = 0.01

zoom# = 100

or_x = 320
or_y = 240

time_start = MilliSecs()

Cls

LockBuffer BackBuffer()

For x# = x_min To x_max Step step_x
For y# = y_min To y_max Step step_y

op#=0
oq#=0
p#=0
q#=0
itr=0

While ( op+oq<4 And itr < 96)
	p = p*q*2 + y
	q = op-oq + x
	op = p*p
	oq = q*q
	itr = itr + 1
Wend


x_draw# = x*zoom+or_x
y_draw# = y*zoom+or_y

WritePixelFast x_draw,y_draw,IntColor(op Shl 2,itr Shl 1,itr,255),BackBuffer()

Next

AppTitle x#
Next

UnlockBuffer BackBuffer()

Flip

AppTitle MilliSecs()-time_start

WaitKey
End

Function IntColor(R,G,B,A=255)
Return A Shl 24 Or R Shl 16 Or G Shl 8 Or B Shl 0
End Function