Music1 = PlayMusic("Data\Music\MenuMusic.mid")

Function MenuMusic()
    If ChannelPlaying(Music1) = False
          PlayMusic(Music1)
    EndIf
End Function
While Not KeyHit(1)
     MenuMusic()
Wend 

------------------
:The Fluff Effect: