@echo off
color f0
title agenda V1
md c:\agenda
cd c:\agenda
:inicio
cls
echo .---------Menu------------.
echo.
echo 1-Agregar Nombre
echo 2-Buscar Nombre
echo 3-Eliminar Nombre
echo 4-Ver lista de Nombres
echo.
echo 0-Salir
set /p pre=
if %pre%==1 goto ag
if %pre%==2 goto bn
if %pre%==3 goto ec
if %pre%==4 goto ln
if %pre%==0 (goto ex) else goto er
pause > nul
:ag
cls
echo Escriba el nombre de la persona:
set /p nom=
echo cls > %nom%.txt
cls
echo Escriba el nombre:
set /p nm=
echo Escriba el apellido:
set /p ap=
echo Escriba edad:
set /p ed=
echo Escriba Residencia:
set /p rs=
echo Escriba numero telefonico:
set /p tl=
echo Escriba E-mail
set /p em=
echo %nm% > %nom%.txt
echo %ap% >> %nom%.txt
echo %ed% >> %nom%.txt
echo %rs% >> %nom%.txt
echo %tl% >> %nom%.txt
echo %em% >> %nom%.txt
pause > nul
goto :inicio
:bn
cls
echo Escriba el nombre a buscar:
set /p nom2=
if exist %nom2%.txt goto bn2
if not exist %nom2%.txt goto mal1
:bn2
cls
echo %nom2%:
more %nom2%.txt
pause > nul
goto inicio
:mal1
cls
echo   Ese nombre no existe
echo 1-volver a intentar
echo 2-menu principal
set /p opt1=
if %opt1%==1 goto bn
if %opt1%==2 goto inicio
pause > nul
:ec
cls
echo Escriba Nombre a eliminar:
set /p br=
del %br%.txt
goto inicio
pause > nul
:ln
cls
echo lista de contacto:
dir /b *.txt>temp.tst
for /f "usebackq delims=." %%a in (temp.tst) do echo %%a
pause > nul
goto inicio
:ex
cls
echo Esto a sido una produccion (XD) 100% de J3FFR3Y A. C3D3Ñ0
pause > nul

@echo off
color f0
title Calculadora
:inicio
cls
echo ----------------------------Menu------------------------------
echo 1-sumar
echo 2-restar
echo 3-multiplicar
echo 4-dividir
echo.
echo 0-salir
echo.
echo Escoja una opcion:
echo.
set /p opt=
if %opt%==1 goto :suma
if %opt%==2 goto :resta
if %opt%==3 goto :multi
if %opt%==4 goto :divi
if %opt%==0 goto :salir
pause > nul
:suma
cls 
set /p mas1= Primer caracter:        
echo                              +
set /p mas2= Segundo carater:        
echo                          ___________
set /a suma=%mas1% + %mas2%
echo  Resultado:              %suma%       
pause > nul
goto :inicio
:resta
cls 
set /p men1= Primer caracter:        
echo                              -
set /p men2= Segundo carater:        
echo                          ___________
set /a menos=%men1% - %men2%
echo  Resultado:              %menos%       
pause > nul
goto :inicio
:multi
cls 
set /p mul1= Primer caracter:        
echo                              *
set /p mul2= Segundo carater:        
echo                          ___________
set /a multi=%mul1% * %mul2%
echo  Resultado:              %multi%       
pause > nul
goto :inicio
:divi
cls 
set /p div1= Primer caracter:        
echo                              /
set /p div2= Segundo carater:        
echo                          ___________
set /a divi=%div1% / %div2%
echo  Resultado:              %divi%       
pause > nul
goto :inicio
:salir
cls
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo                este a sido un programa creado por J3FFR3Y A. C3D3N0
echo.
pause > nul