PROGRAMA ACCESAR A LA INFORMACION DE UNA BASE DE DATOS MEDIANTE UN PROGRAMA

store space(30) to producto
store space(15) to peso
store space(20) to precio
store space(4) to codigo
store space(15)to marca
store 0 to precio
store 0 to cantidad
cod= space
use productos
clear
@5,5 say "introducir el codigo" get cod
read
locate for cod=codigo
@8,5 say"introduzca cantidad comprada" get cantidad
t=cantidad*precio
@9,5 say "producto:"
@9,20 say producto
@10,5 say "total:"
@10,15 say t
wait