'Thanks to BJ Gleason for PBASIC21 !
'Transposed by,..
' John Fraser 76256,356
cls
locate 4,8
print " Serge Prokofiev  "
box 3,5,5,31,1
print ""
print ""
for I=1 to 47
read a
read b
c = b/2 'the "2" controls tempo
sound a,c
next I
REM: One data statement per measure
410data 49,100,54,75,58,25
420data 60,50,14,50,60,75,58,25
430data 60,50,14,50,44,75,63,25
440data 60,50,58,50,54,50,56,50
450data 57,100,57,50,62,50
460data 57,100,57,50,62,50
470data 57,100,52,100
480data 52,150,51,50
490data 52,100,57,75,60,25
500data 62,50,63,50,62,75,60,25
510data 62,50,63,50,5,75,37,25
520data 62,50,60,50,57,75,41,25
530data 59,100,59,50,5,50
540data 59,100,59,50,5,50
550data 60,200
1000data 999,999
2000system=