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

s,r={},rnd
for i=1,100 do
add(s,{x=r(128),y=0,v=r(6)+3})
end
::_::
cls()
for k,v in all(s) do
if (k.y<128) k.y+=k.v else k.x,k.y,k.v=r(128),0,r(6)+3
line(k.x,k.y,k.x,k.y-k.v/2,7)
end
flip() goto _

q={} for i=1,150 do q[i]={x=sin(i/200)*30+60, y=(i+70)/3,r=ceil(i/5),c=i/16} end ::_:: cls() for k,v in pairs(q) do if v.r < 80 then v.r += 1 else v.r = 1 v.x = rnd(128) v.y = rnd(128) end for i = 1,4 do circ(v.x,v.y,v.r-i,v.c) end end flip() goto _

p={} for i=0,20 do add(p,{x=64+i*4.5,y=64+i*1.5, q=i*3-32,t=i*3}) end ::_:: cls() for k,v in all(p) do if (k.q<30) k.q+=.1 else del(p,k)add(p,{x=64,y=64,q=-30,t=0}) k.t,k.w,k.h=k.t+.1,k.x,k.y k.x+=sin(k.q)*k.t k.y+=cos(k.q)*k.t line(k.x,k.y,k.w,k.h,7) end flip() goto _

c={} for j=0,33 do for i=0,35 do q=j%2 add(c,{x=i*4+q*2,y=j*4,l=q}) end end::_::cls() for k,v in all(c) do if (k.y<132) k.y+=1 else k.y=-3 if (k.x<130) k.x+=k.l else k.x=-1 line(k.x,k.y,k.x,k.y+3,7) end flip() goto _

p,c=1,{} for i=1,80 do c[i]={i*2,i,i*((i%2)-.5)} end::_::cls() if(p>-1)p-=.01else p=1 for j=1,3 do for i=1,80 do if(c[i][2]>0)c[i][2]-=1 else c[i][2]+=30 c[i][1]=cos(p)*c[i][2]/j c[i][3]+=rnd(2)-1 circ(c[i][1]+64,c[i][3] /j+64,c[i][2],7) end end flip()goto _

p,q={},{} ::_::cls() h=cos(t())*4 for i=0,1 do add(p,{x=54+sin(t()/4)*15, y=h+i-10,w=20,c=flr(t()*8)%2*15+222}) end rectfill(0,0,128,128,14) for k,v in all(p) do if (k.y<128) k.y+=1 k.x-=.5 k.w+=1 else del(p,k) fillp(k.c) line(k.x,k.y,k.x+k.w,k.y,k.c) fillp() end flip() goto _

p={} for j=0,18 do for i=0,8 do add(p,{x=i*16,h=j*8-8}) end end ::_:: cls() rectfill(0,0,127,127,7) x,y=0,0 for v in all(p) do v.y=sin(t()+v.x/10)*10+v.h q=0 if (v.x>1) line(v.x,v.y,x,y,0) x,y=v.x,v.y end flip() goto _

p,tx,ty,l={},0,0,line for i=1,8 do add(p,{x=0,y=0,q=i}) end::_::cls(7) for v in all(p) do j,w=cos(t())*6,v.x v.x,v.y=sin(t()/2+v.q/7)*45+64, abs(64-v.x)*-.2+60+j n,m=v.x,v.y if(w>n or abs(w-n)<2)l (n,m,64,20+j*2,0)l(n,m,64,108-j) if(tx>n)l(n,m,tx,ty) tx,ty=n,m end flip()goto _

p={} for i=0,80 do add(p,{x=(i%9)*16,y=flr(i/9)*16}) end ::_:: w=sin(t())*16+.5 q=cos(t()/2)*40 z=sin(t()/3)*40 cls() for i=1,2 do h=(i-1.5)*1.5 circfill(64+z*h,64+q,30,7) for v in all(p) do rectfill(v.x,v.y,v.x+w/i,v.y+w/i,0) end end flip() goto _

p,tx,ty={},0,0 for i=1,24 do add(p,{x=0,y=0,r=abs (64-(i*6-2)),v=i%2-.5}) end ::_:: cls(0) b=sin(t()/10) i=sin(t()/4)*.8 j=cos(t()/4)*9 for v in all(p) do v.x=64+i*2*v.r*b v.y=64+j*v.v*v.r/5*b line(v.x,v.y,tx,ty,v.x) tx,ty=v.x,v.y end flip() goto _

p,q={},{} for i=0,31 do add(p,{y=i*4})end for i=0,4 do add(q,{x=i*37,v=i})end ::_::cls(7) for v in all(p) do if (v.y<127) v.y+=1 else v.y=0 line(0,v.y,127,v.y,0) end for v in all(q) do if (v.x>-20) v.x-=1 else v.x=164 circfill(v.x,64+sin(t()+v.v/5)* 5,20,7)end flip()goto _

p={} for j=0,23 do for i=1,24 do p[i+j*24]={x=j*4+22,y=i*4+18,v=i/12,q=j/12} end end ::_:: cls(7) for k,v in all(p) do if(k.v<3)k.v+=.04else k.v=-3 if(k.q<3)k.q+=.04else k.q=-3 k.x+=sin(k.q)k.y+=sin(k.v)pset(k.x,k.y,0)end rect(p[1].x,p[1].y,p[#p].x,p[#p].y,0) flip()goto _

pal({11,2,140,136,135,129,1,138,130,143,139,3,7,128,142},1)
t=0 e=128 cls(6) ::e:: t+=1 for c=0,15 do
d=c*21%16*2
fillp(65<<(t/7%4))
circfill(64+64*sin(t/64+c/16),(t+9*d)%(e+d)+(d^^3)/2*sin(c*t/e),d/2,c)
end flip() goto e