Mejorado (ligeramente):
Le añadi la codificacion morse numerica del 0 al 9
y le agregue un marco al texto, para "embellecerlo"
ignorad los espacios aleatorios entre letras y el simbolo =
funcionará correctamente al ejecutar, estoy usando un notepad custom, y los espacios
se modifican al pasar a texto normal
@echo off
title morse
goto menu
:menu
cls
color 0E
echo.
echo.
echo.
echo =======================================
echo = =
echo = Hola este es un diccionario =
echo = de codigo morse... =
echo = =
echo = 1.Convertir palabra al morse =
echo = =
echo = 2.Salir =
echo = =
echo =======================================
echo.
echo.
set/p opc=Que deseas hacer 1 o 2? :
if %opc%==1 goto submen
if %opc%==2 (goto exit3) else goto menu
:submen
cls
echo.
echo.
echo.
echo =======================================================
echo = =
echo = Escribe la palabra!!! que quieras convertir =
echo = a codigo morse y presiona ENTER.... =
echo = =
echo =======================================================
set/p pal=PALABRA:
if [%pal%]==[] echo Basio&pause > nul&goto menu
set pal=%pal:a=.- %
set pal=%pal:b=-... %
set pal=%pal:c=-.-. %
set pal=%pal:d=-.. %
set pal=%pal:e=. %
set pal=%pal:f=..-.*%
set pal=%pal:g=--. %
set pal=%pal:h=.... %
set pal=%pal:i=.. %
set pal=%pal:j=.--- %
set pal=%pal:k=-.- %
set pal=%pal:l=.-.. %
set pal=%pal:m=-- %
set pal=%pal:n=-. %
set pal=%pal:o=---. %
set pal=%pal:p=.-- %
set pal=%pal:q=--.- %
set pal=%pal:r=.-. %
set pal=%pal:s=... %
set pal=%pal:t=- %
set pal=%pal:u=..- %
set pal=%pal:v=...- %
set pal=%pal:w=.-- %
set pal=%pal:x=-..- %
set pal=%pal:y=-.-- %
set pal=%pal:z=--.. %
set pal=%pal:1=.---- %
set pal=%pal:2=..--- %
set pal=%pal:3=...-- %
set pal=%pal:4=....- %
set pal=%pal:5=..... %
set pal=%pal:6=-.... %
set pal=%pal:7=--... %
set pal=%pal:8=---.. %
set pal=%pal:9=----. %
set pal=%pal:0=----- %
echo.
echo.
echo.
echo =====================
echo = =
echo = Cargando... =
echo = =
echo =====================
ping -n 3 localhost >nul
cls
echo.
echo.
echo.
echo.
echo.
echo Esta es su codificacion en morse %pal%
pause > nul
goto menu
:exit3
cls
exit

