FoxPro/Visual FoxPro - visual foxpro - realizar un programa que realize el factorial de un numero

N = 1

Do While N > 0

   Clea

   @ 2,2 say "Factorial de: " Font "arial",14 style "BT"

   @ 2,30 Get N Picture "###" Font "arial",14 style "BT"

   Read

   If N > 0

      Fin = 0

      Factorial = "1"

      For Fin = 2 to n

         Factorial = Factorial+"*"+alltrim(str(fin))

      EndFor

      @ 4,4 Say "Factorial de "+alltrim(str(n))+" = "+factorial+" = "+alltrim(trans(&factorial,"@z ###,###,###,###"))  Font "arial",14 style "BT"

      Read

   EndIf

EndDo