Characters/Bytes used
1003

Source Code
s=2
c=1
d=0
e=7
x=0
y=0
b=true
p={}
o={0,1,2,4,5,3,9,15,8,12,14,10,7,6,11,13}
h=b
j=8192
function _init()
for i=112,127 do add(p,i)end
poke(24365,1)end
function _update60()
cls()x=stat(32)y=stat(33)
spr(0,0,0,16,16)
if not h and stat(34)>0 then
memcpy(j,24576,j)
end
h=stat(34)>0
if btnp(4) then
memcpy(0,j,j)
end
circfill(x,y,s,c)
if h then
if y>8 then
if stat(34)<2 then
memcpy(0,24576,j)
else
c=sget(x,y)
end
elseif x<112 then
if stat(34)>1 and b then
n=-1&x/7+1
p[n]+=1
d=0
e=0
f=15
g=0
for i=0,15 do
m=o[p[i+1]%16+1]
if m<f then
f=m
d=i
end
if m>g then
g=m
e=i
end
end
if p[n]>143 then p[n]=112 end
else
c=-1&x/7
end
elseif b then
if x<117 then
s=max(s-1,0)
elseif x<122 then
s+=1
else
n=""
for i=90,95 do n=n..stat(i)end
export(n..".png")
end
end
end
b=not (stat(34)>0)
rectfill(0,0,127,8,d)
for i=0,15 do
pal(i,p[i+1],1)
rectfill(1+i*7,1,6+i*7,6-min(abs(i-c),1),i)
end
line(113,3,115,3,e)
line(118,3,120,3,e)
line(119,2,119,4,e)
line(0,8,128,8,e)
rect(123,2,125,5,e)
pset(125,2,d)
pset(x,y,e)
end