#Experiments in Fractal Geometry
#autonumber
new
b= fn 42

for y = 0 to 127
	for x = 0 to y
m = (x and (y-x))
if m = 0 then grline x+80-.5*y, y+15, x+80-.5*y, y+15
next x
next y

b=fn 22

run