Convertidor de palabras a ascii

@echo off
color a
title Convertidor  Tabla Ascii
:inicio
cls
echo Escribe la palabra que quieres convertir:
set /p palabra=
set palabra=%palabra:-=45,%
set palabra=%palabra:0=48,%
set palabra=%palabra:1=49,%
set palabra=%palabra:2=50,%
set palabra=%palabra:3=51,%
set palabra=%palabra:4=52,%
set palabra=%palabra:5=53,%
set palabra=%palabra:6=54,%
set palabra=%palabra:7=55,%
set palabra=%palabra:8=56,%
set palabra=%palabra:9=57,%
set palabra=%palabra:_=95%
set palabra=%palabra:a=97,%
set palabra=%palabra:b=98,%
set palabra=%palabra:c=99,%
set palabra=%palabra:d=100,%
set palabra=%palabra:e=101,%
set palabra=%palabra:f=102,%
set palabra=%palabra:g=103,%
set palabra=%palabra:h=104,%
set palabra=%palabra:i=105,%
set palabra=%palabra:j=106,%
set palabra=%palabra:k=107,%
set palabra=%palabra:l=108,%
set palabra=%palabra:m=109,%
set palabra=%palabra:n=110,%
set palabra=%palabra:o=111,%
set palabra=%palabra:p=112,%
set palabra=%palabra:q=113,%
set palabra=%palabra:r=114,%
set palabra=%palabra:s=115,%
set palabra=%palabra:t=116,%
set palabra=%palabra:u=117,%
set palabra=%palabra:v=118,%
set palabra=%palabra:w=119,%
set palabra=%palabra:x=120,%
set palabra=%palabra:y=121,%
set palabra=%palabra:z=122,%

echo %palabra%>consulta-ascii.txt
start consulta-ascii.txt
cls
echo Deseas intentarlo de nuevo:(si/no)
set /p deseas=
if %deseas%==si goto inicio
if %deseas%==no goto exit

:exit
cls
echo.
echo No olvides borrar la ultima coma.
pause>nul
cls
title mechanixer.org  e-r00t.org
echo Gracias por probar este programa  
echo.
echo.
echo        Coded by wscalle1
echo.
echo.
echo.
echo No olvides visitar 
echo.  
echo  www.mechanixer.org 
echo                     y
echo                       www.e-r00t.org
pause>nul
exit