::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
::README::                                                                                                              ::
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
::Welcome to Digital CLock 1.0!
::Simply run this file as a .bat filetype, and the rest is automatic.
::Displays time and date.
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
::LICENSING::                                                                                                           ::
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
::This code is free for use by any persons, however it is intended for non-commercial and private uses.                 ::
::This code is not distributed under any licenses, pretense of licenses, or intent of liscensing.                       ::
::It therefor is distributed without any guarantees or warranties, implied or otherwise.                                ::
::                                                                                                                      ::
::Concept, Design, and Programming by RCAProduction, 2015, EOF Coding. rcaproductionmaster@gmail.com                    ::
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::


@echo off
color 0b
chcp 850
title Clock
set top= 
set middle= 
set bottom= 
mode con: cols=35 lines=6
:start
CLS
set loop=6
set pm=false
echo %top%
echo %middle%
echo %bottom%
echo.
echo %date%
set top= 
set middle= 
set bottom= 
set ctime=%time:~0,2%%time:~3,2%%time:~6,2%
set str=%time:~0,2%%time:~3,2%%time:~6,2%
::rcaproductionmaster@gmail.com
set n=0

set hour=%time:~0,2%
set /a hour=%hour%
if %hour% LEQ 9 (goto am)
if %hour% LEQ 12000 (goto skip)
set /a hour=%hour%-12
set pm=true
:skip
goto charloop

:am
set loop=5

:charloop

set str=%hour%%time:~3,2%%time:~6,2%
set str=%str: =%
::rcaproductionmaster@gmail.com
call set str=%%str:~%n%,1%%
set /a n=%n%+1

set top=%top% 
set middle=%middle% 
set bottom=%bottom% 

set /a math=%loop%-3
if %n%==%math% (goto hy)
set /a math=%loop%-1
if %n%==%math% (goto hy)

:returnhy
if %str%==0 (goto char0)
if %str%==1 (goto char1)
if %str%==2 (goto char2)
if %str%==3 (goto char3)
if %str%==4 (goto char4)
if %str%==5 (goto char5)
if %str%==6 (goto char6)
if %str%==7 (goto char7)
if %str%==8 (goto char8)
if %str%==9 (goto char9)
:charreturn

if %n% LSS %loop% (goto charloop)

if %pm%==false (goto setam)
set top=%top%   PM
goto timeloop

:setam
set top=%top% 


:timeloop
::rcaproductionmaster@gmail.com
set checktime=%time:~0,2%%time:~3,2%%time:~6,2%
if %ctime%==%checktime% (goto timeloop)
goto start

:hy
set top=%top%  
set middle=%middle%* 
set bottom=%bottom%* 
goto returnhy

:char0
set top=%top%ÚÄ¿
set middle=%middle%³ ³
set bottom=%bottom%ÀÄÙ
goto charreturn

:char1
set top=%top%   
set middle=%middle%  ³
set bottom=%bottom%   
goto charreturn

:char2
set top=%top% Ä¿
set middle=%middle%ÚÄÙ
set bottom=%bottom%ÀÄ 
goto charreturn

:char3
set top=%top% Ä¿
set middle=%middle% ij
set bottom=%bottom% ÄÙ
goto charreturn

:char4
set top=%top%   
set middle=%middle%Àij
set bottom=%bottom%   
goto charreturn

:char5
set top=%top%ÚÄ 
set middle=%middle%ÀÄ¿
set bottom=%bottom% ÄÙ
goto charreturn

:char6
set top=%top%ÚÄ 
set middle=%middle%³Ä¿
set bottom=%bottom%ÀÄÙ
goto charreturn

:char7
set top=%top% Ä¿
set middle=%middle%  ³
set bottom=%bottom%   
goto charreturn

:char8
set top=%top%ÚÄ¿
set middle=%middle%³Ä³
set bottom=%bottom%ÀÄÙ
goto charreturn

:char9
set top=%top%ÚÄ¿
set middle=%middle%Àij
set bottom=%bottom%  Ù
goto charreturn