n=128k=1 r=rnd::a::x=r(n)y=r(n)z=9::b::
u=x-1+r(2)v=y-1+r(2)z-=1
if(pget(u,v)==0)x=u%n y=v%n z=9
pset(x,y,k)
if(z<0)k+=1 goto a
goto b

poke(24364,7)w=64
t=0::s::
t+=0.3
for i=0,5000 do
x=rnd(w)-w
y=rnd(w)-w
pset(x+w,y+w,bxor(atan2(x,y)*16,256/sqrt(x*x+y*y)+t)%3)end goto s

w=64
t=0::s::
t+=0.1
for i=0,5000 do
x=rnd(w*2)-w
y=rnd(w*2)-w
circ(x+w,y+w,1,bxor(16*(atan2(x,y)+cos(t/w)),256/sqrt(x*x+y*y)+t))end goto s

cls()memset(8192,1,4096)::a::srand(2)for f=1,60 do for n=1,8 do sset(rnd(8)+8,rnd(8),12) end sset(rnd(8)+8,rnd(8),7)map()flip()end goto a

memset(8192,1,4096)::a::srand(3)for f=1,50 do for n=1,12 do sset(rnd(8)+8,rnd(8),rnd(16)>1 and 12 or 7) end map()flip()end goto a

a=0
while 1 do
cls()for i=0,100,4 do
s=sin(a)*i/2
c=cos(a)*i/1.5
circ(64+s,64+c,i,i%15)circ(64+s,64+c,i+1,i%15)end
a+=0.02
flip()end

r=rnd
t=0::s::srand()c=cos(t)s=sin(t)cls()
for i=1,999 do
x=r()-.5z=r()-.5n=64/(s*x+c*z)pset((c*x+s*z)*n+64,r()*n,7)end
t+=.005
flip()goto s

a=0
while 1 do
cls(2)for i=4,96,8 do
s=sin(a)*9
c=cos(a)*9
for h=0,1 do
circ(64-c,64-s/2,i+h,9)circ(64+s,64+c,i+h,9)end
end
a+=.03
flip()end

a=0
while 1 do
cls()
for i = 0,99,4 do
s=sin(a)*i
c=cos(a)*i
circ(64-s,64+c,i,i%15)
circ(64+s,64-c,i,i%15)
end
a+=0.01
flip()
end

r=rnd::s::n=128
k=r()*1.05
for i=0,9999 do
pset(r(n),r(n),k)
end
circfill(r(n),r(n),r(9),8+r(3))
line(r(n),r(n),r(n),r(n),8+r(4))
goto s

n=128
r=rnd
x=64y=64::s::for i=0,999 do
l=r(n)k=r(n)pset(l,k,max(0,pget(l,k)-1))end
circfill(x,y,7,15)x+=r(8)-4
y+=r(8)-4
x=x%n
y=y%n
goto s

z=64
t=0
cls()
function _draw()
for i=-32,32 do
circfill(rnd(1)+z+16*cos(t*i),z+16*sin(t*i),i*sin(t),4*t+(i%3))
end
t+=0.001
end

n=128
r=rnd
x=0y=n::s::for i=0,3999 do
pset(r(n),r(n),0)end
y+=6
if y>n then
x=r(n)*.5
y=0
end
print("t w e e t j a m",x,y,11)
flip()
goto s

::s::memcpy(0x0,0x6000,0x2000)for i=0,999 do
x=rnd(128)y=rnd(128)k=sget(x,y)if k>0 then
circ(x,y,1,8+(k+1)%8)pset(x,y,k)end
end
flip()goto s

t=0n=99k=64 f=sin::s::for i=1,n do
s=f(t+(i^3-i^2)/n)c=f(.25+t+(i^5-i^3)/n)circfill(k+s^3*99,c^3*n+k,8,i%3+t*2)
end
t+=.005
flip()goto s

a={}
while(1)do
for i=1,37 do
a[i]=a[i]or{x=i*3,y=i*7}b=a[i]
b.x=(b.x+rnd(2)-1)%128
b.y=(b.y+rnd(2)-1)%128
circfill(b.x,b.y,i%5,i)
end
end

i=0::s::a=24576
s=sin(i/102)*100
memset(a+4000+s,i,64)
o=1+s*10
memcpy(a+o,a,max(0,8192-o))
flip()
i+=1
goto s

t=0 d=18::s::
t+=0.1
for i=0,d*d do
x=flr(i/d)*16-16+(i%2==0 and 8 or 0)
y=(i%d)*8-8
circ(x,y,8*(1+sin((x+y+t)/128)),t)end 
goto s

t=0 d=16::s::cls()t+=.005
for i=0,d*d do
x=flr(i/d)*d-8*8+(i%2==0 and 8 or 0)y=(i%d)*8-d
circ(x,y,6+(7+7*sin(t)),7)end 
flip()goto s

w=128i=78t=0l=circfill
::s::
t-=1
l(i,i,w,1)srand()for y=1,i do
x=(rnd(w)+t)%w
l(x,y,sin((y+t)/17)*2,6)line(x*9,w,x,i+y%7,3)end
flip()goto s

t=0::s::cls()srand()for i=1,500 do
p=9-i/50
j=(p+sin(t)-t*9)%11+.1
k=rnd(9)-5+cos(t)circfill(k/j*50+64,80/j-20,9/j,p)end
t+=.01
flip()goto s

h=64q=32l=circfill
t=0m=sin::s::
t+=.03
cls()camera(m(t/7)*9)l(q,q,h,7)l(q,q,9,0)l(h+q,q)a=m(t)*3+8
b=m(t*4)*2
rect(h,h,q+a,h+b)flip()goto s

poke(0x5f2c,5)a=0::l::cls()srand(0)for i=0,20 do
o=sin(a)*(i/20)r=rnd(99)p=rnd(99-i)
circfill(r+i*o,r+i,p/2-o,i+o)end
a+=.05
flip()goto l

cls()m=32v=1::s::
r=rnd
n=128
memcpy(24640,24576,8128)circ(r(n),r(32)+9,r(8),r(4)+1)
if(pget(m,64)>0)v=-v
m=(m+v)%n
pset(m,64,7)flip()goto s

m=0v=0::s::
r=rnd
memcpy(24640,24576,8128)circ(r(128),r(32)+9,r(8),8)
if(pget(m+64,64)>0)v=r(8)-4
v*=.9
m=m*.9+v
pset(m+64,64,7)flip()goto s

x=64m=64::s::
memcpy(24640,24576,8128)x+=rnd(8)-4
line(0,0,128,0,8)line(x,0,x+40,0,0)
if(btn(0))m-=1
if(btn(1))m+=1
pset(m,64,7)flip()goto s

t=0::s::
n=128
l=0
for i=0,15 do
a=64+50*sin(i*.1+t)*sin(t*.3)line(a,i*9,l,i*9-9,i+t*30)l=a
line(rnd(n),0,rnd(n),n,0)end
t+=.01
flip()goto s

t=7::s::l=0
for i=0,40 do
a=64+30*sin(i*.1+t*sin(t*.1))*sin(t*7)line(a,i*9,l,i*9-9,t*300)l=a
memset(24576+rnd(8190),0,2)
end
t+=.0005
goto s

for i=0,16384 do poke(i,rnd(256)) end music(0)t=0::s::map(t%128,0) t+=1 for i=0,4096 do poke(i,rnd(256)) end goto s

y=0 w=128 t=w
while t>1 do cls()t+=1
srand(flr(t/w))x=w-t%w
y+=1 if(btn(2))y-=2
pset(9,y)i=rnd(w)line(x,i,x,w)
if(x==9 and y>i)t=0
flip()end

n=128w={}r=rnd::s::for i=1,4096 do pset(r(n),r(n),0)v=w[i]x=i*4-4print(8,x,v,3)v=v and(v+6)%n or r(n)print(8,x,v,6)w[i]=v end flip()goto s

t=0::s::cls()srand()pal(0,12,1)for i=0,140 do
l={"^-_","-^-","_-^"}print(l[flr(i*.2-t)%3+1],rnd(140),i-sin(t*.05)*9,7)end
t+=.1
flip()goto s

r=rnd::s::l=4096
b=memset
b(24576+r(l),r(l),r(l))for i=0,9999 do
x=r()-.5
y=r()-.5
pset(.3/x%128,.3/y%128,0)end
b(12800,r(l),10)sfx(0)goto s

cls()t=0::s::
t+=1
for y=9,33 do
for x=0,9 do
g=x/y
h=y^2/9+cos(g*.7-t/7)*y/9+sin(g+t/9)pset(x+7,h,y-t)end
end
print("love",0,0)flip()goto s

cls()
while 1 do
for x=0,8 do
for y=0,8 do
circfill(x*16,y*16,rnd(5,10),rnd(16)%3)
end
end
end