Compressed Bytes used
635

Source Code (OPTIONAL)
sx,sy={},{}
for _i=1,80 do
add(sx,rnd(128))
add(sy,rnd(192)-64)
end
br=5
ay=60
bn=3
bs=2
bc=0
bcs={0,3,5,8,11,12}
sc=1
es=2
cd=1
hw=11
hbw=16
hrc=4
st=true
::_::
flip()
if btnp(❎) then
br=4+rnd(4)
ay=30+rnd(85)
bn=3+rnd(5)
if rnd()<0.5 then
bs=1+rnd(3)
else
bs=2
end
bc=flr(rnd(6))+1
sc=rnd()
es=1+rnd(3)
cd=rnd()
hw=mid(9,br*2.5-rnd(4),18)
hbw=hw+2+rnd(5)
hrc=flr(rnd(6))+1
st=false
end
cls(1)
rectfill(0,45,127,127,6)
for _i=1,#sx do
sy[_i]+=1
if sy[_i]>128 then
sx[_i]=rnd(128)
sy[_i]=-rnd(128)
end
pset(sx[_i],sy[_i],7)
end
if ay<110 then
line(45,60,10,ay-10,4)
line(83,60,118,ay-10,4)
end
for _i=1,3 do
circfill(64,_i*30,10+_i*br,7)
end
for _i=32,36 do
if cd>0.5 then
line(64,_i,74,34,9)
else
line(65,_i,55,34,9)
end
end
if bn<7 then
for _i=1,bn do
circfill(64,_i*10+40,bs,bcs[bc])
end
end
for _i=1,2 do
circfill(47+_i*12,27,es,0)
end
pset(65,40)
pset(61,39)
pset(69,39)
if sc>0.5 then
pset(58,37)
pset(72,37)
end
if hw>10 then
rectfill(64-hw,2,64+hw,19,0)
rectfill(64-hbw,20,64+hbw,22)
rectfill(64-hw,17,64+hw,19,bcs[hrc])
end
if (st) ?"press ❎",49,120,1
goto _