Dim it2 As it2play
it2.Initialize
If it2.Music_Init(48000, 1024) Then
Select it2.Music_LoadFromData(File.ReadBytes(File.DirAssets, "secretly.it"))
Case 0
Log("Success")
Log(it2.Song.Header.SongName)
it2.Music_PlaySong(0)
Case 1
Log("Error: general IO")
Case 2
Log("Error: MMCMP compressed not support")
Case 3
Log("Error: incompatible")
End Select
End If