**programa**

clear
use agenda
index on nombre tag agenda
resp1="s"
do while resp1="s"
go top
@0,0 clear
@1,30 say "programadores:viviana,dulce,alejandro,natalia y benjamen
@3,26 say "impresion de registro..."
buscar=0
@7,22 say "1)imprimir todos los registros:"
@9,22 say "2)imprimir un solo registro especifico:"
@12,22 say "¿que deceas hacer?" get buscar
read
if buscar=1
list to printer
else if buscar=2
go top
buscar=0
@13,15 say"introdusca el numero de registros a imprimir:"get buscar
read
go buscar
@15,25 say "nombre:"
@15,33 get nom
@17,25 say "direccion:"
@17,33 get dir
@19,25 say "telefono:"
@19,33 get tel
@21,25 say "sexo:"
@21,33 get sexo
@23,25 say "edad:"
@23,33 get ed
clear gets
resp2=""
@25,25 say "¿es la persona a imprimir? [s/n]:"  get resp1
read
resp2=""
if resp2="s"
display to printer
endif
endif
resp1="s"
@27,25 say "¿decea ser otra impresion? [s/n]:" get resp1
read
enddo
go top
return
--------------------------------------------------------------------------------------------------------------------

clear                                                                      elias,monica,gisela,israel,cristal
index on nombre to archivo n
resp="s"
do while
resp="s"
@10,90 say "consultas"
x=space(25)
@13,90 say "dar  un nombre" get x
read
seek x
@15,45 say = "nombre" get nombre
@18,45 say = "direccion" get direccion
@21,45 say = "telefono" get telefono
@24,45 say = "sexo" get sexo
@27,45 say = "edad" get edad
resp="s"
@30,45 say = "decea consultar otro dato [s/n]"
get resp
read
enddo
return

-------------------------------------------------------------------------------------------------------------------


use libreta
index on nom tag libreta

@8,100 Say "ELIMINAR REGISTRO"
@9,100 Say "PROGRAMADORES:pasita,damaris,viridiana y jose manuel"
resp="s"
do while resp="s"
    nom=space(30)
@10,90 say "nombre del registro que dece eliminar:" get nom
read
seek nomb
@12,90 say nom
@13,90 say dir

@15,90 say "1. Marcar"
@16,90 say "2. Eliminar definitivamente"
@17,90 say "3. Ninguna"
resp=""
do while .NOT. resp$'1,2,3'
@18,90 say "opcion:" get resp
read
do case
   case resp='1'
   delete
   case resp='2'
        pack
   end case
enddo
@22,90 say "decea eliminar otro registro [s/n]?" get resp
read
enddo
return

-------------------------------------------------------------------------------------------------------------------

use agenda
index on nombre tag agenda
resp1="s"
vnom=space(15)
vedad=space(2)
vdir=space(20)
vtel=space(13)
vsexo=space(1)

do while resp1="s"
   @5,90 say "nombre a buscar:" get vnom
   read
   seek vnom
  
   @5,90 say "menu de modificaciones"
   @7,90 say "programadores:nadia,lili,lalo y wendy"
   @8,90 say "1.-nombre:" +nom
   @9,90 say "2.-edad:" +edad
   @10,90 say "3.-direccion:" +direccion
   @11,90 say "4.-telefono:" +telefono
   @12,90 say "5.-sexo:" +sexo
   @14,90 say "6.-ninguno"
resp=""

do while .NOT. resp$'1,2,3,4,5,6'
   @22,28 say "que campo deseas modificar ?" get resp
   read
enddo
do case
   case resp='1'
        @8,101  get vnom
        read
        replace nombre with vnom
   case resp='2'
        @9,99 get vedad
        read
        replace edad with vedad
   case resp='3'
        @10,103  get vdir
        read
        replace direccion with vdir
    case resp='4'
        @11,101 get vtel
        read
        replace telefono with vtel
    case resp='5'
        @12,99 get vsexo
        read
        replace sexo with vsexo
    endcase
@23,90 say "desea modificar otro registro [S/N]?"  get resp1
read
enddo
return
------------------------------------------------------------------------------------------------------------------