https://www.purebasic.fr/english/viewto ... 15#p609915
I have the same problem trying XM modules I have with this code...
Code: Select all
If OpenWindow(0, 0, 0, 140, 80, "XM Music", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
If InitSound()
XMMusic = CatchMusic(#PB_Any, ?ModuleStart, ?ModuleEnd-?ModuleStart)
If IsMusic(XMMusic)
MusicVolume(XMMusic, 5)
PlayMusic(XMMusic)
EndIf
EndIf
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf
DataSection
ModuleStart:
IncludeBinary "music1.xm"
ModuleEnd:
EndDataSection