My first program on HP-50g - Music.

[matalog]

(06-05-2021 09:54 PM)Eric Rechlin Wrote:  That is by far the most impressive User RPL music program I have heard on the 48/49/50. It almost has the polyphonic sound of some of the assembly language programs I've seen to do it.

Congratulations on your first program being so amazing! Any chance you might be willing to share the code?

It's really as simple as it could be, the notes are all one length because of how the tune is written.

Code:

«
1 'N' STO
{392,33,65,349,33,33,330,65,262,33,65,330,33,33,392,65,349,41,330,82,247,41,82,8​2,41,41,82,82,41,41,82,82,440,27,55,494,27,27,523,55,330,27,55,349,27,27,392,55,​349,44,330,87,262,44,87,87,44,44,87,87,44,44,87,87,392,33,65,349,33,33,330,65,26​2,33,65,330,33,33,392,65,349,41,330,82,247,41,82,82,41,41,82,82,41,41,82,82,440,​55,110,494,55,55,523,110,330,55,110,330,55,55,392,110,440,44,392,87,392,44,87,87​,44,44,87,87,44,44,87,87,262,33,330,65,392,33,262,330,33,392,65,262,330,33,392,6​5,247,41,330,82,392,41,247,330,41,392,82,247,330,41,392,82,262,55,330,110,440,55​,262,330,55,440,110,262,330,55,440,110,262,44,349,87,440,44,262,349,44,440,87,26​2,349,44,440,87,262,33,330,65,392,33,262,330,33,392,65,262,330,33,392,65,247,41,​330,82,392,41,247,330,41,392,82,247,330,41,392,82,262,55,330,110,440,55,262,330,​55,440,110,262,330,55,440,110,262,44,349,87,440,44,262,349,44,440,87,262,349,44,​440,87}  'L1' STO
1 10 FOR A
1 256 FOR N
'L1' N GET 0.08 BEEP
NEXT
NEXT
»