t=0
::s::
t+=rnd(.1)-.02
for i=24576,32767 do
vl=abs(sin(t+i*.0001+rnd(.1))*14)
vr=vl-rnd(99)/50
poke(i,band(vr,15)*16+vl)
end
flip()
goto s

s=60t=s::a::y=rnd(128)x=rnd(128)u=x-s v=y-s
q=.01*t+atan2(u,v)n=.1*sqrt(u*u+v*v)line(x,y,x-n*cos(q),y-n*sin(q),pget(x,y))t-=.1^4
?"�",s,s,t
goto a

z=128::s::t=time()for i=0,999 do
x=rnd(z)y=rnd(z)circ(x,y,1,pget(x,y))
if(i<8)circfill((t*33+i*7)%z,z-abs(cos(t/4)*z),4,8+i)end
flip()goto s

a=128
r=rnd
t=0
::s::
t+=r(.01)-.003
for i=0,250 do
x=r(a)
y=r(a)
rect(x,y,x+r(5)-3,y+r(a)-64,sin(t+x*.004)^a*4+t*3)end
flip()
goto s

p=64t=0::_::cls()t-=.0001
x=p y=p
for j=200*t,t,-t do
s=j*sin(j)c=j*cos(j)circ(x,y,1,j/4)circ(p+p-x,p+p-y,1,j/4)x+=s
y+=c
end
flip()goto _

s=59x=0t=2m=12868::s::cls()p=poke
?"23:59:"..s,50,60,9
x+=1
if(x>30)x=0 s-=1 t=2-t p(m,100+t)p(m+1,94)p(m+2,128)p(m+3,79)sfx(1)
flip()goto s

o={{0,-1},{1,0},{0,1},{-1,0}} f=0 x=64 y=64 cls() while 1 do c=pget(x,y) f=(f+c+1)%4 pset(x,y,6+c%4) x+=o[f+1][1] y+=o[f+1][2] end

s=0
::j::
cls()
for i=0,200 do
    j=i*s
    r=i/4
    x=63+cos(j+s)*r
    y=63+sin(j+s)*r*s*20
    circfill(x,y,i/15,i%16)
end
s+=0.0002
flip()
goto j

r=rnd
f=flr
memcpy(0,24591,336)
::z::
x=r(128)y=r(128)c=sget(f(x/25.6)+1,f(y/25.6)+1)
if (c==0) c=f(r(2))
rect(x,y,x+r(6),y+r(6),c)
goto z

memcpy(0,24591,336)r=rnd
f=flr
::z::
x=r(128)y=r(128)c=sget(f(x/25.6)+1,f(y/25.6)+1)
if (c==0)c=f(r(2))
d=r(3)rect(x-d,y-d,x+d,y+d,c)goto z

cls(7)
c={12,10,0,11,8}
for r=1,5 do
  for i=0,1,0.05 do
    circfill(10+r*18+cos(i)*15,74-18*(r%2)+sin(i)*15,2,c[r])
  end
end

cls(7)p={12,9,0,11,8}w=1o=circ
for a=0,0.5,0.01 do
c=16*cos(a)s=16*sin(a)d=1w=-w
for k=1,5 do d=-d
a=4+d*c+k*20o(a,68+d*8+w*s,2,p[k])end end

cls(7)p={12,9,0,11,8}w=16
for a=0,0.5,0.01 do d=8w=-w
for k=1,5 do d=-d
circfill(4+d*2*cos(a)+k*20,68+d+w*sin(a),2,p[k])end
end::z::goto z

cls()print("\130",0,5,1)t=0r=rnd::s::
t+=0.2
for i=0,3^7 do
x=r(16)y=4+r(10)circ(x*8,y*8,1,pget((x-t)%16,y)*(8+(t+x)%8))end
flip()goto s

::s::t=time()x=rnd(128)y=rnd(128)circ(x,y,1,(t-((2+cos(t/4))*abs(x+4*cos(t+y/99)-64)+(2+cos(t/4+0.25))*abs(y-64))/16+4*cos(t/4))%8+8)goto s

t=0::s::z=128
t+=.01
circ(sin(t/z)*64+64,cos(t/152)*64+64,cos(t/91)*2+4,8)for i=1,z/8 do
x,y=rnd(z),rnd(z)pset(x,y,pget(x,y)/6+.7)end
goto s

k=1
while(1) do
  for i=0,127 do
   for j=0,127 do
    pset(i,j,i*i+j*j+k*atan2(i,j))
   end
  end
  k+=0.1
end

cls()a=0 b=77 c=2 d=1.77 e=0::f::line(a,b,127-a,127-b,e)e+=.1 a+=c b+=d if(a<0 or a>127)c=-c
if(b<0 or b>127)d=-d
flip()goto f

s="i must obey the rules"i=1y=4
cls(3)rect(0,0,127,127,4)function _update()m=i%(#s+1)print(sub(s,m,m),m*4,y,7)i+=1
if(m>=#s)y+=6
y=y%120
end

n=1palt(0,z)::a::cls(n-1)
?n,0,0,n
memcpy(0,24576,512)t=0::b::cls(n-1)sspr(0,0,8,8,64-t/2,64-t/3,t,t)t+=4 if(t>128)n+=1 goto a
flip()goto b

r=rnd::s::t=time()*.1x=r(128)y=r(128)c=(pget(x,y)+r(99)/98)%8%6
if (x*cos(t)+y*sin(t)+t*200)%64<32 then
c+=8
end
circ(x,y,1,c)goto s

cls()y=0::o::for x=0,120,8 do
for n=0,14 do
i=n%3j=y+flr(n/3)line(x+i,j,x+4-i,j,flr(rnd(2))*7)
end flip()end
?""
y=min(y+6,120)goto o

n=128::s::h,w=rnd(n),rnd(n)flip()cls()for y=0,h do
x=w*y/(2*h)line(64-x,n-h+y,64+x,n-h+y,4+11*(y%2))end::t::
if(btn(4))goto s
goto t

c=circ r=rnd::s::x=r(127)y=r(127)p=pget(x,y)
if(p==7)c(x,y,1,6)
if p!=1then c(x,y,r(7),1)c(x-1+r(3),(y+1)%127,1,7)end goto s

r=2 t=0 s=0.01 c=1
function _update()
if t<1 then
t+=s
else
c+=1 s*=0.99 r+=2 t=0
end
x=64+r*cos(t) y=64+r*sin(t) pset(x,y,c)
end

a={}::s::cls(3)for y=0,25 do
a[y]=a[y]and a[y]+1or y*5srand(y)p=a[y]%130
?"\149",rnd(127),p,11
?"\144",60,p,15
?"||",60,p,4
end
flip()goto s

r=64w=127x=r y=r
while 1 do
q=rnd(4)circ(x,y,r%5,q*q)
if(q>2)x+=rnd(q) y+=q
if(q<2)x-=q y-=rnd(q)
x%=w y%=w r+=1
flip()end

p,a,x=poke,0x3200,0x5f41sfx(0)p(x+2,1)p(x-1,1)p(x,1)p(a+1,91)p(a+67,1)p(a+65,1)::s::w=sin(x/999) x+=.0003 p(a,160+w*30)goto s

k,i,q=64,0,sqrt
cls(1)memset(i,223,k)::a::for y=3,k do
s=y/4
sspr(q(q(s))*16-i%8/4,0,k+k,1,k-y*32,k+y,k*4*s,1)
end i+=1 flip()goto a

y=0t=0::s::x=0 t+=.0005
::l::b=8+flr((t+(x/4+t+y/(8+sin(t/4+x/300)*3))%2)%8)memset(24512+x+y*64,b+b*16,4)x+=4 if(x<64)goto l
y=y%128+1goto s

::a::cls()y=rnd(9)x=y
w=y
while 1 do
c=1+pget(x,y)pset(x,y,c)x,y=y,(x*cos(w)-y/w*sin(w))%127
if(c>15)goto a
end--#tweetjam #april3030 #pico8

s={}w=128 
r=rnd 
for i=1,w do
s[i]={}p=s[i]p[1]=r(w)
end
::a::cls()
for i=1,w do 
p=s[i]
pset(p[1],i,i%3+5)p[1]=(p[1]-i%3)%w 
end
flip()
goto a

t=0::_::cls()for i=3,10,0.01 do
c=cos x=64+i*5*c(i)y=64+i*9*sin(i)line(x,y,x+c(i*2+t)*30,y+c(i*3+t/2)*19,4+i)end
flip()t+=0.01
goto _

x=0p={}f=133t=0::a::z=x%f
y=x/f
if(t<f)p[x]=pget(z,y)
c=p[x]
if(y+sin(t)*7+t/f>f)z+=sin(y/60+t)-3 c+=1
pset(z,y,c)x=(x+1)%(f*f)t+=1/f
goto a

k=2^13::s::for a=0,k do
n=0 for x=0,8 do
n+=peek(k*3+a+x/3+x%3*64-65)
end
poke(a,n==12 and 4 or n==16 and peek(a))end
memcpy(k*3,0,k)goto s

poke(24365,1)k,m=24576,memcpy::s::pset(stat(32),stat(33),rnd(8)+8)for i=0,127 do
l=k+64*i
m(l,l+rnd(2),63)end
m(k+64,k,8064)
flip()goto s

cls()t=0::_::
t+=1
for x=0,90,.02 do
c=(x*13-t)%8+8
pset(cos(x/5)*x+64,sin(x/5)*x+64,c)pset(cos(x/5)*(x+1)+64,sin(x/5)*(x+1)+64,c)end
goto _

a=12800
t={[27]=84,[60]=141,[65]=12,[66]=0,[67]=32}for i=0,67 do
poke(a+i,({129,84,148})[i%4+1])
if(t[i])poke(a+i,t[i])end
sfx(0)::_::goto _

t=1
p="012489ab3cdef76d5100"
::a::
for m=24576,32767 do
 c=flr((m%t)%2+t)%#p
 poke(m,("0x"..sub(p,c-1,c)))
end
t+=1/256
goto a

t=0
::s::
cls()
a=470
b=100
c=0.2
for i=0,a,0.2 do
circfill(cos(i/b+t)*i*c+64,sin(i/b+t)*i*c+64,i/100,6)
end
t+=0.01
flip()
goto s  

memcpy(0,24576,8192)q=0::_::for j=0,128 do
for i=0,128 do
w=cos(q)pset(i,j,i-64>abs(w*64)and 0 or sget(i/w-64/w+64,j))end
end
q+=.02
goto _