w=128x=0y=0
cls()
::s::
x-=1
print("|",rnd(w),rnd(w),x%2*8+3)circfill(x+4,y+4,6,0)print("\130\n\137",x,y,7)
if(x<-8)y=rnd(w)x=w
flip()goto s

s=128q=32t=0::a::b=0
t+=.1
if(btn(4))b=1
for i=0,s do
for j=0,s do
d=2+cos(t)c=sget((b+i/s)*q,(j+d*sin(t+i/q))*q/s)pset(i,j,c)end
end
goto a

r=rnd t={0,1,9,2,7,2,10,4,8,9}::s::x=r(z)y=r(z)c=pget(x,y+r(2))z=127
if(r(50)<c)c=t[c]
circ(x,y,1,c)pset(y,z,7)goto s

t={0,1,9,2,7,2,10,4,8,9}r=rnd::s::x=r(z)y=r(z)c=pget(x,y+r(2))z=127
if(r(50)<c)c=t[c]
circ(x,y,1,c)pset(y,z,7)goto s

n=0::s::
n-=1
for y=50,90 do
for i=n,127+n do
srand(i)srand(rnd(y))pset(i-n,y,rnd(3)+8)
end
end
flip()goto s

n=0::s::
n-=1
for y=50,90 do
for i=n,127+n do
srand(i)srand(rnd(y))pset(i-n,y,rnd(3)+8)
end
end
print("connorses tweetjam2016!")flip()goto s

n=0::s::
n-=1
for y=10,60 do
for i=n,127+n do
srand(i)srand(rnd(y))pset(i-n,y*sin((i-n)/85)+64,rnd(3)+8)
end
end
flip()goto s

n=0 a={1,0,"|","-"}::s::print(a[flr(rnd(4))+1])if rnd(6)>5then
print(_,rnd(127),0,11)end
n+=1 if rnd(30)>39 and n>25 then
flip()end
goto s

o=12544t=0::s::a=rnd(8192)t+=.005 poke(o+a,t*.01)
poke(24576+a,peek(o+(a+rnd(350))*4)+1)
print("no signal",10,67,7+sin(t/99)*4)sfx(a)goto s

z=128o=64t=z::a::
t+=.1
for i=0,z do
for j=0,z do
v=i-o
u=j-50pset(i,j+16,pget((t+atan2(v,u)*8)%8*6,sqrt(v^2+u^2)/5))end
end
goto a

z=128o=64t=z::a::
t+=.5
for i=0,z do
for j=0,z do
pset(i,j+16,pget((o+(o-i)/(((z-j)/z-1)*2))/4,(j/3+t)%10))end
end
goto a

z=128o=64t=z::a::
t+=.5
for i=0,z do
for j=2,z do
pset(i,j+16,pget((o+(o-i)/(((z-1.5*j)/z-1)*2))/4,(-1024/j+t)%10))end
end
goto a

cls()a={"\135","\130"}t=0r=rnd::s::k=flr(t/99%2+1)x=r(128)y=r(128)t+=.001
?a[k],0,1,8
pset(x+r(9),y+r(9),pget(x/15,y/15))
?a[k],0,1,0
goto s

r=rnd
::s::
sset(r(16),r(16),r(16))
for i=0,999 do
 x=r(128) y=r(128)
 rect(x,y,x+1,y+1,sget(x/16,y/16))
end
flip()goto s

cls()::s::t=0w=128
r={}r=0g=0
x=rnd(w)y=rnd(w)::m::
pset(x,y,pget(x,y)+1)t+=1
r+=sin(x/64)
g-=cos(y/64)
x+=r
y+=g
if(t<w)goto m
flip()goto s

r=rnd
::s::
sset(r(16),r(16),r(16))
for i=0,999 do
x=r(128) y=r(128)
rectfill(x,y,x+r(5),y+r(5),sget(x/16,y/16))
end
flip()goto s

r=rnd::s::sset(r(16),r(16),r(16)) for i=0,999 do x=r(128) y=r(128) rect(x,y,x+r(15),y+r(15),sget(x/16,y/16)) end flip()goto s

b=0::_::cls()y=99+sin(time()/2)*59 q=44-b w=85+b e=y-40 b-=b/5
rectfill(q,y+b,w,e,8+b/3)rect(q,e,w,min(127,y),7)flip()
if(y>125) b+=4
goto _

z=128o=64t=0::a::
t+=1
for i=0,z do
for j=0,z do
v=i-o
u=j-50pset(i,j+12,pget((t+atan2(u,v)*144)%36,(t+z*8/sqrt(v^2+u^2))%12))end
end
goto a

s=0;y=s;w=42::l::cls()b=btnp(5)t=b and w-y<2
s=b and (t and s+1 or 0) or s
y=(y>w or b) and 0 or y+1
pset(21,y)line(0,w,w,w)
?s
flip()goto l

a=64 
b=a
::i::
c=a
d=0
::s::
pset(a,b,c+rnd(2))
a+=rnd(2)-1
b+=rnd(2)-1
a=mid(0,a,128)
b=mid(0,b,128)
d+=1
if d>10^4then goto i end
goto s

a="\129\132\128"
k=0;t=1::s::
k+=t;t+=.008;x=0;y=0::z::h=rnd(4)
?sub(a,h,h),x,y,7+t+(x*y/9)/k
x+=4
if(x>128)y+=4;x=0
if(y<128)goto z
goto s

t=0::l:: t+=.01 poke(24364,7)
for x=0,4095 do
c=flr(8+((x*(x/2/(x/2000)/40)+t)+sin(x/64+t)*8)%8)poke(24576+x,c+c*16)
end goto l

t=0 z=128 u=rnd i=1+u(11)::s::for x=0,t do q=u(z)w=u(z)a=pget(q,w)
if(a>0) circ(q,w,1,a)end
t=min(t+9,z*9)pset(u(z),u(z),i+q%4)flip()goto s

r=rnd::s::for i=0,999 do
x=r(129)y=r(129)k=r(6)rect(x-k,y-k,x+k,y+k,min(1,pget(x,y))*(time()%7+8))end
print("'sup",56,60,7)flip()goto s

-- unconditional simple pong
-- for tweets jam ;) by felice

-------------------------------
-- m,n are top/bottom score*2
-- p,q are paddle positions
-- u,v are ball velociy
-- x,y are ball position
-- w is width-1 (shh)
-------------------------------

s=sgn
r=rectfill
u=1v=.7m=0n=0w=127
x=64y=x
p=48q=p
::f::b=btn()
p+=1-flr(b/1024%4+1)%3
q+=1-flr(b/4%4+1)%3
cls()r(0,p,3,p+31,7)r(w-3,q,w,q+31,7)
?m/2,9,5,5
?n/2,w-9,5,5
t=y+v
v*=-s(t)*s(t-w)
u*=s(6-pget(x,y))
r(x-2,y-2,x+1,y+1,7)
x+=u
y+=v
m+=1+s(x-w)
n+=1-s(x)
x%=w
flip()goto f

p=pset
r=rnd
w=127
function _draw()if(not n or n>9)then v=r(w)b=r(w)n=0 end c=r(15)cls()p(v+n,b+n,c)p(v-n,b+n)p(v+n,b-n)p(v-n,b-n)n+=.5
end

c=0 t=0 h=24576
::l::for o=0,8190 do
 t=(t+1)%1010 c=(c+8)
 if(t%16==0)poke(h+o,c)
end goto l

t=0::s::flip()cls()t+=.02
for z=5,99 do
n=64-z/2y=99-z
camera(sin(t+z/99)*6-64)pset(-n,y,6.2+sin(z/80))pset(n,y)line(-n/7,y,n/7,y)end
goto s

y=0 t=0 d=1::s::poke(0x5f2c,7)t+=.1
if t>9 then flip()t=0 y+=1
if (y>19) y=0 end
for z=0,9 do w=y*rnd(z)pset(t*14,w,sin(t)+w*t/9)end
goto s

h=24576 m=8190 t=0.9
::l:: t+=.001
for o=0,m do
    poke(h+o,shr(o,1.4)%t) 
    end goto l

z=128t=0::a::
t-=1
for i=0,z*z do
v=i%z-64
u=i/z-50n=atan2(v,u)pset(i%z,i/z+12,pget((t+n*z)%42,(t-t/z*sqrt(v*v+u*u)-24/(1+n))%12))end
goto a

s=64r=rnd::a::x=r(128)y=r(128)u=x-s
v=y-s
m=sqrt(u*u+v*v)line(x,y,x+u/m*4,y+v/m*4,pget(x,y))pset(x,y,0)
if(r(s)<1)circ(s,s,24,9+r(2))
goto a

pal(0,7,1)f=44
t=f::s::m=t%f
?sub('all work and no play makes jack a dull boy',m,m)
cursor(m*3,flr(t/f)*6)flip()t+=1.07
if(t>881)t-=f
goto s

pal(0,7,1)f=44
t=f::s::m=t%f
?sub('all work and no play makes jack a dull boy',m,m),m*3,flr(t/f)*6
flip()t+=1.07
if(t>881)t-=f
goto s

poke(24364,7)t=0r=rnd::s::
t+=0.1
for i=0,999 do
x=r(64)y=r(64)rect(x-1,y-1,x,y,pget(x,y)+r(99)/98)end
pset(63,63,8+t%8)flip()goto s

s=64t=0::_::cls()t+=.0001
x=s y=s
for i=1,350 do
j=i*t
u=x
v=y
x=x+j*sin(j)y=y+j*cos(j)line(u,v,x,y,8+i/60)
end
flip()goto _

t=0 c=circ::l::t=(t+0.2)%9
if(t<2)p,s=rnd(128),rnd(128)
c(p+4,s+4,sin(t/9)*6,7)for j=0,31,8 do c(p+j%16,s+flr(j/16)*8,3,0)end flip()goto l

r=rnd
t=0
::s::
t+=0.1
for i=0,999 do
  x=r(128)
  y=r(256)
  rect(x+r(4)-2,y-r((sin(t*.1+x)+1)*48),x,y,pget(x,0)+r(99)/98)
end
flip()
goto s

r=rnd::s::
for i=0,999 do
x=r(128)y=r(128)
c=pget(x,y)
if(c>0)c+=r(99)/97
?"\135",x-3,y-2,c
end
line(0,127,127,127,7)
flip()goto s