'Thanks to BJ Gleason for PBASIC21 !
'Transpose by ,...
' John Fraser 76256,356
cls
locate 4,8
print "Beethoven - Fur Elise "
box 3,5,5,31,1
print ""
print ""
for I=1 to 99
read a
read b
if b=999then goto 2000
'210print a
'215print b
if a=999 then goto 2000
c = b/1 'change "1" for tempo
sound a,b
next I
'Main section
'Use one data line per measure
400data 63,15,44,15,63,15,44,15,63,15,60,15,62,15,61,15,41,50
500data 54,15,58,15,41,15,60,50,58,15,41,15,60,15,61,50,54,15
'Repeat of Main
600data 63,15,44,15,63,15,44,15,63,15,60,15,62,15,61,15,41,50
700data 54,15,58,15,41,15,60,50,52,15,61,15,60,15,41,50
'Bridge
800data 60,15,61,15,62,15,63,50,57,15,4,15,63,15,62,50
900data 54,15,63,15,62,15,61,50,54,15,62,15,61,15,60,50
1100data 54,15,63,15,54,15,63,15,54,15 
'End
1200data 63,15,44,15,63,15,44,15,63,15,60,15,62,15,61,15,41,50
1300data 54,15,58,15,41,15,60,50,58,15,41,15,60,15,61,50,54,15
1400data 63,15,44,15,63,15,44,15,63,15,60,15,62,15,61,15,41,50
1500data 54,15,58,15,41,15,60,50,52,15,61,15,60,15,41,50
1600data 999,999
2000system=