'Thanks to BJ Gleason for PBASIC21 !
'Transposed by,..
' John Fraser 76256,356
cls
locate 4,8
print " Johann Krieger "
box 3,5,5,31,1
print ""
print ""
for I=1 to 40
read a
read b
c = b/3 'the "3" controls tempo
sound a,c
next I
' One data statement per measure
' Second number in data = measure
' Example 430 = 3rd measure
410data 60,50,57,50,54,50 
420data 61,150
430data 41,50,56,50,52,50
440data 60,150
450data 54,75,57,25,56,25,54,25
460data 53,50,49,40,60,50
470data 41,25,57,25,56,75,54,25
480data 54,150
510data 60,50,57,50,54,50 
520data 61,150
530data 41,50,56,50,52,50
540data 60,150
550data 54,75,57,25,56,25,54,25
560data 53,50,49,40,60,50
570data 41,25,57,25,56,75,54,25
580data 54,200
590data 999,999
2000system=