**"" 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