g={}r=1s=11u=3v=3::_::for k=0,224do
i=k%15j=k\15p=g[i]or i
o=g[j]or j
q=1z=4if(p==s)q=r f=i
if(o==s)z*=r
x=5*u+q*(p%4-u)+z*(o%4-u)<<3y=5*v+q*(p\4-v)+z*(o\4-v)<<3rectfill(x,y,x+6,y+6,(i+j)%15+1)end?"⁶1⁶c"
r-=.1if(r<0)g[f]=u+v*4u=s%4v=s\4while(r!=1or g[f]==s)s=rnd(16)\1r=abs(s%4-u)+abs(s\4-v)
goto _

l=line
a=999s=sin
b=a/2r=rnd
function ★(x,y,o,p,c)u=(abs(s((z/p+o)%1))*4)\1v=u\3l(x-u,y,x+u,y,c)l(x,y-u,x,y+u,c)l(x-v,y-v,x+v,y+v,c)l(x+v,y-v,x-v,y+v,c)end::l::?"⁶1⁶c"
srand()z=t()u=z/40camera(s(u+u)^2*99,s(u)*99)for i=0,a do
x=r(a)-b y=r(a)-b ★(x,y,r()+2,r(5)+2,7)end
goto l

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 _