PROGRMA PARA ACCESAR A LA INFORMACION DE UNA BASE DE DATOS MEDIANTE UN PROGRMA

estore space(30) to producto
estore space(15) to peso
estore space(13) to presio
estore space(4) to codigo
estore space (10) to marca
estore 0 to presio
store 0 to cantidad
cod= space (4)
use productos
clear
@5,5 say"introdusir el codigo" get cod
read
locate for cod=codigo
@8,5 say" introdusca cantidad comprobada"get cantidad
t=cantidad*presio
@9,5 say"producto:"
@9,20 say producto
@10,5 say "total:"
@10,15 say t
wait