MODE 2
Dim CM(3)=(RGB(Blue),RGB(Cyan),RGB(Yellow),RGB(Magenta))
Dim R(15)=(0,8,2,10,12,4,14,6,3,11,1,9,15,7,13,5)
L=Log(2)
S=0:For U=-1.725 To -1.225 Step .5/MM.HRES
D=0:For V=-0.2 To .0000002 Step .4/MM.VRES
Color CM(Int((fM(U,V)+R(S Mod 4+4*(D Mod 4)))/16)Mod 4)
Pixel S,D:Pixel S,MM.VRES-D
Inc D: Next V
Inc S: Next U
Do :Loop While Inkey$=""

Function fM(U,V)
Local X,Y,A,B,C
Do
 Y=2*X*Y+V
 X=A-B+U
 A=X*X
 B=Y*Y
 Inc C
Loop Until C>=50 Or A+B>16
If C=50 Then fM=0 Else fM=5*(C+1-Log((Log(A+B)/2)/L)/L)
End Function