**"" La funcion de Ventas""**

Store space (30) to producto
Store space (4) to codigo
Store 0 to precio
Store 0 to cantidad, t
Cod=space (4)
Use=producto
Clear
@5, 5 say "introduzca el codigo" get cod
Read
Locate for cod=codigo
@7, 5 say "que cantidad compro?" get cantidad
read
t=cantidad*precio
@9, 5 say "producto:"
@9, 20 say producto
@10,5 say "total:"
@10,15 say t
Wait

La version del programa

clear
use Agendan
n=1
do while.not.eof( )
?proper (trim(producto) +" "+codigo)
Skip
enddo
Wait window

Formula para calcular F=m*a

store 0 to m,a,f
resp="S"
do while (resp="S")
clear
@5,5 say "Introducir la masa" get m
read
@6,5 say"Introduce la acelaracion"get a
read
F=m*a
@8,5 say "Fuerza="
@8,12 say f
@8,30 say "Newtons"
wait "Desea otro calculo s/n?"to resp
resp=upper (resp)
enddo
wait window "Fin del programa"