Love the shake effect!
I think you could make this even smaller. Hope you don't mind, but I fiddled around with the code a bit, and got the core drawing area to ~260-chars.
p=6060 i=0 f=rectfill ::r:: f(0,0,127,127,8) f(6,15,121,101,5) f(7,16,120,100,6) ::_:: if(btn(0))p-=1 if(btn(1))p+=1 if(btn(2))p-=114 if(btn(3))p+=114 if(btnp(5))i=15 i-=1 flip() if (i>=0) camera(i/2-rnd(i),i/2-rnd(i)) goto r i=0 camera(0,0) pset(7+p%114,16+(p\114)%85,1) goto _
I think with some bitmasking fun, the btn calls could be compressed even further, if you wanted to try to turn this into a Pico-1/4k demo :)