Compressed Bytes used
380

Source Code (OPTIONAL)
function _init()
v=0
fs=0.4
cls(8)
for r=0,31 do
line(0,r*4,128,r*4,6)
for c=0,15 do
line(c*8+(r%2)*4,r*4,c*8+(r%2)*4,4*r+4)
end
end
circfill(64,48,32,8)
circ(64,48,32,6)
circfill(64,48,26,0)
for r=1,10 do
x=cos(r/20)
y=sin(r/20)
line(26*x+64,26*y+48,32*x+64,32*y+48,6)
end
rectfill(32,48,96,112,0)
fillp(34080)
rectfill(32,96,96,112,84)
fillp()
end
function uc(x)
x-=flr(rnd()+fs)
return (((7-x)>>15)&1)*x
end
function _update()
v=v^^10*tonum(btnp(❎))
fs=max(0.2,fs-0.1*tonum(btnp(⬆️)))
fs=min(0.6,fs+0.1*tonum(btnp(⬇️)))
end
function _draw()
for y=0,47 do
for x=0,64 do
pset(x+32,y+48,uc(pget(x+32,y+49)))
end
end
for x=0,64 do
pset(x+32,96,uc(v))
end
end