'Thanks to BJ Gleason for PBASIC21 !
'Transposed by,..
' John Fraser 76256,356
cls
locate 4,8
print " Bach Minuet "
box 3,5,5,31,1
print ""
print ""
for I=1 to 65
read a
read b
c = b/3 'the "3" controls tempo
sound a,c
next I
' One data statement per measure
' Second Number in date statement = measure
' Example 430 = Measure 3
410data 41,50,52,25,54,25,56,25,57,25
420data 41,50,52,50,52,50
430data 60,50,57,25,41,25,60,25,14,25
440data 62,50,52,50,52,50
450data 57,50,41,25,57,25,56,25,54,25
460data 56,50,57,25,56,25,54,25,52,25
470data 51,50,52,25,54,25,56,25,54,25
480data 56,50,54,100
490data 41,50,52,25,54,25,56,25,57,25
500data 41,50,52,50,52,50
510data 60,50,57,25,41,25,60,25,14,25
520data 62,50,52,50,52,50
530data 57,50,41,25,57,25,56,25,54,25
540data 56,50,57,25,56,25,54,25,52,25
550data 54,50,56,25,54,25,52,25,51,25
560data 52,200
1000data 999,999
2000system=