PROGRAMA PARA ACCEDER A LA INFORMACION DE UNA BASE DE DATOS

store space(30) to productostore
space(15) to pesostore space(20) to preciostore
space(4) to codigostore space(15)to marcastore 0
to preciostore 0
to cantidadcod= spaceuse productos clear@5,5 say "introducir el codigo" get codreadlocate for cod=codigo@8,5 say"introduzca cantidad comprada" get cantidadt=cantidad*precio@9,5 say "producto:"@9,20 say producto@10,5 say "total:"@10,15 say twait