XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Midi-Dateien abspielen
CLS
Declare A$,B$
WindowTitle Testprogramm MIDI
LET A$=@LOADFILE$(MIDI-DATEI,*.MID)

WHILE @NEQ$(A$,)

    LET A$=@ADD$(@ADD$(OPEN ,A$), TYPE SEQUENCER ALIAS MIDI)
    LET B$=@MCISend$(A$)

    If %MCIError

        Print Fehler: ;B$

    EndIf

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

WEND

END