これでもできませんか?
http://www.rinku.zaq.ne.jp/ultimate/lecture/dictionary/
[逆引き辞書]→[システム]→[CDトレイをオープンする]
#module
#deffunc mcicdopen int root, local s
if root : s = "!?:" : poke s, 1, root + 64 : else : s = ""
mci "set cdaudio" + s + " door open"
return
#deffunc mcicdclose int root, local s
if root : s = "!?:" : poke s, 1, root + 64 : else : s = ""
mci "set cdaudio" + s + " door closed"
return
#global
sdim drv, 128
repeat 26, 1
if cnt > 1 : drv += "\n"
wpoke drv, (cnt - 1) * 3, (':' << 8) + cnt + 64
loop
pos 10, 10 : combox index, 100, drv
pos 10, 40 : button gosub "開", *open
pos 10, 70 : button gosub "閉", *close
stop
*open
mcicdopen index + 1
return
*close
mcicdclose index + 1
return
やってみたけどちゃんとできました。