PROGRAMA PARA ACCESAR A LA INFORMACION DE UNA BASE DE DATOS

PARA LA TABLA PRODUCTOS

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