XProfan

 $H windows.ph
CLS
Declare Win&,play$,close$,Pla&,Cld&
Win& = UseDLL("Winmm.dll")
play$ = "PlaySound"
close$ = "CloseDriver"
Pla& = ~GetProcAddress(Win&,Addr(play$))
Cld& = ~GetProcAddress(Win&,Addr(close$))
Declare fs&,mus#
fs& = filesize("sound.wav")
Dim mus#,fs&
Assign #1,"sound.wav"
Openrw #1
Blockread(#1,mus#,0,fs&)
Close #1
Call(Pla&,mus#,0,(5+8))'5 = 1x abspielen, 5+8 = Endlos wiederholen
Print "spielt ab..."
Waitinput
Call(Pla&,0,0,0)'stoppt
Print "gestoppt..."
Waitinput
Call(Cld&,mus#,0,5)'schließt und nimmt aus Arbeitsspeicher
Print "geschlossen"
Waitinput
Dispose mus#
FreeDll Win&

CLS
Def PlaySoundWinmm(3)!"Winmm","PlaySound"
Def CloseDriverWinmm(3)!"Winmm","CloseDriver"
Declarar fs&,mus#
fs& = filesize("sound.wav")
Dim mus#,fs&
Asignar #1,"sound.wav"
Openrw #1
Blockread(#1,mus#,0,fs&)
Cerrar #1
PlaySoundWinmm(mus#,0,(5+8))'5 = 1x abspielen, 5+8 = Endlos wiederholen
Imprimir "spielt de..."
Waitinput
PlaySoundWinmm(0,0,0)'stoppt
Imprimir "gestoppt..."
Waitinput
CloseDriverWinmm(mus#,0,5)'schließt y nimmt de Arbeitsspeicher
Imprimir "geschlossen"
Waitinput
Disponer mus#