How many characters of code did you use?
558

Include your code here, if you'd like to show it off!
::a:: c=rnd()poke(0x5F2D,1)poke(0x5F2C,3)k={}d=0s=0m=32 for x=0,64 do for y=0,8 do sset(x,y,flr(rnd(2))) pal(1,11)k[y]=flr(rnd(5))+1 end end::_::cls(0)r=abs(stat(m)/100)line(m,m,m+sin(r)*60,m+cos(r)*60,11)rectfill(4,4,59,59,3) if r<c+0.01 and r>c-0.01 then if(z<1)goto a z-=0.15 rect(7,7,57,24,7)for i=0,5 do if(i<4)spr(k[i],16+8*i,12) x=12+16*flr(i%3)y=m+flr(i/3)*12 spr(i,x,y) ?i,x+8,y end b=btnp if(b(0))d=(d-1)%6 if(b(1))d=(d+1)%6 if(b(4)and abs(d)==k[s])k[s]=9 s+=1 line( 5,27,z+5,27) ?abs(d),m,54 else z=52 end if(s==4)cls()print('access') flip()goto _