Continuous host reachability check (Batch on Windows using Ping)

checkhost.bat

@echo off
set url=%1
mode con cols=70 lines=1
color 37
::color 17
:check
IF %url%. EQU . (
  set /P url=Host: 
  goto check
)
:loop
ping %url% -n 1 2>&1 > nul
set EL=%ERRORLEVEL%
cls
IF %EL% EQU 0 <nul set /p =[SUCCESS] Host (%url%) reachable
IF %EL% EQU 1 <nul set /p =[ERROR  ] Host (%url%) unreachable
timeout 1 2>&1 > nul
goto loop