FoxPro/Visual FoxPro - funcion para solidos

Hola buenas noches... sabes estoy tratando de establecer una funcion en un programa que tengo como funciones.prg para emitir sonidos..

En el prg principal deseo usar la funcion sonidos funcion para emitir un sonido de inicio... pero no me sale...
**** prg principal****
local sdn
sdn=1
set procedure TO funciones
SET BELL TO lcNewDir+"SOUNDS"+sonidos(sdn)
?? CHR(7)
SET BELL TO
***** y continua el programa principal....

*****EN EL PRG FUNCIONES TENGO ESTO*****
PROCEDURE sonidos
param snd
do case
case snd = 1
sonwav = 'IR_BEGIN.WAV'
case snd = 2
sonwav = 'analysis.wav'
case snd = 3
sonwav = 'IR_BEGIN.wav'
endc
retu sonwav
*********** FIN DE LA FUNCION....

esto lo quiero tambien el los form.... o que me aconsejan...
saludos... gracias a todos

falta al comienzo activar el sonido con Set Bell ON

SET BELL ON

local sdn
sdn=1
set procedure TO funciones
SET BELL TO lcNewDir+"SOUNDS"+sonidos(sdn)
?? CHR(7)
SET BELL TO
***** y continua el programa principal....

*****EN EL PRG FUNCIONES TENGO ESTO*****
PROCEDURE sonidos
param snd
do case
case snd = 1
sonwav = 'IR_BEGIN.WAV'
case snd = 2
sonwav = 'analysis.wav'
case snd = 3
sonwav = 'IR_BEGIN.wav'
endc
retu sonwav