FoxPro/Visual FoxPro - como calcular el factorial en fox

hola necesito alguna pequeña aplicacion que me ayude a calcular en fox de un numero que ingreso en una caja de texto

Para calcular el factorial de n Numero es muy facil mira..... Te voy a enviar el codigo que hice esper te ayude..

Este codigo solo lo insertas en un boton que estara en el formulario..

*******Programa para Calcular el Factorial de un Numero.***********

n = val(thisform.text1.value)
c = 0
Fac = 1

if n >= 0 then

do while (n-c) >= 1

Fac = Fac * (n-c)
c = (c+1)

enddo
else
messagebox("Solo para Numeros Positivos")

endif

thisform.text2.value = str(Fac,20,0)

Este codigo tiene un filtro para evitar que ingrese un numero negativio ya que no existen factoriales de Numeros Negativos