XProfan

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

WHILE (A$ <> )

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

    If %MCIError

        Print Fehler: ;B$

    EndIf

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

ENDWHILE

END