XProfan

PROC PLAY_MP3

    DECLARE ERROR$
    PARAMETERS DATEI$
    DATEI$=AFZ(DATEI$)
    DATEI$="OPEN "+DATEI$+" TYPE MPEGVIDEO ALIAS AUDIO"
    ERROR$=MCISend$(DATEI$)
    ERROR$=MCISend$("PLAY AUDIO")
    CASE ERROR$ = "":Print "Taste um zu beenden"
    WAITINPUT
    ERROR$=MCISend$("CLOSE AUDIO")
    Case %MCIError: RETURN ERROR$

ENDPROC

DECLARE ERROR$,DATEI$
DEF AFZ(1) add$(add$(@CHR$(34),@$(1)),@CHR$(34))
CLS
WINDOWTITLE "MP3 TEST"
DATEI$=LOADFILE$("MP3-DATEI","*.MP3")
PLAY_MP3 DATEI$

IF $(0) <> ""

    PRINT ERROR$

ENDIF

WAITINPUT