PROGRAMA PARA VENTAS

1.- store space (30) to producto
2.- store space (4) to codigo
3.- store (0) to precio
store 0 to cantidad, T
cod= space (4)
use productos
clear
@ 5,5 say" introducir el codigo" get cod
read
locate for cod=zs005
@7,6 say" cantida comprada? "get cantidad
read
T=cantidad*precio
@9,5 say "producto:"
@9,20 producto
@10,5 say"total:"
@10,15 say T
wait