@echo off
REM Funcion de Numeros Primos
REM Coded by :: SmartGenius ::
setlocal enabledelayedexpansion
if ["%1"]==[""] goto :syntaxis
if ["%2"]==[""] goto :syntaxis
set num=%2
set /a c=%num:~0,1%*1
if not %c%==%num:~0,1% (echo Parametro Numerico Invalido &goto :syntaxis)
if ["%1"]==["/c"] call :cprimo %2
if ["%1"]==["/n"] call :nprimo %2
if ["%1"]==["/t"] call :tprimo %2
if ["%1"]==["/d"] call :dprimos %2
if ["%1"]==["/p"] call :pprimos %2
if ["%1"]==["/h"] call :syntaxis
if ["%1"]==["/?"] call :syntaxis
endlocal
goto :eof

::Numero Primo
:cprimo
set primo=True
set /a lim=%1-1
for /l %%a in (2,1,%lim%) do (
set /a p=%1%%%%%a
if !p!==0 set primo=False)
echo %primo%
goto :eof

::Primo mas Cercano de un Numero
:nprimo
set lim2=%1
for /l %%b in (1,1,%lim2%) do (
call :cprimo %%b >nul
if !primo!==True set near=%%b)
echo %near%
goto:eof

::N-esimo Termino de la Sucesion de Numeros Primos
:tprimo
set lim3=%1
set l=1
set cont=1
:tprimo2
call :cprimo %cont% >nul
if !primo!==True call :tprimo3 %cont%
if defined tprimo echo %tprimo% &goto :eof
set /a cont=%cont%+1
goto :tprimo2
:tprimo3
if %l%==%lim3% set tprimo=%1
set /a l=%l%+1
goto :eof

::Descomposicion de un Numero en Factores Primos
:dprimos
set lim4=%1
call :cprimo %lim4% >nul
if !primo!==True (echo 1*%lim4% &goto :eof)
for /l %%n in (2,1,%lim4%) do (
call :cprimo %%n >nul
if !primo!==True call :dprimos2 %lim4% %%n
)
echo %op:~1%
goto :eof
:dprimos2
set val=%1
:dprimos3
set var=%op%
set /a c=%var:~1%
if %c% GEQ %lim4% goto :eof
set /a mod=(%val%)%%(%2)
if %mod%==0 set op=%op%*%2& set /a val=(%val%)/(%2)&goto :dprimos3
goto :eof

::Simplificacion de Cadenas
:pprimos
set cadena=%1
call :string %cadena%
:func
for /l %%f in (1,1,%len%) do (call :func2 %%f)
for /l %%g in (1,1,%len%) do (call :func3 %%g)
set oper=%oper:l1=%
set oper=%oper:l=^^^^%
echo %oper:~1%
goto :eof
:func2
set lim5=%1
for /f "tokens=%lim5% delims=*" %%k in ("%cadena%") do (call :add %%k)
goto :eof
:func3
set lim6=%1
for /f "tokens=%lim6% delims=*" %%j in ("%cadena%") do (call :var %%j)
goto:eof

:var
set t1=%1
if not defined t%t1% call :var2 %t1%
goto:eof
:var2
call set var=!p%1!l!n%1!
set t%1=%1
set oper=%oper%*%var%
goto :eof

:add
set /a n%1+=1
set p%1=%1
goto:eof

:string
set texto=%1
set len=0
:string2
if not "%texto:~0,1%"=="" (set /a len=%len%+1)
set texto=%texto:~1%
if "%texto%"=="" goto :eof
goto :string2

:syntaxis
echo.      -------------------------------
echo      ^|  Funciones de Numeros Primos  ^|
echo      ^|  Coded by :: SmartGenius ::   ^|
echo       -------------------------------
echo Modo de Uso
echo.
echo %~n0 [Modificadores] Numero^|Operacion
echo Ej: %~n0 /c Variable Numerica
echo.
echo Modificadores:
echo  /c Comprueba si el Numero Introducido es Primo
echo     devolviendo un valor de True o False
echo  /n Imprime en Pantalla el Primo mas Cercano del
echo     Numero introducido.
echo  /t Imprime en Pantalla el N-esimo Termino de la
echo     Sucesion de Numeros Primos.
echo  /d Descompone un Numero en sus Factores Primos.
echo  /p Simplifica una Cadena de Operaciones
echo      Ej: 2*2*2*3*3*5 --^> 2^^3*3^^2*5
echo.
echo. /h^| /? Muestra esta ayuda.
goto :eof

@echo off
mode con cols=52 lines=20
title Date ^& Clock
color 0a
REM Digital Clock v2
REM Coded by :: SmartGenius ::
REM Original Design by MxPower

:RELOJ
CLS
call :RESET
call :TIEMPO
call :FECHA
echo.
echo  ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo  º±²²²²²²²²²±ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿±²²²²²²²²²±º
echo  º±²Smart²²²±³ %UNOHRD%  ³±²²²²²²²²²±º
echo  º±²²²²²²²²²±³ %DOSHRD%  ³±²²²²²²²²²±º
echo  º±²²²²²²²²²±³ %TREHRD%  ³±²²²²²²²²²±º
echo  º±²²²²²²²²²±³                       ³±²²²²²²²²²±º
echo  º±²²²²²²²²²±ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ±²²²²²²²²²±º
echo  º±²²²²²²²²²±±±±±±±±±±±±±±±±±±±±±±±±±±±²²²²²²²²²±º
echo  º±²²²²±ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿±²²²²±º
echo  º±²²²²±³  %NDAY:~0,3%, %DATE:~-10,2% de %MFP% de %ANO%  ³±²²²²±º
echo  º±²²²²±ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ±²²²²±º
echo  º±±±±±±²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²±±±±±±º
echo  ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo     ÀÄÄÄÄÄÙ                            ÀÄÄÄÄÄÙ
echo.
pause>nul
GOTO :RELOJ

:RESET
set UNOHRD=
set DOSHRD=
set TREHRD=
GOTO :EOF

:DIGIT-0
set "UNOHRD=%UNOHRD%  _ "
set "DOSHRD=%DOSHRD% ³ ³"
set "TREHRD=%TREHRD% ³_³"
goto :EOF

:DIGIT-1
set "UNOHRD=%UNOHRD%    "
set "DOSHRD=%DOSHRD%  ³ "
set "TREHRD=%TREHRD%  ³ "
goto :EOF

:DIGIT-2
set "UNOHRD=%UNOHRD%  _ "
set "DOSHRD=%DOSHRD%  _³"
set "TREHRD=%TREHRD% ³_ "
goto :EOF

:DIGIT-3
set "UNOHRD=%UNOHRD%  _ "
set "DOSHRD=%DOSHRD%  _³"
set "TREHRD=%TREHRD%  _³"
goto :EOF

:DIGIT-4
set "UNOHRD=%UNOHRD%    "
set "DOSHRD=%DOSHRD% ³_³"
set "TREHRD=%TREHRD%   ³"
GOTO :EOF

:DIGIT-5
set "UNOHRD=%UNOHRD%  _ "
set "DOSHRD=%DOSHRD% ³_ "
set "TREHRD=%TREHRD%  _³"
goto :EOF

:DIGIT-6
set "UNOHRD=%UNOHRD%  _ "
set "DOSHRD=%DOSHRD% ³_ "
set "TREHRD=%TREHRD% ³_³"
goto :EOF

:DIGIT-7
set "UNOHRD=%UNOHRD%  _ "
set "DOSHRD=%DOSHRD%   ³"
set "TREHRD=%TREHRD%   ³"
goto :EOF

:DIGIT-8
set "UNOHRD=%UNOHRD%  _ "
set "DOSHRD=%DOSHRD% ³_³"
set "TREHRD=%TREHRD% ³_³"
goto :EOF

:DIGIT-9
set "UNOHRD=%UNOHRD%  _ "
set "DOSHRD=%DOSHRD% ³_³"
set "TREHRD=%TREHRD%  _³"
goto :EOF

:DIGIT-:
set "UNOHRD=%UNOHRD%    "
set "DOSHRD=%DOSHRD%  . "
set "TREHRD=%TREHRD%  . "
goto :EOF

:DIGIT-SPACE
set "UNOHRD=%UNOHRD%    "
set "DOSHRD=%DOSHRD%    "
set "TREHRD=%TREHRD%    "
goto :EOF

:TIEMPO
set HOUR=%TIME:~0,5%
:TIEMPO2
SET VAR=%HOUR:~0,1%
IF "%VAR%"==" " (CALL :DIGIT-SPACE) ELSE (CALL :DIGIT-%VAR%)
SET HOUR=%HOUR:~1%
IF "%HOUR%"=="" GOTO :EOF
GOTO :TIEMPO2

:FECHA
set /a DIA=(%DATE:~-10,2%*10)/10
set /a MES=(%DATE:~-7,2%*10)/10
set ANO=%DATE:~-4%
call :meses %MES% MFP
REM call Calendar /wday %DIA% %MES% %ANO% NDAY
GOTO :EOF

:MESES
if %1==1 set %2=  Enero   
if %1==2 set %2= Febrero  
if %1==3 set %2=  Marzo   
if %1==4 set %2=  Abril   
if %1==5 set %2=  Mayo    
if %1==6 set %2=  Junio   
if %1==7 set %2=  Julio   
if %1==8 set %2=  Agosto  
if %1==9 set %2=Septiembre
if %1==10 set %2= Octubre  
if %1==11 set %2=Noviembre 
if %1==12 set %2=Diciembre 
GOTO :EOF