; German forum: http://robsite.de/php/pureboard/viewtopic.php?t=1188&highlight=
; Author: Froggerprogger
; Date: 16. December 2004
; OS: Windows
; Demo: No

filename.s = OpenFileRequester("Wähle einen Song","","Ogg MP3 WAV|*.ogg;*.mp3;*.wav|all files|*.*",0) 
If filename = "" : End : EndIf 

OpenWindow(0, 0, 0, 100, 100, "", #PB_Window_SystemMenu) 

FSOUND_Init(44100,32,0) ; 44100 Hz (standard), 32 Softwarekanäle (mehr als genug) 
*hstream = FSOUND_Stream_Open(filename,0,0,0) ; öffne Stream 
FSOUND_Stream_Play(1,*hstream) ; spiele Stream auf Kanal 1 

Repeat 
  Event=WaitWindowEvent() 
Until Event = #PB_EventCloseWindow 

FSOUND_Stream_Close(*hstream) ; beende Stream 
FSOUND_Close() ; fahre fmod runter
; IDE Options = PureBasic v4.02 (Windows - x86)
; Folding = -