LoadSound / StopChannel / FreeSound

Hi,

why does this code do not run endless:


Graphics 1024,768,16,1
SetBuffer BackBuffer()
ClsColor 0,0,0

Color 0,255,255

insgesamt_start=millisecs()

start=millisecs()

lied1=LoadSound("Musik/spiel1.mp3"):ChannelID=PlaySound(lied1)


.schleife



jetzt=millisecs()

;start and stop music
If jetzt>start+10000



StopChannel(ChannelID):FreeSound lied1:lied1=0


anzahl=anzahl+1

datei$="zeit.txt"
file=WriteFile(datei$)
WriteLine file,laeuft_seit
WriteLine file,"Sekunden"
WriteLine file,anzahl
WriteLine file,"Durchgänge"
CloseFile file



start=millisecs()

lied1=LoadSound("Musik/spiel1.mp3"):ChannelID=PlaySound(lied1)


EndIf

laeuft_seit=(jetzt-insgesamt_start)/1000

;Ausgabe
Cls
Text 10,10,"Musik_tester"
Text 10,30,"Anzahl der Durchläufe: "+anzahl
Text 10,50,"läuft seit "+laeuft_seit+" Sekunden"

Flip

If KeyHit(1)=1 Then End


Goto schleife
By me the code stops after 4,5 hours.
With FreeSound the memory shoueld be cleared.

But it does not.

Regards,

Dirk Knoop

It stops? how? Does it simply end, or does it crash with a MAV?

You may want to alter these lines:

...
Flip

If KeyHit(1)=1 Then
 print "Ending due to ESC keyhit! Press a key..."
 Waitkey()
 End
endif

Goto schleife

Print "If you read this then Goto didn't work - just impossible!"
Waitkey()