*movewindow(400,200,150,150)
demand 0
for deg = 5 to 360 step 5
	for linepos=1 to 50
		x=sin(2*3.14159/(360/deg))*linepos+70
		y=cos(2*3.14159/(360/deg))*linepos+70
		pset(x,y),linepos mod 15 
	next
next
demand 10
while fin$=""
fin$=inkey$:wend
end