:: display a bar the width of the console window
:: %BAR% [DisplayMessage]

(SET \n=^^^
%= This defines an escaped Line Feed - DO NOT ALTER =%
)

SET BAR=FOR %%# IN (1 2)DO IF %%#==2 (%\n%
FOR /L %%# IN (1,1,8)DO SET b=!b!!b!~~%\n%
SET b=!b!!##! %\n%
FOR /F tokens^^^=2 %%# IN ('MODE CON ^^^| FIND "Columns"')DO ^<NUL SET/P=!b:~-%%#!%\n%
ENDLOCAL%\n%
)ELSE SETLOCAL EnableDelayedExpansion^&SET ##=

::by CirothUngol