SP.Initialize(2)
StartBeep = VoiceIt.SP.Load(File.DirAssets,"beep.ogg")
StopBeeps = VoiceIt.SP.Load(File.DirAssets,"2-beeps.ogg")
Dim i, pid As Int
For i = 1 To 1000
pid = VoiceIt.SP.Play(StartBeep, 1, 1, 10, 0,0)
If (pid > 0) Then
ToastMessageShow("PlayBeep: Pid=" & pid,True)
Exit
Else
Log("PlayBeep: Pid=0, i=" & i)
End If
Next