FoxPro/Visual FoxPro - codigo de multiplicar

Gracias a todos si he modificado el codigo hasta dar con el pero solo tengo un pequeño problema, el cual cuando ejecuto el programa y ya escribo los números no me da el resultado en pantalla. Aqui les dejo el codigo de la multiplicacion para que lo chequen
gracias.

store 0 to ncantidad,nprecio,nresultado

@11,01 say "cantidad" get ncantidad function "B"
@11,25 say "precio" get nprecio function "$,B" picture "9,999.99"
@11,50 say "resultado" get nresultado function "$,B" picture "9,999.99"

store ncantidad*nprecio to nresultado

cantidad = ncantidad
precio = nprecio
resultado = nresultado


read

Que falta de investigacion.............
para pantalla:
? cantidad
? precio
' resultado
Que barbaridad.....................

este es una manera

store 0 to ncantidad,nprecio

@11,01 say "cantidad" get ncantidad function "B"
@11,25 say "precio" get nprecio function "$,B" picture "9,999.99"
read
@11,50 say "resultado" +str(Ncantidad*Nprecio)
read

esta es otra manera mas compleja

store 0 to ncantidad,nprecio,Nresultado

@11,01 say "cantidad" get ncantidad function "B"
@11,25 say "precio" get nprecio function "$,B" picture "9,999.99" valid Resultado(ncantidad,nprecio)
@11,50 say "resultado" get nresultado function "$,B" picture "9,999.99"
read

function resultado
PArameters a,b
nresultado = a * b
show gets
Return (.T.)

mira mauricio me recuerda mis inicios hace 15 años dale pa lante y lee mucho k tu eres bueno y persiste
esa es la clave de un buen programador

te recomiendo leer sobre formularios se trabaja menos y se abanza mas