PureBoard

; MIDI File decoder by Zapman

Declare.s ReadStringl(Length.l)
Declare ReadVLD ()
Declare ReadMidiFile()

Dim MidiInstrument$ (127)
Restore SMI
For ct = 0 To 127
Read MidiInstrument$(ct)
Next

ReadMidiFile()
;
Procedure ReadMidiFile()
MidiFileName$= OpenFileRequester("", ".MID", ".MID", 0)
If ...