'Thanks to BJ Gleason for PBASIC21 !
'Transposed by,..
' John Fraser 76256,356
cls
locate 4,8
print " You're too damn old !"
box 3,5,5,31,1
print ""
print ""
for I=1 to 99
read a
read b
if b=999then goto 2000
if a=999 then goto 2000
c = b/2 'the "2" controls tempo
sound a,c
next I
400data 52,25,52,25,54,50,52,50
410data 57,50,56,200
420data 52,25,52,25,54,50,52,50
430data 41,50,57,200
440data 52,25,52,25,62,50,60,50
450data 57,50,56,50,54,150
460data 61,25,61,25,60,50
470data 57,50,41,50,57,200
480data 999,999
2000system=