初めに言っておくと最後までありません。途中から無限ループするようになっています。画面上に出てくる文字はループを表しているものです。

SHARP PC-G850VのBASICでBEEP命令をひたすら叩いて演奏させました。一音しか出ないのでなかなかチープな音なんですがこれがまた気に入ってたりします

BEEP命令は、0~255の間で音の高さを調整するのですが、音の高さによって変わる発音の長さを調整するのがものすごく面倒だったので習いたての表計算ソフトで簡単に求められるものを作りました。
ポケコンでの演奏に挑戦してみたい方は是非使ってみてください。休符（FOR~TOの空回し）の計算もできます。
http://urx3.nu/oxYE
尚、使用するには編集可能な表計算ソフト（Microsoft Office等）が必要です。