@echo off
color 81
title AGENDA PERSONAL [BY Alan Bruhns Ivaldi]
echo.
echo Bienbenido/a su agenda personal.
echo.
if exist C:\Agenda (goto in) else goto noin
pause
cls
:noin
cls
echo.
echo           INSTALACION
echo.
echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
ECHO º                                 º
echo º    Desea instalar la agenda?    º
echo º                                 º
echo º            Si o No              º
echo º                                 º
echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo.
Set /p opcion= Seleccione una opcion: 
if %opcion%==si goto si 
if %opcion%==no goto no
if not defined %opcion%==goto noin
:si
echo Usted a decidido instalar la agenda personal
cls
echo Presione Enter para instalar.
pause>nul
mkdir "C:\Agenda"
cls
echo Su agenda a sido instalada correctamente
echo.
echo Se encuentra en C:\Agenda
echo.
echo Pulse una tecla para iniciar la agenda
pause>nul
goto menu
:in
echo Iniciando el programa
echo.
echo Presione una tecla para ir al menu
cls
goto menu
:menu
cls
echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ» 
echo º                                          º             
echo º                   MENU                   º
echo º                                          º
echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»              
echo º                                          º
echo º  Copyright © 2009 by Alan Bruhns Ivaldi  º
echo º                                          º
echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo º                                          º
echo º 1 - Nuevo contacto                       º 
echo º 2 - Ver todos los contactos              º
echo º 3 - Eliminar un contacto                 º             
echo º 4 - Eliminar Agenda                      º         
echo º 5 - Salir                                º
echo º                                          º  
echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo.
Set/p opcion= elige una opcion:
if %opcion%==1 goto entrada 
if %opcion%==2 goto ver
if %opcion%==3 goto del
if %opcion%==4 goto eli
if %opcion%==5 goto salir
:entrada
cls
set /p en=Escriba el nombre del contacto: 
if exist "C:\Agenda\%en%.bat" (goto ex) else goto noex
cls
:noex
cls
echo.
echo Usted esta a punto de crear un nuevo contacto
echo.
echo.
echo A continuacion debe escribir los datos del nuevo contacto
echo.
echo Presiona Enter
pause>nul
cls
echo Nombre: %en%
echo.
set /p en2=Telefono: 
echo.
set /p en3=Msn: 
echo.
set /p en4=Direccion: 
echo.
set /p en5=Fecha de Cumpleanios: 
echo.
cls
echo @echo off>>"C:\Agenda\%en%.bat"
echo title %en%>>"C:\Agenda\%en%.bat"
echo color c>>"C:\Agenda\%en%.bat"
echo echo.>>"C:\Agenda\%en%.bat"
echo echo Nombre: %en%>>"C:\Agenda\%en%.bat"
echo echo.>>"C:\Agenda\%en%.bat"
echo echo Telefono:%en2%>>"C:\Agenda\%en%.bat"
echo echo.>>"C:\Agenda\%en%.bat"
echo echo Msn: %en3%>>"C:\Agenda\%en%.bat"
echo echo.>>"C:\Agenda\%en%.bat"
echo echo Direccion: %en4%>>"C:\Agenda\%en%.bat"
echo echo.>>"C:\Agenda\%en%.bat"
echo echo Fecha de Cumpleanios: %en5%>>"C:\Agenda\%en%.bat"
echo echo.>>"C:\Agenda\%en%.bat"
echo pause>>"C:\Agenda\%en%.bat"
echo exit>>"C:\Agenda\%en%.bat"
echo.
echo Su contacto ha sido almacenado correctamente
echo.
echo Presione enter para continuar
pause>nul
cls
goto menu
:ex 
cls
echo %en% ya existe en la agenda
echo.
echo Para ver los datos de %en% presione enter y luego opcion 2
echo.
pause>nul
cls
goto menu
:ver
cls
msg * En esta carpeta se encuentran todos sus contactos
start C:\Agenda\
cls
goto menu
:del
cls
set /p delc= Que contacto deseas borrar?: 
if exist "C:\Agenda\%delc%.bat" (goto dels) else goto deln
:dels
del /f /s /q "C:\Agenda\%delc%.bat"
cls
echo El contacto ha sido eliminado correctamente
echo.
echo Presione Enter para volver al menu
pause>nul
goto menu
:deln 
cls
echo Ese contacto no existe en la agenda
echo.
echo Para ver todos los contactos de su agenda persione Enter y luego 2
echo.
pause>nul
cls
goto menu
:eli
cls
echo Esta opcion desinstalara la agenda de su equipo
echo.
echo Tambien se borraran todos sus contactos.
echo.
echo.
echo Esta seguro que desea desinstalar la agenda?
echo.
set /p rta=Respuesta: 
if %rta%==si (goto borrar) else goto menu
cls
:borrar
rd /q /s C:\Agenda
cls
echo.
echo La agenda ha sido desinstalada con exito
echo.
echo Gracias por utilizarla
echo.
echo.
echo.
echo                                 Presiona enter para salir
echo.
echo.
echo.
echo.
echo                                Creditos: Alan Bruhns Ivaldi
echo                              Contacto: alitas.93@hotmail.com
pause>nul
exit