XProfan

Source wurde al 15.07.2007 de el MMJ-Quellcodesammlung (Dietmar Horn) en el Babyklappe en XProfan.Com abgelegt:
Midi-Expediente abspielen
CLS
Declarar A$,B$
Título de la ventana Testprogramm MIDI
A$=@LOADFILE$(MIDI-DATEI,*.MID)

WHILE (A$ <> )

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

    If %MCIError

        Imprimir Fehler: ;B$

    EndIf

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

ENDWHILE

FIN