PROGRAMA DE VENTAS

1.-modi comm productos
-store space (30) to producto
-store space (10) to peso
-store space (10) to precio
-store space (4) to codigo
-store space (10) to marca
-store 0 to precio
-store 0 to cantidad
-cod=space (4)
-use productos
-clear
-@ 5,5 say "introdusca el codigo" get cod
-read
-locate for cod=codigo
-@ 8,5 say "introdusca la cantidad comprada" get cantidad
T-=cantidad*precio
-@ 9,5 say "producto"
-@ 9,20 say producto
-@ 10,5 say "total"
-@ 10,15 say T
-wait
2.-Ctrl+w
3.-Do productos