*PROGRAMAS PARA VENTAS*

store space (20)
to nombre
store space (4) to codigo
store 0 to precio
store 0 to cantidad
store 0 to T
cod= space(4)
use productos
clear
@5,5 say "cual es el codigo del producto? "get cod
read
locate for cod=codigo
@7,5 say "que cantidad compro?"get cantidad
read
T=cantidad*precio
@10,5 say"producto:"
@10,20 say nombre
@12,5 say "total:"
@12,20 say T
wait window "fin del programa"