@echo off

TITLE THE COLOR

COLOR 0f

mode con lines=10 cols=70

goto run

 \n = new alenia

:run

echo.

echo.

echo.

echo ( COLOR 0f ) ( mode con lines=10 cols=70 )

echo.

Call :Color a "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" \n

Call :Color a "X"

Call :Color b " CALL COLOR B ABCDEFGHIJKLMNOPQRSTUVWXYZ 1234567890   "

Call :Color a "X" \n

Call :Color a "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" \n

echo.

Call :Color a " AAA "

Call :Color b " BBB "

Call :Color c " CCC "

Call :Color d " DDD "

Call :Color e " EEE "

Call :Color f " FFF " \n

Call :Color 0 " BG0=black "

Call :Color 1 " BG1 "

Call :Color 2 " BG2 "

Call :Color 3 " BG3 "

Call :Color 4 " BG4 "

Call :Color 5 " BG5 "

Call :Color 6 " BG6 "

Call :Color 7 " BG7 "

Call :Color 8 " BG8 "

Call :Color 9 " BG9 "

echo.

pause >nul

goto run

Exit /B

:Color

:: v20 deprecated.

:: Arguments: hexColor text [\n]

:: Supported in windows XP, 7, 8.

:: In XP extended ascii characters are printed as dots.

:: For print quotes, use empty text.

SetLocal EnableExtensions EnableDelayedExpansion

Set "Text=%~2"

If Not Defined Text (Set Text=^")

Subst `: "!Temp!" >Nul &`: &Cd \

If Not Exist `.7 (

Echo(|(Pause >Nul &Findstr "^" >`)

Set /P "=." >>` <Nul

For /F "delims=;" %%# In (

'"Prompt $H;&For %%_ In (_) Do Rem"') Do (

Set /P "=%%#%%#%%#" <Nul >`.3

Set /P "=%%#%%#%%#%%#%%#" <Nul >`.5

Set /P "=%%#%%#%%#%%#%%#%%#%%#" <Nul >`.7))

Set /P "LF=" <` &Set "LF=!LF:~0,1!"

For %%# in ("!LF!") Do For %%_ In (

\ / :) Do Set "Text=!Text:%%_=%%~#%%_%%~#!"

For /F delims^=^ eol^= %%# in ("!Text!") Do (

If #==#! SetLocal DisableDelayedExpansion

If \==%%# (Findstr /A:%~1 . \` Nul

Type `.3) Else If /==%%# (Findstr /A:%~1 . /.\` Nul

Type `.5) Else (Echo %%#\..\`>`.dat

Findstr /F:`.dat /A:%~1 .

Type `.7))

If "\n"=="%~3" (Echo()

Goto :Eof