0,]']>S}Wup8d%qy)6o;]AsVl3>??????????????d@````` `` ` ` ``0,5c)c=(c+1)%4 end end end B`zBP :Uc=0 function TIC() cls() notes= {{k=1, l="a", n="C-5"}, {k=19, l="s", n="D-5"}, {k=4, l="d", n="E-5"}, {k=6, l="f", n="F-5"}, {k=7, l="g", n="G-5"}, {k=8, l="h", n="A-5"}, {k=10, l="j", n="B-5"}, {k=11, l="k", n="C-6"}} for i,note in pairs(notes) do c=12 dy=0 if keyp(note.k) then sfx(0,note.n) end if key(note.k) then c=10 dy=1 end rect(60+12*i,40+dy,10,40,c) print(note.l, 62+12*i,70+dy, 0) end end