Setvirtualresolution(640,480)
ResetTimer()

//Check for required custom font files in media folder
fileok=GetFileExists("music.mp3")
If fileok<>1
    Repeat
        Print ("music.mp3 needs to be in your media folder")
        Sync()
    Until Timer()>5
EndIF

If fileok=1
    music = LoadMusic("music.mp3")
    PlayMusic(1)
    Repeat
        If GetMusicPlaying()
            Print ("Music Playing")
        EndIf
        Sync()
    Until Timer()>10
    DeleteMusic(1)
    Print ("Music Deleted")
    Sync()
    Sleep(2000)
EndIf
End