暇なので、beep音で階名(ドレミ)表記のモジュールを作ってみました。
#uselib "kernel32.dll"
#func _beep_ "Beep" int,int
#define beep(%1,%2) await:_beep_ %1,%2
#packopt hide 1
//階名表記定義
#const ド 524
#const ド♯ 554
#const レ♭ 554
#const レ 587
#const レ♯ 622
#const ミ♭ 622
#const ミ 660
#const ファ 698
#const ファ♯ 740
#const ソ♭ 740
#const ソ 784
#const ソ♯ 830
#const ラ♭ 830
#const ラ 880
#const ラ♯ 932
#const シ♭ 932
#const シ 988
#const ド_ 1046
#const C 524
#const C♯ 554
#const D♭ 554
#const D 587
#const D♯ 622
#const E♭ 622
#const E 660
#const F 698
#const F♯ 740
#const G♭ 740
#const G 784
#const G♯ 830
#const A♭ 830
#const A 880
#const A♯ 932
#const B♭ 932
#const B 988
#const C_ 1046
//↓以下サンプル
screen 0,195,315,2
title "ビープ音 階名"
button gosub "ド",*_do_
button gosub "ド♯ レ♭",*_do♯
button gosub "レ",*_re
button gosub "レ♯ ミ♭",*_re♯
button gosub "ミ",*_mi
button gosub "ファ",*_fa
button gosub "ファ♯ ソ♭",*_fa♯
button gosub "ソ",*_sol
button gosub "ソ♯ ラ♭",*_sol♯
button gosub "ラ",*_la
button gosub "ラ♯ シ♭",*_la♯
button gosub "シ",*_si
button gosub "ド",*do_
pos 65,0
button gosub "ド",*do_
button gosub "ド♯ レ♭",*do♯
button gosub "レ",*re
button gosub "レ♯ ミ♭",*re♯
button gosub "ミ",*mi
button gosub "ファ",*fa
button gosub "ファ♯ ソ♭",*fa♯
button gosub "ソ",*sol
button gosub "ソ♯ ラ♭",*sol♯
button gosub "ラ",*la
button gosub "ラ♯ シ♭",*la♯
button gosub "シ",*si
button gosub "ド",*do__
pos 130,0
button gosub "ド",*do__
button gosub "ド♯ レ♭",*do♯_
button gosub "レ",*re_
button gosub "レ♯ ミ♭",*re♯_
button gosub "ミ",*mi_
button gosub "ファ",*fa_
button gosub "ファ♯ ソ♭",*fa♯_
button gosub "ソ",*sol_
button gosub "ソ♯ ラ♭",*sol♯_
button gosub "ラ",*la_
button gosub "ラ♯ シ♭",*la♯_
button gosub "シ",*si_
button gosub "ド",*do___
gsel 0,1
stop
;/2で1オクターブ下げる。
*_do_
beep ド/2,400
return
*_do♯
beep ド♯/2,400
return
*_re
beep レ/2,400
return
*_re♯
beep レ♯/2,400
return
*_mi
beep ミ/2,400
return
*_fa
beep ファ/2,400
return
*_fa♯
beep ファ♯/2,400
return
*_sol
beep ソ/2,400
return
*_sol♯
beep ソ♯/2,400
return
*_la
beep ラ/2,400
return
*_la♯
beep ラ♯/2,400
return
*_si
beep シ/2,400
return
*do_
beep ド,400
return
*do♯
beep ド♯,400
return
*re
beep レ,400
return
*re♯
beep レ♯,400
return
*mi
beep ミ,400
return
*fa
beep ファ,400
return
*fa♯
beep ファ♯,400
return
*sol
beep ソ,400
return
*sol♯
beep ソ♯,400
return
*la
beep ラ,400
return
*la♯
beep ラ♯,400
return
*si
beep シ,400
return
*do__
beep ド_,400
return
;*2で1オクターブ上げる。
*do♯_
beep ド♯*2,400
return
*re_
beep レ*2,400
return
*re♯_
beep レ♯*2,400
return
*mi_
beep ミ*2,400
return
*fa_
beep ファ*2,400
return
*fa♯_
beep ファ♯*2,400
return
*sol_
beep ソ*2,400
return
*sol♯_
beep ソ♯*2,400
return
*la_
beep ラ*2,400
return
*la♯_
beep ラ♯*2,400
return
*si_
beep シ*2,400
return
*do___
beep ド_*2,400
return