Big_text function

:: ------------------------------------------------------------------------------------------------------------------------------------------------------------------------
:: displays text in 8x12 font
::
:: call :build_alphabet
:: call :bigtext "TEXT" /c:56
::
:: ------------------------------------------------------------------------------------------------------------------------------------------------------------------------
:bigText
    setlocal
        if "%~2" neq "" for /f "tokens=1,2 delims=:" %%0 in ("%~2") do if "%%~0" equ "/c" (
            set "CBT=true" & set "c=%%~1"
        )
        set char=0
        set "text=%~1"
        :again
            for /l %%a in (1,1,12) do call set "string[%%a]=!string[%%a]! %%_!text:~%char%,1![%%a]%%"
            set /a char+=1
        if not "!text:~%char%,1!" equ "" goto :again

        if "%CBT%" neq "true" (
            for /l %%a in (1,1,12) do echo=!string[%%a]!
        ) else (
            for /l %%a in (1,1,12) do (> colorPrint.txt (echo=!string[%%a]!\..\') && findstr /a:%c% /f:colorPrint.txt ".") & echo.
        )
    endlocal
goto :eof

:build_Alphabet
    for /F "tokens=1,2 delims=#" %%a in ('"prompt #$H#$E & echo on & for %%b in (1) do rem"') do set "DEL=%%a"
    <nul set /p ".=%DEL%%DEL%%DEL%%DEL%%DEL%%DEL%" > "'"
    for %%a in ("        " "   ÛÛ   " " ÛÛÛÛÛÛ " "ÛÛÛ  ÛÛÛ" "ÛÛÛ  ÛÛÛ" "ÛÛÛ  ÛÛÛ" "ÛÛÛÛÛÛÛÛ" "ÛÛÛ  ÛÛÛ" "ÛÛÛ  ÛÛÛ" "ÛÛÛ  ÛÛÛ" "        " "        ") do set /a "a+=1" & set "_A[!a!]=%%~a"
    for %%a in ("        " "ÛÛÛÛÛÛ  " " ÛÛ  ÛÛ " " ÛÛ  ÛÛ " " ÛÛ  ÛÛ " " ÛÛÛÛÛ  " " ÛÛ  ÛÛ " " ÛÛ  ÛÛ " " ÛÛ  ÛÛ " "ÛÛÛÛÛÛ  " "        " "        ") do set /a "b+=1" & set "_B[!b!]=%%~a"
    for %%a in ("        " "   ÛÛÛÛ " "  ÛÛ  ÛÛ" " ÛÛ   ÛÛ" " ÛÛ     " " ÛÛ     " " ÛÛ     " " ÛÛ   ÛÛ" "  ÛÛ  ÛÛ" "   ÛÛÛÛ " "        " "        ") do set /a "c+=1" & set "_C[!c!]=%%~a"
    for %%a in ("        " " ÛÛÛÛÛ  " " ÛÛ ÛÛ  " " ÛÛ  ÛÛ " " ÛÛ  ÛÛ " " ÛÛ  ÛÛ " " ÛÛ  ÛÛ " " ÛÛ  ÛÛ " " ÛÛ ÛÛ  " " ÛÛÛÛÛ  " "        " "        ") do set /a "d+=1" & set "_D[!d!]=%%~a"
    for %%a in ("        " "ÛÛÛÛÛÛÛ " " ÛÛ   Û " " ÛÛ     " " ÛÛ  Û  " " ÛÛÛÛÛ  " " ÛÛ  Û  " " ÛÛ     " " ÛÛ   Û " "ÛÛÛÛÛÛÛ " "        " "        ") do set /a "e+=1" & set "_E[!e!]=%%~a"
    for %%a in ("        " "ÛÛÛÛÛÛÛ " " ÛÛ  ÛÛ " " ÛÛ   Û " " ÛÛ  Û  " " ÛÛÛÛÛ  " " ÛÛ  Û  " " ÛÛ     " " ÛÛ     " "ÛÛÛÛ    " "        " "        ") do set /a "f+=1" & set "_F[!f!]=%%~a"
    for %%a in ("        " "   ÛÛÛÛ " "  ÛÛ  ÛÛ" " ÛÛ   ÛÛ" " ÛÛ     " " ÛÛ     " " ÛÛ  ÛÛÛ" " ÛÛ   ÛÛ" " ÛÛ   ÛÛ" "  ÛÛÛÛÛ " "        " "        ") do set /a "g+=1" & set "_G[!g!]=%%~a"
    for %%a in ("        " " ÛÛ  ÛÛ " " ÛÛ  ÛÛ " " ÛÛ  ÛÛ " " ÛÛ  ÛÛ " " ÛÛÛÛÛÛ " " ÛÛ  ÛÛ " " ÛÛ  ÛÛ " " ÛÛ  ÛÛ " " ÛÛ  ÛÛ " "        " "        ") do set /a "h+=1" & set "_H[!h!]=%%~a"
    for %%a in ("        " " ÛÛÛÛÛÛ " "   ÛÛ   " "   ÛÛ   " "   ÛÛ   " "   ÛÛ   " "   ÛÛ   " "   ÛÛ   " "   ÛÛ   " " ÛÛÛÛÛÛ " "        " "        ") do set /a "i+=1" & set "_I[!i!]=%%~a"
    for %%a in ("        " "    ÛÛÛÛ" "     ÛÛ " "     ÛÛ " "     ÛÛ " "     ÛÛ " " ÛÛ  ÛÛ " " ÛÛ  ÛÛ " " ÛÛ  ÛÛ " "  ÛÛÛÛ  " "        " "        ") do set /a "j+=1" & set "_J[!j!]=%%~a"
    for %%a in ("        " " ÛÛÛ  ÛÛ" "  ÛÛ  ÛÛ" "  ÛÛ ÛÛ " "  ÛÛ ÛÛ " "  ÛÛÛÛ  " "  ÛÛ ÛÛ " "  ÛÛ ÛÛ " "  ÛÛ  ÛÛ" " ÛÛÛ  ÛÛ" "        " "        ") do set /a "k+=1" & set "_K[!k!]=%%~a"
    for %%a in ("        " "ÛÛÛÛ    " " ÛÛ     " " ÛÛ     " " ÛÛ     " " ÛÛ     " " ÛÛ     " " ÛÛ   Û " " ÛÛ  ÛÛ " "ÛÛÛÛÛÛÛ " "        " "        ") do set /a "l+=1" & set "_L[!l!]=%%~a"
    for %%a in ("        " "ÛÛ   ÛÛ " "ÛÛÛ ÛÛÛ " "ÛÛÛÛÛÛÛ " "ÛÛÛÛÛÛÛ " "ÛÛ Û ÛÛ " "ÛÛ   ÛÛ " "ÛÛ   ÛÛ " "ÛÛ   ÛÛ " "ÛÛ   ÛÛ " "        " "        ") do set /a "m+=1" & set "_M[!m!]=%%~a"
    for %%a in ("        " "ÛÛ    ÛÛ" "ÛÛÛ   ÛÛ" "ÛÛÛ   ÛÛ" "ÛÛÛÛ  ÛÛ" "ÛÛ ÛÛ ÛÛ" "ÛÛ  ÛÛÛÛ" "ÛÛ   ÛÛÛ" "ÛÛ   ÛÛÛ" "ÛÛ    ÛÛ" "        " "        ") do set /a "n+=1" & set "_N[!n!]=%%~a"
    for %%a in ("        " "  ÛÛÛ   " "ÛÛÛ ÛÛÛ " "ÛÛ   ÛÛ " "ÛÛ   ÛÛ " "ÛÛ   ÛÛ " "ÛÛ   ÛÛ " "ÛÛ   ÛÛ " "ÛÛÛ ÛÛÛ " "  ÛÛÛ   " "        " "        ") do set /a "o+=1" & set "_O[!o!]=%%~a"
    for %%a in ("        " "ÛÛÛÛÛÛÛ " " ÛÛ   ÛÛ" " ÛÛ   ÛÛ" " ÛÛ   ÛÛ" " ÛÛÛÛÛÛ " " ÛÛ     " " ÛÛ     " " ÛÛ     " "ÛÛÛÛ    " "        " "        ") do set /a "p+=1" & set "_P[!p!]=%%~a"
    for %%a in ("        " " ÛÛÛÛÛÛ " "ÛÛ    ÛÛ" "ÛÛ    ÛÛ" "ÛÛ    ÛÛ" "ÛÛ    ÛÛ" "ÛÛ    ÛÛ" "ÛÛ    ÛÛ" "ÛÛ ÛÛ ÛÛ" " ÛÛÛÛÛÛ " "     ÛÛ " "        ") do set /a "q+=1" & set "_Q[!q!]=%%~a"
    for %%a in ("        " "ÛÛÛÛÛÛÛ " " ÛÛ   ÛÛ" " ÛÛ   ÛÛ" " ÛÛ   ÛÛ" " ÛÛÛÛÛÛ " " ÛÛ ÛÛ  " " ÛÛ  ÛÛ " " ÛÛ  ÛÛ " "ÛÛÛÛ ÛÛÛ" "        " "        ") do set /a "r+=1" & set "_R[!r!]=%%~a"
    for %%a in ("        " " ÛÛÛÛÛ  " "ÛÛ   ÛÛ " "ÛÛ   ÛÛ " " ÛÛ     " "  ÛÛÛ   " "    ÛÛ  " "ÛÛ   ÛÛ " "ÛÛ   ÛÛ " " ÛÛÛÛÛ  " "        " "        ") do set /a "s+=1" & set "_S[!s!]=%%~a"
    for %%a in ("        " "ÛÛÛÛÛÛÛÛ" "Û  ÛÛ  Û" "   ÛÛ   " "   ÛÛ   " "   ÛÛ   " "   ÛÛ   " "   ÛÛ   " "   ÛÛ   " "  ÛÛÛÛ  " "        " "        ") do set /a "t+=1" & set "_T[!t!]=%%~a"
    for %%a in ("        " " ÛÛ  ÛÛ " " ÛÛ  ÛÛ " " ÛÛ  ÛÛ " " ÛÛ  ÛÛ " " ÛÛ  ÛÛ " " ÛÛ  ÛÛ " " ÛÛ  ÛÛ " " ÛÛ  ÛÛ " "  ÛÛÛÛ  " "        " "        ") do set /a "u+=1" & set "_U[!u!]=%%~a"
    for %%a in ("        " "ÛÛ   ÛÛ " "ÛÛ   ÛÛ " "ÛÛ   ÛÛ " "ÛÛ   ÛÛ " "ÛÛ   ÛÛ " "ÛÛ   ÛÛ " "ÛÛ   ÛÛ " " ÛÛ ÛÛ  " "  ÛÛ    " "        " "        ") do set /a "v+=1" & set "_V[!v!]=%%~a"
    for %%a in ("        " "ÛÛ   ÛÛ " "ÛÛ   ÛÛ " "ÛÛ   ÛÛ " "ÛÛ   ÛÛ " "ÛÛ   ÛÛ " "ÛÛ   ÛÛ " "ÛÛ Û ÛÛ " "ÛÛ Û ÛÛ " " ÛÛ ÛÛ  " "        " "        ") do set /a "w+=1" & set "_W[!w!]=%%~a"
    for %%a in ("        " "ÛÛ   ÛÛ " "ÛÛ   ÛÛ " "ÛÛ   ÛÛ " " ÛÛÛÛÛ  " "  ÛÛÛ   " " ÛÛÛÛÛ  " "ÛÛ   ÛÛ " "ÛÛ   ÛÛ " "ÛÛ   ÛÛ " "        " "        ") do set /a "x+=1" & set "_X[!x!]=%%~a"
    for %%a in ("        " "ÛÛ    ÛÛ" "ÛÛ    ÛÛ" "ÛÛ    ÛÛ" " ÛÛ  ÛÛ " "   ÛÛ   " "   ÛÛ   " "   ÛÛ   " "   ÛÛ   " "  ÛÛÛÛ  " "        " "        ") do set /a "y+=1" & set "_Y[!y!]=%%~a"
    for %%a in ("        " "ÛÛÛÛÛÛÛ " "      Û " "     Û  " "    Û   " "   Û    " "  Û     " " Û      " "Û       " "ÛÛÛÛÛÛÛ " "        " "        ") do set /a "z+=1" & set "_Z[!z!]=%%~a"
    for %%a in ("        " "        " "        " "        " "        " "        " "        " "        " "        " "        " "        " "        ") do set /a "sp+=1" & set "_ [!sp!]=%%~a"
    for %%a in (A B C D E F G H I J K L M N O P Q R S T U V W X Y Z sp) do set "%%a="
goto :eof
:: ------------------------------------------------------------------------------------------------------------------------------------------------------------------------