Código:
@echo off
rem Realizado por morenochico
rem distribuido bajo la licencia creative commons con los atributos Attribution y rem NonCommercial
setlocal enabledelayedexpansion
set "contador=0"
set cadena1=%1
set cadena=%cadena1:~0,7%
echo %cadena%
set enviado=
set palabra1=
set palabra2=
set palabra3=
set palabra4=
set palabra5=
set palabra6=
set enviado=
:ciclo
if "!cadena:~%contador%,1!" neq "" set /a "contador+=1" & call :CreaLetra !cadena:~%contador%,1! & goto ciclo
goto imprime
goto:eof
:CreaLetra
if "%1" == "a" call :Letra_a
if "%1" == "b" call :Letra_b
if "%1" == "c" call :Letra_c
if "%1" == "d" call :Letra_d
if "%1" == "e" call :Letra_e
if "%1" == "f" call :Letra_f
if "%1" == "g" call :Letra_g
if "%1" == "h" call :Letra_h
if "%1" == "i" call :Letra_i
if "%1" == "j" call :Letra_j
if "%1" == "k" call :Letra_k
if "%1" == "l" call :Letra_l
if "%1" == "m" call :Letra_m
if "%1" == "n" call :Letra_n
if "%1" == "o" call :Letra_o
if "%1" == "p" call :Letra_p
if "%1" == "q" call :Letra_q
if "%1" == "r" call :Letra_r
if "%1" == "s" call :Letra_s
if "%1" == "t" call :Letra_t
if "%1" == "u" call :Letra_u
if "%1" == "v" call :Letra_v
if "%1" == "w" call :Letra_w
if "%1" == "x" call :Letra_x
if "%1" == "y" call :Letra_y
if "%1" == "z" call :Letra_z
if "%1" == "" call :espacio
goto:EOF
:Letra_a
set palabra1=%palabra1% ^ ##
set palabra2=%palabra2% ^ # #
set palabra3=%palabra3% ^ # #
set palabra4=%palabra4% ^ ######
set palabra5=%palabra5% ^ # #
set palabra6=%palabra6% ^ # #
goto:EOF
:Letra_b
set palabra1=%palabra1% ^ #####
set palabra2=%palabra2% ^ # #
set palabra3=%palabra3% ^ #####
set palabra4=%palabra4% ^ # #
set palabra5=%palabra5% ^ # #
set palabra6=%palabra6% ^ #####
goto:EOF
:Letra_c
set palabra1=%palabra1% ^ ####
set palabra2=%palabra2% ^ # #
set palabra3=%palabra3% ^ #
set palabra4=%palabra4% ^ #
set palabra5=%palabra5% ^ # #
set palabra6=%palabra6% ^ ####
goto:EOF
:Letra_d
set palabra1=%palabra1% ^ #####
set palabra2=%palabra2% ^ # #
set palabra3=%palabra3% ^ # #
set palabra4=%palabra4% ^ # #
set palabra5=%palabra5% ^ # #
set palabra6=%palabra6% ^ #####
goto:EOF
:Letra_e
set palabra1=%palabra1% ^ ######
set palabra2=%palabra2% ^ #
set palabra3=%palabra3% ^ #####
set palabra4=%palabra4% ^ #
set palabra5=%palabra5% ^ #
set palabra6=%palabra6% ^ ######
goto:EOF
:Letra_f
set palabra1=%palabra1% ^ ######
set palabra2=%palabra2% ^ #
set palabra3=%palabra3% ^ #####
set palabra4=%palabra4% ^ #
set palabra5=%palabra5% ^ #
set palabra6=%palabra6% ^ #
goto:EOF
:Letra_g
set palabra1=%palabra1% ^ ####
set palabra2=%palabra2% ^ # #
set palabra3=%palabra3% ^ #
set palabra4=%palabra4% ^ # ###
set palabra5=%palabra5% ^ # #
set palabra6=%palabra6% ^ ####
goto:EOF
:Letra_h
set palabra1=%palabra1% ^ # #
set palabra2=%palabra2% ^ # #
set palabra3=%palabra3% ^ ######
set palabra4=%palabra4% ^ # #
set palabra5=%palabra5% ^ # #
set palabra6=%palabra6% ^ # #
goto:EOF
:Letra_i
set palabra1=%palabra1% ^ #
set palabra2=%palabra2% ^ #
set palabra3=%palabra3% ^ #
set palabra4=%palabra4% ^ #
set palabra5=%palabra5% ^ #
set palabra6=%palabra6% ^ #
goto:EOF
:Letra_j
set palabra1=%palabra1% ^ #
set palabra2=%palabra2% ^ #
set palabra3=%palabra3% ^ #
set palabra4=%palabra4% ^ #
set palabra5=%palabra5% ^ # #
set palabra6=%palabra6% ^ ####
goto:EOF
:Letra_k
set palabra1=%palabra1% ^ # #
set palabra2=%palabra2% ^ # #
set palabra3=%palabra3% ^ ####
set palabra4=%palabra4% ^ # #
set palabra5=%palabra5% ^ # #
set palabra6=%palabra6% ^ # #
goto:EOF
:Letra_l
set palabra1=%palabra1% ^ #
set palabra2=%palabra2% ^ #
set palabra3=%palabra3% ^ #
set palabra4=%palabra4% ^ #
set palabra5=%palabra5% ^ #
set palabra6=%palabra6% ^ ######
goto:EOF
:Letra_m
set palabra1=%palabra1% ^ # #
set palabra2=%palabra2% ^ ## ##
set palabra3=%palabra3% ^ # ## #
set palabra4=%palabra4% ^ # #
set palabra5=%palabra5% ^ # #
set palabra6=%palabra6% ^ # #
goto:EOF
:Letra_n
set palabra1=%palabra1% ^ # #
set palabra2=%palabra2% ^ ## #
set palabra3=%palabra3% ^ # # #
set palabra4=%palabra4% ^ # # #
set palabra5=%palabra5% ^ # ##
set palabra6=%palabra6% ^ # #
goto:EOF
:Letra_o
set palabra1=%palabra1% ^ ####
set palabra2=%palabra2% ^ # #
set palabra3=%palabra3% ^ # #
set palabra4=%palabra4% ^ # #
set palabra5=%palabra5% ^ # #
set palabra6=%palabra6% ^ ####
goto:EOF
:Letra_p
set palabra1=%palabra1% ^ #####
set palabra2=%palabra2% ^ # #
set palabra3=%palabra3% ^ # #
set palabra4=%palabra4% ^ #####
set palabra5=%palabra5% ^ #
set palabra6=%palabra6% ^ #
goto:EOF
:Letra_q
set palabra1=%palabra1% ^ ####
set palabra2=%palabra2% ^ # #
set palabra3=%palabra3% ^ # #
set palabra4=%palabra4% ^ # # #
set palabra5=%palabra5% ^ # #
set palabra6=%palabra6% ^ ### #
goto:EOF
:Letra_r
set palabra1=%palabra1% ^ #####
set palabra2=%palabra2% ^ # #
set palabra3=%palabra3% ^ # #
set palabra4=%palabra4% ^ #####
set palabra5=%palabra5% ^ # #
set palabra6=%palabra6% ^ # #
goto:EOF
:Letra_s
set palabra1=%palabra1% ^ ####
set palabra2=%palabra2% ^ #
set palabra3=%palabra3% ^ ####
set palabra4=%palabra4% ^ #
set palabra5=%palabra5% ^ # #
set palabra6=%palabra6% ^ ####
goto:EOF
:Letra_t
set palabra1=%palabra1% ^ #####
set palabra2=%palabra2% ^ #
set palabra3=%palabra3% ^ #
set palabra4=%palabra4% ^ #
set palabra5=%palabra5% ^ #
set palabra6=%palabra6% ^ #
goto:EOF
:Letra_u
set palabra1=%palabra1% ^ # #
set palabra2=%palabra2% ^ # #
set palabra3=%palabra3% ^ # #
set palabra4=%palabra4% ^ # #
set palabra5=%palabra5% ^ # #
set palabra6=%palabra6% ^ ####
goto:EOF
:Letra_v
set palabra1=%palabra1% ^ # #
set palabra2=%palabra2% ^ # #
set palabra3=%palabra3% ^ # #
set palabra4=%palabra4% ^ # #
set palabra5=%palabra5% ^ # #
set palabra6=%palabra6% ^ ##
goto:EOF
:Letra_w
set palabra1=%palabra1% ^ # #
set palabra2=%palabra2% ^ # #
set palabra3=%palabra3% ^ # #
set palabra4=%palabra4% ^ # ## #
set palabra5=%palabra5% ^ ## ##
set palabra6=%palabra6% ^ # #
goto:EOF
:Letra_x
set palabra1=%palabra1% ^ # #
set palabra2=%palabra2% ^ # #
set palabra3=%palabra3% ^ ##
set palabra4=%palabra4% ^ ##
set palabra5=%palabra5% ^ # #
set palabra6=%palabra6% ^ # #
goto:EOF
:Letra_y
set palabra1=%palabra1% ^ # #
set palabra2=%palabra2% ^ # #
set palabra3=%palabra3% ^ #
set palabra4=%palabra4% ^ #
set palabra5=%palabra5% ^ #
set palabra6=%palabra6% ^ #
goto:EOF
:Letra_z
set palabra1=%palabra1% ^ ######
set palabra2=%palabra2% ^ #
set palabra3=%palabra3% ^ #
set palabra4=%palabra4% ^ #
set palabra5=%palabra5% ^ #
set palabra6=%palabra6% ^ ######
goto:EOF
:espacio
set palabra1=%palabra1% ^
set palabra2=%palabra2% ^
set palabra3=%palabra3% ^
set palabra4=%palabra4% ^
set palabra5=%palabra5% ^
set palabra6=%palabra6% ^
goto:EOF
:imprime
echo %palabra1%
echo %palabra2%
echo %palabra3%
echo %palabra4%
echo %palabra5%
echo %palabra6%
goto:EOF