How to play a Midi file

[eoredson]

Just to play around a bit here is some code:

Code: (Select All)

$Unstable:Midi
$MidiSoundFont:Default
_SndPlayFile (_OpenFileDialog$("Open File", "", "*.mid", "Midi files", 0)): Color 15: Print "Press key:": While InKey$ = "": Wend: System

unfortunately you can't concatenate the metacommands into one line.

but you can specify a function call as a parameter to a function call..