clear screen
open window 450, 700
backcolor 0, 0, 0
clear window
color 0, 196, 0
x = 0
y = 0 
for n = 1 to 500000
r = ran (1)
if r <= 0.01 then 
	x = 0 
	y = 0.16 * y
elseif r <= 0.08 then
	x = 0.2 * x - 0.26 * y
	y = 0.23 * x + 0.22 * y + 1.6
elseif r <= 0.15 then 
	x = -0.15 * x + 0.28 * y
	y = 0.26 * x + 0.24 * y + 0.44
else
	x = 0.85 * x + 0.04 * y : y = -0.04 * x + 0.85 * y + 1.6
endif
x1 = (x + 3) * 70
y1 = 700 - y * 70
dot x1, y1
next n
inkey$
exit