FoxPro/Visual FoxPro - problema con function

saludos foxeros tengo el siguiente incoveniente soy un poco nuevo con la programacion de function o procedure en fox fox y estoy haciendo una de prueba para empezar y es la siguiente:

FUNCTION pru
local resul
resul=num1+num2
RETURN resul
ENDFUNC

y tengo en un boton lo siguiente para ejecutar la funcion:

num1=3
num2=7
DO /programa/prog/pruebas.prg

thisform.text1.Value=resul

pero en el resultado en la caja de texto me coloca una F
QUE ESTARE HACIENDO MAL O Q ME ESTA FALTANDO.

me imagino que lo que estas haciendo es un prg y una forma para presentar los datos.

en el archivo prg. tienes que terner esto:
FUNCTION calcular(valor1, valor2)
RETURN (valor1 + valor1)
ENDFUNC

En la forma:
En el metofdo INIT colocas:
set procedure to nombre_del_prg (nombre del programa)

En el boton:

num1=3
num2=7

thisform.text1.Value=calcular(num1, num2)

sencillo...