PLAYMID.BAS and MIDI file.

[Robert Claypool]

I wrote this and compiled it on 0.8.2 but the MIDI file won't play for me.

Code: (Select All)

Print "Press any key to start"
Do: Loop Until InKey$ <> ""
Filename$ = "TONOWH~2.MID"
LoadSound& = _SndOpen(Filename$)

MySound& = _SndCopy(LoadSound&)
_SndPlay MySound&
Do: Loop Until InKey$ <> ""
_SndClose MySound&
_SndClose LoadSound&