'Thanks to BJ Gleason for PBASIC21 !
'Transpose by ,...
' John Fraser 76256,356
cls
locate 4,8
print "    J.S. Bach"
box 3,5,5,31,1
print ""
print ""
for I=1 to 99
read a
read b
if b=999 then goto 2000
if a=999 then goto 2000
c =b/6 'change "6" for tempo
sound a,c
next I
'Main section
400data 52,25,54,25,56,25,41,25,57,25,57,25,60,25,41,25,
500data 41,25,62,25,14,25,62,25,41,25,56,25,52,25,54,25,
600data 56,25,57,25,41,25,60,25,41,25,57,25,56,25,54,25,
700data 56,25,52,25
'second line
800data 51,25,52,25,54,25,41,25,51,25,54,25,57,25,56,25,54,25,
900data 56,25,52,25,54,25,56,25,41,25,57,25,57,25,60,25,41,25,
1100data 41,25,62,25,14,25,62,25,41,25,56,25,52,25,54,25,56,25
'third line
1200data 49,25,41,25,57,25,56,25,54,25,52,25,41,25,52,25,51,25,
1300data 52,25,56,25,41,25,62,25,41,25,56,25,52,25,56,25,41,25,62,200
1500data 999,999
2000system=