poke(0x5f54,0x60)
cls(0)
c={9,8,14,15}
k=16
::_::
fillp(0)
sspr(0,0,128,128,48,48,32,32)
fillp(band(rnd(-1),-1)+0x0.f)
sspr(4,4,120,120,0,0,128,128)
for n=1,k do
p=(n+time())/k
circfill(64+32*cos(p),64+32*sin(p),2,c[1+n%#c])
end
flip()
goto _