(((Reloj.bat)))

@echo off
::Version modificada por pº
mode con cols=49
mode con lines=16
color 0a
goto HORA1

REM ---------------------------------------------------------------------------

ORA1
cls
call:getTime
title %hour%:%minute%
if %hour% lss 10 (set H1=0) else (set H1=%hour:~0,1%)
if %H1%==0 (goto UHOR-0)
if %H1%==1 (goto UHOR-1)
if %H1%==2 (goto UHOR-2)

:UHOR-0
set "UNOHRU= _ "
set "DOSHRU=³ ³"
set "TREHRU=³_³"
goto HORA2

:UHOR-1
set "UNOHRU= "
set "DOSHRU= ³ "
set "TREHRU= ³ "
goto HORA2

:UHOR-2
set "UNOHRU= _ "
set "DOSHRU= _³"
set "TREHRU=³_ "
goto HORA2

REM ---------------------------------------------------------------------------

ORA2
call:getTime
if %hour% lss 10 (set H2=%hour%) else (set H2=%hour:~1,1%)
if %H2%==0 (goto DHOR-0)
if %H2%==1 (goto DHOR-1)
if %H2%==2 (goto DHOR-2)
if %H2%==3 (goto DHOR-3)
if %H2%==4 (goto DHOR-4)
if %H2%==5 (goto DHOR-5)
if %H2%==6 (goto DHOR-6)
if %H2%==7 (goto DHOR-7)
if %H2%==8 (goto DHOR-
if %H2%==9 (goto DHOR-9)

HOR-0
set "UNOHRD= _ "
set "DOSHRD=³ ³"
set "TREHRD=³_³"
goto MINU1

HOR-1
set "UNOHRD= "
set "DOSHRD= ³ "
set "TREHRD= ³ "
goto MINU1

HOR-2
set "UNOHRD= _ "
set "DOSHRD= _³"
set "TREHRD=³_ "
goto MINU1

HOR-3
set "UNOHRD= _ "
set "DOSHRD= _³"
set "TREHRD= _³"
goto MINU1

HOR-4
set "UNOHRD= "
set "DOSHRD=³_³"
set "TREHRD= ³"
goto MINU1

HOR-5
set "UNOHRD= _ "
set "DOSHRD=³_ "
set "TREHRD= _³"
goto MINU1

HOR-6
set "UNOHRD= _ "
set "DOSHRD=³_ "
set "TREHRD=³_³"
goto MINU1

HOR-7
set "UNOHRD= _ "
set "DOSHRD= ³"
set "TREHRD= ³"
goto MINU1

HOR-8
set "UNOHRD= _ "
set "DOSHRD=³_³"
set "TREHRD=³_³"
goto MINU1

HOR-9
set "UNOHRD= _ "
set "DOSHRD=³_³"
set "TREHRD= _³"
goto MINU1

REM ---------------------------------------------------------------------------

:MINU1
call:getTime
if %minute% lss 10 (set M1=0) else (set M1=%minute:~0,1%)
if %M1%==0 (goto UMIN-0)
if %M1%==1 (goto UMIN-1)
if %M1%==2 (goto UMIN-2)
if %M1%==3 (goto UMIN-3)
if %M1%==4 (goto UMIN-4)
if %M1%==5 (goto UMIN-5)

:UMIN-0
set "UNOMIU= _ "
set "DOSMIU=³ ³"
set "TREMIU=³_³"
goto MINU2

:UMIN-1
set "UNOMIU= "
set "DOSMIU= ³ "
set "TREMIU= ³ "
goto MINU2

:UMIN-2
set "UNOMIU= _ "
set "DOSMIU= _³"
set "TREMIU=³_ "
goto MINU2

:UMIN-3
set "UNOMIU= _ "
set "DOSMIU= _³"
set "TREMIU= _³"
goto MINU2

:UMIN-4
set "UNOMIU= "
set "DOSMIU=³_³"
set "TREMIU= ³"
goto MINU2

:UMIN-5
set "UNOMIU= _ "
set "DOSMIU=³_ "
set "TREMIU= _³"
goto MINU2

REM ---------------------------------------------------------------------------

:MINU2
call:getTime
if %minute% lss 10 (set M2=%minute%) else (set M2=%minute:~1,1%)
if %M2%==0 (goto DMIN-0)
if %M2%==1 (goto DMIN-1)
if %M2%==2 (goto DMIN-2)
if %M2%==3 (goto DMIN-3)
if %M2%==4 (goto DMIN-4)
if %M2%==5 (goto DMIN-5)
if %M2%==6 (goto DMIN-6)
if %M2%==7 (goto DMIN-7)
if %M2%==8 (goto DMIN-
if %M2%==9 (goto DMIN-9)

MIN-0
set "UNOMID= _ "
set "DOSMID=³ ³"
set "TREMID=³_³"
goto FECHA

MIN-1
set "UNOMID= "
set "DOSMID= ³ "
set "TREMID= ³ "
goto FECHA

MIN-2
set "UNOMID= _ "
set "DOSMID= _³"
set "TREMID=³_ "
goto FECHA

MIN-3
set "UNOMID= _ "
set "DOSMID= _³"
set "TREMID= _³"
goto FECHA

MIN-4
set "UNOMID= "
set "DOSMID=³_³"
set "TREMID= ³"
goto FECHA

MIN-5
set "UNOMID= _ "
set "DOSMID=³_ "
set "TREMID= _³"
goto FECHA

MIN-6
set "UNOMID= _ "
set "DOSMID=³_ "
set "TREMID=³_³"
goto FECHA

MIN-7
set "UNOMID= _ "
set "DOSMID= ³"
set "TREMID= ³"
goto FECHA

MIN-8
set "UNOMID= _ "
set "DOSMID=³_³"
set "TREMID=³_³"
goto FECHA

MIN-9
set "UNOMID= _ "
set "DOSMID=³_³"
set "TREMID= _³"
goto FECHA

REM ---------------------------------------------------------------------------

:FECHA
call:getDate
if %day% lss 10 (set DIA=0%day%) else (set DIA=%day%)
set MES=%month%
set ANO=%year%
goto DEFMES

EFMES
if %MES%==1 (set "MFP= Enero ")
if %MES%==2 (set "MFP= Febrero ")
if %MES%==3 (set "MFP= Marzo ")
if %MES%==4 (set "MFP= Abril ")
if %MES%==5 (set "MFP= Mayo ")
if %MES%==6 (set "MFP= Junio ")
if %MES%==7 (set "MFP= Julio ")
if %MES%==8 (set "MFP= Agosto ")
if %MES%==9 (set "MFP=Septiembre")
if %MES%==10 (set "MFP= Octubre ")
if %MES%==11 (set "MFP=Noviembre ")
if %MES%==12 (set "MFP=Diciembre ")


:RELOJ
echo.
echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo º²²²²²²²²²²±ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿±²²²²²²²²²²±º
echo º²MxPower²²±³ %UNOHRU% %UNOHRD% %UNOMIU% %UNOMID% ³±²²²²²²²²²²±º
echo º²²²²²²²²²²±³ %DOSHRU% %DOSHRD% . %DOSMIU% %DOSMID% ³±²²²²²²²²²²±º
echo º²²²²²²²²²²±³ %TREHRU% %TREHRD% . %TREMIU% %TREMID% ³±²²²²²²²²²²±º
echo º²²²²²²²²²²±³ ³±²²²²²²²²²²±º
echo º²²²²²²²²²²±ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ±²²²²²²²²²²±º
echo º²²²²²²²²²²±±±±±±±±±±±±±±±±±±±±±±±±²²²²²²²²²²±º
echo º²²²²²²²²°ÚÄÄ¿±°ÚÄÄÄÄÄÄÄÄÄÄ¿±°ÚÄÄÄÄ¿±²²²²²²²²±º
echo º²²²²²²²²°³%DIA%³±°³%MFP%³±°³%ANO%³±²²²²²²²²±º
echo º²²²²²²²²°ÀÄÄÙ±°ÀÄÄÄÄÄÄÄÄÄÄÙ±°ÀÄÄÄÄÙ±²²²²²²²²±º
echo º±±±±±±±²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²±±±±±±±±º
echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo ÀÄÄÄÄÄÙ ÀÄÄÄÄÄÙ
for /f "delims=:,-/ tokens=1-2,5-7" %%a in ("%time%-%date%") do set th1=%%a%%b%%c%%d%%e
:upd
for /f "delims=:,-/ tokens=1-2,5-7" %%a in ("%time%-%date%") do set th2=%%a%%b%%c%%d%%e
if not %th1%==%th2% (goto HORA1) else (goto upd)

::getDate-- crea 3 variables conteniendo el dia, el mes y el año : %%day%% %%month%% %%year%%
::Version: 1.1
:author: Carlos
:getDate
if [%1]==[] (for /f "tokens=1-3 delims=-/" %%a in ("%date%") do (call :getDate %%a %%b %%c))
if not [%1]==[] (
set /a day=1%1-100
set /a month=1%2-100
set /a year=%3
)
goto:eof

::getTime-- crea 3 variables conteniendo la hora, el minuto y el segundo : %%hour%% %%minute%% %%second%%
::Version: 1.0
:author: Carlos
:getTime
if [%1]==[] (for /f "tokens=1-3 delims=:," %%a in ("%time%") do (call :getTime %%a %%b %%c))
if not [%1]==[] (
set /a hour=%1
set /a minute=1%2-100
set /a second=1%3-100
)
goto:eof


Autor: Carlos

[SIGPIC][/SIGPIC]