Actividad 10: Programación en batch de Windows

//Codigo fuente para un programa por lotes batch de Windows

@echo off


type .\autobots.txt


pause

title Menu
:Menu
cls
prompt $d $t $n $$


echo +====================================+
echo ¦ Bienvenido al Menu de Rafael Reyes =)       ¦
echo +====================================+


pause

echo +===================================================+
echo ¦ 1 - Cambiar titulo de la ventana ¦
echo ¦ 2 - Ver la hora ¦
echo ¦ 3 - Ver la version del sistema ¦
echo ¦ 4 - Abrir el editor del shell ¦
echo ¦ 5 - Abrir Bloc de Notas ¦
echo ¦ 6 - Cerrar Bloc de Notas ¦
echo ¦ 7 - Lista de tareas activas ¦
echo ¦ 8 - Programar ejecucion ipconfig a las 22:00 ¦
echo ¦ 9 - Cambiar color de fondo en nueva ventana ¦
echo ¦ 10 - Declarar variable de ambiente ¦
echo ¦ 11 - Borrar archivo o directorio ¦
echo ¦ 12 - Cerrar esta ventana ¦
echo ¦ 13 - Apagar equipo ¦
echo +===================================================+
echo Que desea hacer?
set /p opc=

If %opc% ==1 goto titulo
If %opc% ==2 goto hora
If %opc% ==3 goto version
If %opc% ==4 goto editor
If %opc% ==5 goto abrirbloc
If %opc% ==6 goto cerrarbloc
If %opc% ==7 goto tareas
If %opc% ==8 goto prog
If %opc% ==9 goto color
If %opc% ==10 goto variable
If %opc% ==11 goto del
If %opc% ==12 goto cerrar
If %opc% ==13 goto apagar
FOr %opc% gtr 13 echo ERROR
For %opc% lss 1 echo ERROR
:titulo
echo Cual sera el nuevo titulo?
set /p TITLE=
title %TITLE%
GOTO Menu
:hora
date
GOTO Menu
:version
ver
PAUSE
GOTO Menu
:editor
start edit
GOTO Menu
:abrirbloc
start notepad.exe
GOTO Menu
:cerrarbloc
taskkill /IM notepad.exe
echo Paint closed
PAUSE
GOTO Menu
:tareas
tasklist
pause
GOTO Menu
:prog
at 22:00 "ipconfig"
GOTO Menu
:color
echo Introduzca un numero del uno al diez para cambiar color:
set /p col=
If %col% ==1 color 1
If %col% ==2 color 2
If %col% ==3 color 3
If %col% ==4 color 4
If %col% ==5 color 5
If %col% ==6 color 6
If %col% ==7 color 7
If %col% ==8 color 8
If %col% ==9 color 9
If %col% ==10 color 10
If not %col% LEQ 10 echo NO valido
GOTO Menu
:variable
echo Cual es la variable?
set p/ var=
set %var%
GOTO Menu
:del
echo Cual es el archivo que deseas borrar?
set p/ archivo=
If exist %del% del %del%
If Not exist %del% echo No existe el archivo o directorio
:cerrar
taskkill /IM cmd.exe
GOTO Menu
:apagar
shutdown /s
GOTO Menu