MODE 3
CX=MM.HRES\2
CY=MM.VRES\2
Dim P(5),Q(5)
For L=0 To 5
 S=Pi/3*L
 P(L)=500*Sin(S)
 Q(L)=500*Cos(S)
Next

X=0:Y=500
For L=0 To 320000
 R=Int(Rnd*6)
 X=(X+P(R))/2
 Y=(Y+Q(R))/2
 PX=CX+X\2
 PY=CY+Y\2
 G=Pixel(PX,PY)
 Color Map(1)
 If G>0 Then Color Map(7)
 Pixel PX,PY
Next