programa para accesar a la informacion de una base de datos

store space (40) to producto
store space (10) to codigo
store space (10) to precio
store space (40) to describe
cod = space (4)
use productos
clear
@5,5 say "introdir el codigo" get cod
read
locate for cod = codigo
@7,5 say "que cantidad compro? get cantidad
t= cantidad * precio
@9,20 say producto
@10,5 say "total:"
@10,15 say t
wait