local m=10/100

::l::

cls()

f=10
fl=true
for i=0,-10000,-10 do
	local h=10
	local z=i+time()*20
	local x=cos(i/45)*8
	local y=cos(i/100)*8
	local hi=h*m*z
	local c=7
	if(fl)c=0
	fl=not fl
	circfill(64+x,64+y,hi,c)
end

flip()

goto l