programa de venta de productos

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, say "introducir el codigo" get cod
read
locate for cod=cmd001
@7,6 say "cantidad comprada?" get cantidad
read
t=cantidad*precio
@a,5 say"producto:"
@a,20 producto
@10,5 say "total:"
@10,15 say T
wait