FoxPro/Visual FoxPro - como puedo crear las tablas de multpicar en foxpro

TablaM = 1

Clea

Do While TablaM > 0

   Clea

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

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

   Read

   If TablaM > 0

       IniM = 0

      For IniM = 1 to 10

         @ IniM+3,2 say str(tablam)+" X "+Alltrim(str(IniM))+" = "+Alltrim(Str(tablam*IniM))

      EndFor

      Read

   EndIf

EndDo

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