Memory Shredder

Press (and/or hold) up and down to change the speed/direction of the shredder.

Source Code (273 characters):

poke(▒|▤,웃/●)pal({-13,-3,-6,-12,-11,-14,-15,-8,-2,-9,-5,-4,-7,-1,-10},2)o=0r=.1_set_fps(60)z=rnd a=poke n=btnp j=●-웃::_:: o-=r if(n(2))r+=.01 if(n(3))r-=.01 for i=0,4^5do p=j+z()*8192q=j+z()*4^6a(p,p/4^4-o)a(p+.01,p/4^4-o)memcpy(q,p,1)end memset(81-😐,170,16)flip() goto _