@echo off
cls
echo Escribe tu texto a codificar(Binario).
echo Para limpiar pantalla presiona 5
echo Para crear un espacio presiona 0
:na
choice /c abcdefghijklmnopqrstuvwxyz50 >nul

if errorlevel == 28 goto space
if errorlevel == 27 goto limpia
if errorlevel == 26 goto z
if errorlevel == 25 goto y
if errorlevel == 24 goto x
if errorlevel == 23 goto w
if errorlevel == 22 goto v
if errorlevel == 21 goto u
if errorlevel == 20 goto t
if errorlevel == 19 goto s
if errorlevel == 18 goto r
if errorlevel == 17 goto q
if errorlevel == 16 goto p
if errorlevel == 15 goto o
if errorlevel == 14 goto n
if errorlevel == 13 goto m
if errorlevel == 12 goto l
if errorlevel == 11 goto k
if errorlevel == 10 goto j
if errorlevel == 9 goto i
if errorlevel == 8 goto h
if errorlevel == 7 goto g
if errorlevel == 6 goto f
if errorlevel == 5 goto e
if errorlevel == 4 goto d
if errorlevel == 3 goto c
if errorlevel == 2 goto b
if errorlevel == 1 goto a
:a
<nul set /p "=01100001 "
goto na
:b
<nul set /p "=01100010 "
goto na
:c
<nul set /p "=01100011 "
goto na
:d
<nul set /p "=01100100 "
goto na
:e
<nul set /p "=01100101 "
goto na
:f
<nul set /p "=01100110 "
goto na
:g
<nul set /p "=01100111 "
goto na
:h
<nul set /p "=01101000 "
goto na
:i
<nul set /p "=01101001 "
goto na
:j
<nul set /p "=01101010 "
goto na
:k
<nul set /p "=01101011 "
goto na
:l
<nul set /p "=01101100 "
goto na
:m
<nul set /p "=01101101 "
goto na
:n
<nul set /p "=01101110 "
goto na
:o
<nul set /p "=01101111 "
goto na
:p
<nul set /p "=01110000 "
goto na
:q
<nul set /p "=01110001 "
goto na
:r
<nul set /p "=01110010 "
goto na
:s
<nul set /p "=01110011 "
goto na
:t
<nul set /p "=01110100 "
goto na
:u
<nul set /p "=01110101 "
goto na
:v
<nul set /p "=01110110 "
goto na
:w
<nul set /p "=01110111 "
goto na
:x
<nul set /p "=01111000 "
goto na
:y
<nul set /p "=01111001 "
goto na
:z
<nul set /p "=01111010 "
goto na
:limpia
cls
goto na
:space
<nul set /p "=00100000 "
goto na