bgcolor 0, 0, 0
cls graphics
fgcolor 255, 255, 0

define pi = 3.14, size = 80
define x = 250, y = 200
define a = 1.5, b = .7

for t = 0 to size * pi step .1

	let r = a + b * t
	dot r * cos(t) + x, r * sin(t) + y
	wait

next t