clear screen
open window 800, 600
backcolor 0, 0, 0
clear window
x1 = 400
x2 = 400
y1 = 0
y2 = 0
for k = 1 to 100000
	los = int (ran (3))
	if los = 0 then 
		x1 = (x2 + 400) / 2
		y1 = y2 / 2
	elseif los = 1 then 
		x1 = x2 / 2
		y1 = (y2 + 600) / 2
	else 
		x1 = (x2 + 800) / 2
		y1 = (y2 + 600) / 2
	endif
	a = int (y1 / 2.4) 
	b = int (x1 / 3.2) 
	color a, b, 255 - a
	dot x1, y1
	x2 = x1
	y2 = y1
next k
inkey$
exit