un pequeño reloj en batch

@echo off
title The [G]host clock
color a
mode con: cols=85 lines=11
:def
set varu=.
set vard=.
set vart=.
set varc=.
set varci=.
set vars=.
set varsi=.
set varo=.
set varn=.
set vardi=.
set hu=%time:~0,1%
set hu=%hu: =0%
set hd=%time:~1,1%
set mu=%time:~3,1%
set md=%time:~4,1%
set su=%time:~6,1%
set sd=%time:~7,1%
call:pone %hu%
call:pone %hd%
set "varu=%varu% "
set "vard=%vard% ÛÛÛ "
set "vart=%vart% ÛÛÛ "
set "varc=%varc% ÛÛÛ "
set "varci=%varci% "
set "vars=%vars% "
set "varsi=%varsi% ÛÛÛ "
set "varo=%varo% ÛÛÛ "
set "varn=%varn% ÛÛÛ "
set "vardi=%vardi% "
call:pone %mu%
call:pone %md%
set "varu=%varu% "
set "vard=%vard% ÛÛÛ "
set "vart=%vart% ÛÛÛ "
set "varc=%varc% ÛÛÛ "
set "varci=%varci% "
set "vars=%vars% "
set "varsi=%varsi% ÛÛÛ "
set "varo=%varo% ÛÛÛ "
set "varn=%varn% ÛÛÛ "
set "vardi=%vardi% "
call:pone %su%
call:pone %sd%
ping -n 1 localhost>nul
cls
echo %varu:~1%
echo %vard:~1%
echo %vart:~1%
echo %varc:~1%
echo %varci:~1%
echo %vars:~1%
echo %varsi:~1%
echo %varo:~1%
echo %varn:~1%
echo %vardi:~1%
goto:def

:pone
set n=%1
if %n%==0 (
set "varu=%varu% ÛÛÛÛÛÛÛÛÛ "
set "vard=%vard% ÛÛÛÛÛÛÛÛÛ "
set "vart=%vart% ÛÛÛ ÛÛÛ "
set "varc=%varc% ÛÛÛ ÛÛÛ "
set "varci=%varci% ÛÛÛ ÛÛÛ "
set "vars=%vars% ÛÛÛ ÛÛÛ "
set "varsi=%varsi% ÛÛÛ ÛÛÛ "
set "varo=%varo% ÛÛÛ ÛÛÛ "
set "varn=%varn% ÛÛÛÛÛÛÛÛÛ "
set "vardi=%vardi% ÛÛÛÛÛÛÛÛÛ "
)

if %n%==1 (
set "varu=%varu% ÛÛÛ "
set "vard=%vard% ÛÛÛ "
set "vart=%vart% ÛÛÛ "
set "varc=%varc% ÛÛÛ "
set "varci=%varci% ÛÛÛ "
set "vars=%vars% ÛÛÛ "
set "varsi=%varsi% ÛÛÛ "
set "varo=%varo% ÛÛÛ "
set "varn=%varn% ÛÛÛ "
set "vardi=%vardi% ÛÛÛ "
)

if %n%==2 (
set "varu=%varu% ÛÛÛÛÛÛÛÛÛ "
set "vard=%vard% ÛÛÛÛÛÛÛÛÛ "
set "vart=%vart% ÛÛÛ "
set "varc=%varc% ÛÛÛ "
set "varci=%varci% ÛÛÛÛÛÛÛÛÛ "
set "vars=%vars% ÛÛÛÛÛÛÛÛÛ "
set "varsi=%varsi% ÛÛÛ "
set "varo=%varo% ÛÛÛ "
set "varn=%varn% ÛÛÛÛÛÛÛÛÛ "
set "vardi=%vardi% ÛÛÛÛÛÛÛÛÛ "
)

if %n%==3 (
set "varu=%varu% ÛÛÛÛÛÛÛÛÛ "
set "vard=%vard% ÛÛÛÛÛÛÛÛÛ "
set "vart=%vart% ÛÛÛ "
set "varc=%varc% ÛÛÛ "
set "varci=%varci% ÛÛÛÛÛÛÛÛÛ "
set "vars=%vars% ÛÛÛÛÛÛÛÛÛ "
set "varsi=%varsi% ÛÛÛ "
set "varo=%varo% ÛÛÛ "
set "varn=%varn% ÛÛÛÛÛÛÛÛÛ "
set "vardi=%vardi% ÛÛÛÛÛÛÛÛÛ "
)

if %n%==4 (
set "varu=%varu% ÛÛÛ ÛÛÛ "
set "vard=%vard% ÛÛÛ ÛÛÛ "
set "vart=%vart% ÛÛÛ ÛÛÛ "
set "varc=%varc% ÛÛÛ ÛÛÛ "
set "varci=%varci% ÛÛÛÛÛÛÛÛÛ "
set "vars=%vars% ÛÛÛÛÛÛÛÛÛ "
set "varsi=%varsi% ÛÛÛ "
set "varo=%varo% ÛÛÛ "
set "varn=%varn% ÛÛÛ "
set "vardi=%vardi% ÛÛÛ "
)

if %n%==5 (
set "varu=%varu% ÛÛÛÛÛÛÛÛÛ "
set "vard=%vard% ÛÛÛÛÛÛÛÛÛ "
set "vart=%vart% ÛÛÛ "
set "varc=%varc% ÛÛÛ "
set "varci=%varci% ÛÛÛÛÛÛÛÛÛ "
set "vars=%vars% ÛÛÛÛÛÛÛÛÛ "
set "varsi=%varsi% ÛÛÛ "
set "varo=%varo% ÛÛÛ "
set "varn=%varn% ÛÛÛÛÛÛÛÛÛ "
set "vardi=%vardi% ÛÛÛÛÛÛÛÛÛ "
)

if %n%==6 (
set "varu=%varu% ÛÛÛÛÛÛÛÛÛ "
set "vard=%vard% ÛÛÛÛÛÛÛÛÛ "
set "vart=%vart% ÛÛÛ "
set "varc=%varc% ÛÛÛ "
set "varci=%varci% ÛÛÛÛÛÛÛÛÛ "
set "vars=%vars% ÛÛÛÛÛÛÛÛÛ "
set "varsi=%varsi% ÛÛÛ ÛÛÛ "
set "varo=%varo% ÛÛÛ ÛÛÛ "
set "varn=%varn% ÛÛÛÛÛÛÛÛÛ "
set "vardi=%vardi% ÛÛÛÛÛÛÛÛÛ "
)

if %n%==7 (
set "varu=%varu% ÛÛÛÛÛÛÛÛÛ "
set "vard=%vard% ÛÛÛÛÛÛÛÛÛ "
set "vart=%vart% ÛÛÛ ÛÛÛ "
set "varc=%varc% ÛÛÛ ÛÛÛ "
set "varci=%varci% ÛÛÛ "
set "vars=%vars% ÛÛÛ "
set "varsi=%varsi% ÛÛÛ "
set "varo=%varo% ÛÛÛ "
set "varn=%varn% ÛÛÛ "
set "vardi=%vardi% ÛÛÛ "
)

if %n%==8 (
set "varu=%varu% ÛÛÛÛÛÛÛÛÛ "
set "vard=%vard% ÛÛÛÛÛÛÛÛÛ "
set "vart=%vart% ÛÛÛ ÛÛÛ "
set "varc=%varc% ÛÛÛ ÛÛÛ "
set "varci=%varci% ÛÛÛÛÛÛÛÛÛ "
set "vars=%vars% ÛÛÛÛÛÛÛÛÛ "
set "varsi=%varsi% ÛÛÛ ÛÛÛ "
set "varo=%varo% ÛÛÛ ÛÛÛ "
set "varn=%varn% ÛÛÛÛÛÛÛÛÛ "
set "vardi=%vardi% ÛÛÛÛÛÛÛÛÛ "
)

if %n%==9 (
set "varu=%varu% ÛÛÛÛÛÛÛÛÛ "
set "vard=%vard% ÛÛÛÛÛÛÛÛÛ "
set "vart=%vart% ÛÛÛ ÛÛÛ "
set "varc=%varc% ÛÛÛ ÛÛÛ "
set "varci=%varci% ÛÛÛÛÛÛÛÛÛ "
set "vars=%vars% ÛÛÛÛÛÛÛÛÛ "
set "varsi=%varsi% ÛÛÛ "
set "varo=%varo% ÛÛÛ "
set "varn=%varn% ÛÛÛÛÛÛÛÛÛ "
set "vardi=%vardi% ÛÛÛÛÛÛÛÛÛ "
)
goto:eof