Characters/Bytes used
1016 chars, 1020 bytes

Source Code
c=26700poke(0x5f2c,3)g=pset
n={"c","c#","d","d#","e","f","f#","g","g#","a","a#","b"}a={",,23,23,23,235,23,23,33,33,33,<2,<2,<2,<2,<2,23,,23,,23,,:2,,82,82,82,<2,<2,<2,<2,<2",":0,,:0,:0,70,,70,,80,80,80,70,70,801,701,70,:0,,:0,:0,70,,70,,31,31,31,21,21,311,211,21",",81,81,81,:1,,,,,81,81,81,:1,,,,:17,<17,327,727,<17,127,527,927,327,527,827,<27,527,627,:27,237",",<0,<0,<0,21,,,,,<0,<0,<0,21,,,,:0,<0,<0,<05,21,21,311,31,:0,<01,211,311,:0,<01,211,311",",,13,,,,13,,,,13,,,,13,,,,13,,,,13,,,,13,,,13,13,",",13,,,,,13,,13,,,,,,13,,13,,,,,,13,,13,13,13,13,13,13,13,13"}p=split
for b=1,6do
s=""l=p(a[b],nil,0)for i=1,#l do
t=l[i]z=p(t,"")s..=(t==""and"v0c"or"v5x"..(z[3]or b>4and 3or 0)..n[ord(z[1])-48]..z[2])end?"\a"..b.."sci"..(b>4and 6or(b-1)%2+3)..s
sfx(-1)end
poke2(12544,641,17669,513,17413,-31741,17414,17475,17478)music()::_::?"\^1\^c0"
⧗+=1f=⧗\2%2m=memset
for i=0,7do
m(26188+64*i,204,8)m(c+64*i,73+75*(f^^i%2),8)end
m(c,179-120*f,8)m(c+64,52+15*f,8)g(32,31,1)g(32-f,32,8)g(32+rnd(3)\1-1,31+rnd(3)\1-1,7)goto _