RosettaCodeData/Task/Draw-a-sphere/Craft-Basic/draw-a-sphere.basic

let j = 2

for i = 221 to 0 step j * -1

	for k = -3.14 to 3.14 step .01

		dot 221 + i * sin(k), 222 + 221 * cos(k)
		dot 221 + 221 * sin(k), 222 + (i - 1) * cos(k)

		wait

	next k

	let j = j + 1

next i