t=0::_::cls()for i=1,7 do
j=i-1
r={4,1,2,1.7,2,3,1.9}k=t*r[i]/i
circfill(64+j*12*cos(k),64+j*12*sin(k+.1),r[i],9+i%7)end
t+=.02
flip()goto _

x,y,u,v=0,0,0,0::_::cls()v=y>64 and(btn(4)and-2 or 0)or v+.1
u=(btn(0)and-1 or btn(1)and 1 or u*0.9)y+=v
x=(x+u)%128
pset(x,y,8)flip()goto _

r=rnd
f=100
::a::
f=mid(40,f+r(8)-4,200)
e=flr(r()+.01)
cls(e*7)
for n=1,f do
a=r(240)
b=a+r(10)-f/2
line(a,0,b,127,e*5+1)
end
flip()
goto a

f=64 a=0 y=0 x=0::v::for n=0,4637 do m=a+a*flr(rnd(3))x=.5*(x+sin(m)*f)y=.5*(y-cos(m)*f)pset(f+x,f+y,a*9%15+1)end flip()cls()a+=.003 goto v

m=127z=0s=1p={-1,1,-m,m}function _draw()for i=0,3 do
if(btn(i))s=i+1
end
z+=p[s]*2
z%=m*m
x=z%m
if(x<2or pget(x,z/m)>0)cls(8)
pset(x,z/m)end

y=9 p=0q=0 n=1
while n>0 do cls()circfill(9,y,9,7)y+=q;q+=p;p+=0.001
if(y>(99))q=q*(-0.9*n); n-=0.03
flip()end
print("#pico8 #tweetjam",9,9)

q=128t=0::r::x=0 t+=.5
cls()::c::c=x%q r=64+x/q
h=1+(cos(c/60)/2+.5)*.6+sin(r/50-t*.1)*.1
?n,c,q-(q-r)*h,h*9
x+=5 if(r<q)goto c
flip()goto r 

t=0w=128::_::x=0::n::
?t,rnd(w),rnd(w),(t+1)*5%4
x+=1 if(x<w)goto n
t+=.005
s=sin(t*5)*59
?"\x88",64+sin(t)*s,64+cos(t)*s,t*5%4
flip()goto _

cls()m='#pico8'x=0::a::n=0y=x
x=rnd(128)for i=-4,4 do
if(pget(x-1+i%3,y+i/3)>0)n+=1
end
?m,52,63,1
?m,52,62,n*2
if(n>5)n=0
pset(x,y,n)goto a

t=127l=t while l do
cls()for x=0,l do for y=0,l do
if((x%9+y%9==0))line(x,y,x+cos(sin(t*y))*9,y+cos(sin(x*t))*9)
end end t+=1/9999 flip()endw

q,t=128,0::z::for x=t%2,q,2 do for y=t/2%2,q,2 do
pset(x,y,max(0,pget(x,y)-1))end end
circfill(cos(t%q)*q+64,sin(t/q)*q,42,15)t+=1.01
goto z

::_::t=time()/9
r=0::y::c=0::x::
circ(c*3+rnd(3),r*3+rnd(3),1,sin(c*r*.024+t*5)+sin(t)*2+13)c+=1
if(c<44)goto x
r+=1
if(r<44)goto y
goto _

::_::t=time()cls()x=0::d::q=x%16*8+4w=flr(x/16)*8+4s=sin(t+(q-64)/((w-64)*10))*7
circfill(q,w,s,5+s*.8)x+=1
if(x<256)goto d
flip()goto _

t=0::_::cls()t+=.05
y=0::l::o=64+sin(t/7+y/256)*10+cos(y/99+t)*12
line(o-1,y-11,o-1,y,2)line(o,y-11,o,y,8)y+=1
if(y<140)goto l
flip()goto _

z=65t=0poke(0x5f2c,7)cls()s=sin::a::f=s(t)*z
t+=.0003
for x=0,z,5 do for y=0,z,5 do
circ(x,y,s(f/z)*6,band(s(f/y)*x,s(f/x)*y))end end
goto a

t=64poke(24364,7)s=sin::a::f=t*s(t)
t+=.002
for i=0,t*t,5 do
y=i/t--#pico8
x=i%t--#guam
circ(x,y,s(f/t)*6,band(s(f/y)*x,s(f/x)*y))end
goto a

cls()r=rnd::a::s="\x89"
for b=0,999 do
?s,0,1,8+r(3)
x=r(24)y=r(6)c=pget(x%6,y)
?s,0,1,0
circ(x*7-2,y*20-sin(c/5)*15,r(2),c)end;flip()goto a

memcpy(0,24576,8192)t=0.7::_::cls()t+=.01;s=sin(t)for i=0,abs(cos(t)*5) do
sspr(0,0,36,10,60-s*60+5+i,41+cos(t)*8,120*s,30)end
flip()goto _

z=64y=sin::_::cls()t=time()/3k=4+y(t)for s=0,k do
a=(t+s+k*2)%4o=z*y(a/4)
if(a>2)sspr(s*8,0,8,8,z+(y((a-1)/4)*z+o)/2,z,-o,z)end
flip()goto _

cls()
a=0
r=0
function _draw()
for i=0,150 do
r+=1
if r>150 then
r*=-1
end
a=(a+5)%360
pset(63+r*cos(a/360),
63+r*sin(a/360),r%16)
end
end

p=0
o=1
function _draw()
for p=0,127 do
for i=0,128 do
pset(p,i-o%2,(p+i*o)/16)
o+=1
pset(p,i-o%2,(p+i*o)/16)
end
end
o+=1
end
--wtf is this

y=0
x=rnd(120)
function _update()
y=y+rnd(10)
if y>128 then y=0 x=rnd(120) end
end
function _draw()
cls()
rectfill(x,y,x+7,y+7,7)
end

poke(24365,1)h,v,a,b=0,0,2,2::g::x=stat(32)cls(1)h=(h+a)%128
v=(v+b)%128rect(x,59,x+8,60)
if(pget(h,v)!=1)b=-b a=h-x-4
pset(h,v)flip()goto g

t=0::l::for i=0,99 do x,y=rnd(128),rnd(128) circ(x,y,1,7+(x/30+y/30+cos(t/4))%8)end t+=0.01 flip()goto l

pset(0,0,8)
 repeat
  b=band(v,1)
  v=flr(shr(v,1))
  if b!=0 then
  	v=bxor(v, 0x3802)
  end
  i+=1
  if i%128==0 then flip() end
  pset(shr(band(v,0x3f80),7),band(v,0x7f),8)
 until(v==1)

c=cos;s=sin;t=5::_::t+=.01for i=0,990 do;x=rnd(127)y=rnd(127)p=x;o=y;w=80+10*s(t);x+=s(o/w+t)*9y+=c(p/w-t)*9q=60+30*c(t/2)v=mid(8,11.3+(s(x/q+t-x/q/2)*.7+s(t/4)*.3+c(y/q-t-y/q/2)*.7+c(t/4)*.3)*1.7,14)fillp()circ(p,o,2,v)fillp(23130.5)circ(p,o,2,v+.5)end;flip()goto _

e={}x=8u=0::_::
if(u>0)u-=2
if(btnp(5)and u<1)u=8
cls()for i=#e,1,-1 do
e[i]-=1pset(e[i],8)
if(e[i]<1)del(e,0)x+=1end
if(rnd(25)<1)add(e,128)
?x-8
if(pget(x,8-u)<1)pset(x,8-u)flip()goto _

n=128;r=rnd;c=circ::_::a=0::y::c(64,64,55+a/7,7)a+=1;c(74+a*.9,38+a*2,9-a/5)c(35+a*1.5,35,3.5)c(69-a,41+a*1.5,5.5-a/13)c(33+a/2,39,7)c(59,63,a/5)c(61,58,2)
if(a<26)goto y
memcpy(0,n*192,n*64)p=0::m::x=r(n)y=r(n)j=sget(x,y)
if(r(j)<3)c(x,y,1,j)
p+=1if(p<n*7)goto m
goto _

t,f,s,j=0,0,1/10,1/10
::_::
cls()
t+=.007
f+=1
for a=0,s,j do x,y=0,0
for r=0,10+50*min(t,1),.5 do b=a+r/900 p,g,h=sin(r/(360*j*1.5)+t),64+r*cos(b-t)+r/3*sin(p),64+r*sin(b-t/2)+r/3*cos(p)
if(r!=0)rect(g,h,x,y,a*15)
x,y=g,h end end
if (f%10==0)s=min(s+j,1)
flip() goto _

t,q,c=0,sin,circfill::_::t+=.01cls(1)for i=0,128 do
s=cos(t+i/25)y=i*2-(t%1*100)
a=64+47*q(t+i/25)b=10+i/8.3%3
if(s<=0)fillp(23130.5)
c(a,y,3.75+s,b)fillp()end
for j=-10,2800 do
k=59+j%10+q(-t*1+j/3)*39l=j/10+flr(t*50)%2
c(k,l,0,pget(k,l)+12)end
flip()goto _

::_::r,s,p,t=rnd,sin,srand,time()/60p(t)for i=0,1999 do
x=r(128)y=r(128+r())s(x)c=pget(x,y)circ(x-1+r(2),y-3,1,(c+r())%4+8)
if(c==0)pset(x,y,r(3))end
for i=0,20 do
p(i)x=49+r(30)y=49+r(30)x=x+20*s(x*t)y=y+20*s(y*t)circfill(x,y,r(12)+s(t*60)*3,0)end
flip()goto _

l,f,t,w,p=line,fillp,0,23130.5,sin::_::t+=.0151cls(1)y=0::m::c=62+p(y/50-t)*((y/3+9))+p(-y/30-t)*9
x=0
for x=0,5,.5 do
s=9+((y-t*49.5)/3)%4.5+2+2*p(x/(5+y))
if(flr(s)%3==0)f(w)
l(c+x,y,c+x,127,s)f()end
f(w)l(c,y,c+5,y,13)f()y+=1-y/300
if(y<128)goto m
flip()goto _

pal(7,1)n,q,r=127,64,rnd::_::for i=0,1390 do
x,y=r(n),r(n)a,s=q-x,q-y
l=(max(abs(a),abs(s))/5000)*sin(time()/10)z,u=cos(l),sin(l)w,d=z*a-u*s,u*a+z*s
circ(q+w*1.07,q+d*1.07,1,max(7,pget(q+a,q+s)-flr(r(2))))end
for i=0,3 do circfill(r(n),r(n),r(3),15)end
goto _

o,s,j=19,sin,{2,4,9,10,7}cls()::_::t=time()for i=0,512 do
x,y=i%o,flr(i/o)v,b=9+s(t/10)*6-x,13-cos(t/10)*6-y
a,l=atan2(v,b),sqrt(v*v+b*b)c=j[flr((s(a*s(t/20)*10+l/15+t)/5+s((v*b)/150+t)/5)*5.5+3.5)]
?"◆",x*7-4+(1-y%2)*3+rnd(2),y*5-4+rnd(2),c
end goto _

l=0::_::f=0 for i=0,127 do
if(pget(i,127)>0)f=1
end if(f==0)pset(63,127,7)
if (l%16==0) then r={0}for i=1,7 do add(r,flr(rnd(2.3))) end end l+=1
memcpy(0x6000,0x6040,0x1fc0)for x=0,127 do n=0 for b=0,2 do
if (pget(x-1+b,126)>0)n+=2^b
end pset(x,127,r[1+n]*7) end
flip()goto _

r=rnd::_::srand(0)f=t()/9
cls()n=650+sin(f/3)*60
for i=1,n do
a=f+r(1)d=.3+r(9)y=-3
if (i>400) then
j=i-400
y=j*2/n-1
a=j*40/n+f+j/3
d=j*3/n
end
x=d*cos(a)
z=2+cos(f)+d*sin(a)
x=64+x*64/z
y=64+y*64/z
c=6+i%5
e=5/z
if(z>.1)circfill(x,y,e,c)circfill(x,128-y,e,c/4)
end
flip()
goto _