Batch Menu with 15 second countdown timer

@echo off
setlocal
set InputResult=%Temp%\%~n0-Input.tmp
:: *** Title of the window with the input prompt; MUST BE UNIQUE!
set InputTitle=## Input ##
if /i "%~1"=="/input" goto LabelInputWindow
 
:: *** Enter custom code here ...
 
Echo Please enter your choice in the popup window "%InputTitle%".
call :Input 15 "0 0"
echo Your choice was: %Input%
 
:: *** Enter custom code here ...
 
 
:: ---- Begin creating input window and waiting for a result ----
:: *** %1: timeout, %2: default value to return
goto :eof
:Input
set InputTimeout=%~1
set InputDefault=%~2
if exist "%InputResult%" del "%InputResult%"
start "" "%ComSpec%" /c ""%~f0" /input %InputTimeout% "%InputDefault%""
set /a InputWait = 0
echo Waiting %InputTimeout% seconds for your input ...
:LabelInputLoop
  sleep 1
  set /a InputWait += 1
  if exist "%InputResult%" goto LabelInputContinue
  tasklist /fi "WINDOWTITLE eq %InputTitle%" 2>&1 | find "PID" >NUL || goto LabelInputDefault
if %InputWait% LSS %InputTimeout% goto LabelInputLoop
taskkill /fi "WINDOWTITLE eq %InputTitle%" >NUL 2>&1
:LabelInputDefault
>"%InputResult%" echo %InputDefault%
:LabelInputContinue
for /f "delims=" %%a in ('type "%InputResult%"') do set Input=%%a
del "%InputResult%"
goto :eof
:: ---- End creating input window and waiting for a result ----
 
:: ------------------------------------------------------------
:: ---- Begin code for input window
goto :eof
:LabelInputWindow
set InputHeight=10
set InputWidth=40
set InputColor=F0
title %InputTitle%
mode CON: COLS=%InputWidth% LINES=%InputHeight%
color %InputColor%
set InputTimeout=%~2
set InputDefault=%~3
echo Default choice is %InputDefault%
set /p Input=Please choose: 
if not "%Input%"=="" >"%InputResult%" echo %Input%
goto :eof
:: ---- End code for input window
                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:

@ECHO OFF
setLocal EnableDelayedExpansion
 
set /a seconds=15
 
:gotsecs
Set OriginalTime=%time%
set /a counter= %seconds%
if /i %counter% equ 0 goto finish
set checktime= %time:~7,1%
goto timecheck
 
 
:Timecheck
if /i %checktime% equ %time:~7,1% (goto timecheck)
Set /a counter= %counter% - 1
set /a checktime= %time:~7,1%
goto display
 
 
:display
Set /a secondsremaining= %counter%
 
CLS
Echo Seconds Remaining:  !secondsremaining!
if /i %counter% equ 0 (goto Office2003)
ECHO Install which version of Office Version:
ECHO 1] Office 2003 (DEFAULT)
ECHO 2] Office 2007
Choice /C:012 /N /T:0,1 Pick Version:
if %errorlevel% equ 1 (goto Timecheck)
if %errorlevel% equ 2 (goto Office2003)
if %errorlevel% equ 3 (goto Office2007)
 
:Office2003
ECHO Installing Office 2003
goto Finish
 
:Office2007
ECHO Installing Office 2007
goto Finish
 
:finish
Set Endtime=%time%
set /a waited=%Seconds%-%counter%
echo Time Waited: 0:0:%waited%
echo Start Time: %OriginalTime:~0,8%
Echo End Time: %Endtime:~0,8%
 
 
%wtd%
exit /b

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53: