I went looking for a simple C64 sprite demo tonight and found that everything out there for this particular demo is either mangled copypasta or even more mangled original source code. My aim here is to provide a nice copy-and-pasteable version suitable for the Vice64 that actually works.

10 print chr$(147):v=53248:p=192:poke v+21,1
20 for s1=12288 to 12350:read q1:poke s1,q1:next
25 for s2=12352 to 12414:read q2:poke s2,q2:next
30 for s3=12416 to 12478:read q3:poke s3,q3:next 
35 poke v+39,15:poke v+1,68
40 print tab(160) "i am the dancing mouse!"
50 for x=0 to 347 step 3 
55 rx=int(x/256):lx=x-rx*256
60 poke v,lx:poke v+16,rx
80 poke 2040,p:for t=1 to 60:next
85 p=p+1:if p>194 then p=192
90 next
95 end
100 data 30,0,120,63,0,252,127,129,254,127,129,254,127,189,254,127,255,254
101 data 63,255,252,31,187,248,3,187,192,1,255,128,3,189,192,1,231,128,1,255,0
102 data 31,255,0,0,124,0,0,254,0,1,199,32,3,131,224,7,1,192,1,192,0,3,192,0
103 data 30,0,120,63,0,252,127,129,254,127,129,254,127,189,254,127,255,254
104 data 63,255,252,31,221,248,3,221,192,1,255,128,3,255,192,1,195,128,1,231,3
105 data 31,255,255,0,124,0,0,254,0,1,199,0,7,1,128,7,0,204,1,128,124,7,128,56
106 data 30,0,120,63,0,252,127,129,254,127,129,254,127,189,254,127,255,254
107 data 63,255,252,31,221,248,3,221,192,1,255,134,3,189,204,1,199,152,1,255,48
108 data 1,255,224,1,252,0,3,254,0
109 data 7,14,0,204,14,0,248,56,0,112,112,0,0,60,0,+1
200 return