Sub Globals
Dim SP As OpenSLSoundPlayer
Dim MySound As Int
End Sub
Sub Activity_Create(FirstTime As Boolean)
File.Copy(File.DirAssets, "snd.wav", File.DirInternal, "snd.wav")
SP.Initialize(8, True)
MySound = SP.LoadSoundFromDisk(File.DirInternal & "/" & "snd.wav")
SP.Play(MySound, 1, 0)
End Sub