XProfan

Source watts on the 15.07.2007 from the MMJ-Quellcodesammlung (Dietmar horn) in The Babyklappe on XProfan.Com stored:
Midi-File Play
CLS
Declare A$,B$
Window Title Testprogramm MIDI
A$=@LOADFILE$(MIDI-FILE,*.MID)

WHILE (A$ <> )

    A$ = OPEN  q + A$ + q TYPE SEQUENCER ALIAS MIDI)
    B$ = @$ MCISend(A $)

    If %MCIError

        Print Error: ;B$

    EndIf

    B$ = @$ MCISend(PLAY MIDI WAIT)
    WAITMOUSE
    B$ = @$ MCISend(CLOSE MIDI)
    A$ = @LOADFILE$(MIDI-FILE,*.MID)

ENDWHILE

END