' ogg play with SDL2 and SLD2_mixer
' request : SDL2 2.0.14, SDL2_mixer 2.0.4

#include "SDL2/SDL_mixer.bi"
dim mymusic as Mix_Music ptr

chdir exepath()

Mix_OpenAudio(44100, MIX_DEFAULT_FORMAT, 2, 4096)

' Here your music file in *.mp3 or *.ogg
mymusic = Mix_LoadMUS("bgm.ogg")

Mix_VolumeMusic(128)  ' 128 is the maximum volume

' 0 play once / -1  play infinit loop
' Mix_PlayMusic(mymusic, 0)

print "Press 1 to stop music."
print "Press 2 to play music."
print "Press 3 to pause music."
print "Press 4 to resume music."
print "Press space key to exit program."

Dim As Boolean running = True
While running
    Dim As String k = inkey$
    Select Case k
    Case "1": Mix_HaltMusic()
    Case "2": Mix_PlayMusic(mymusic, -1)
    Case "3": Mix_PauseMusic()
    Case "4": Mix_ResumeMusic()
    Case " ": running = False
    End Select
    
    sleep 200
Wend

FINALIZATION:
Mix_CloseAudio()