echo off
setlocal ENABLEDELAYEDEXPANSION
set opt=%~2
if "%opt%"=="" set opt=%~1
call :length "%opt%"
call :translite "%opt%"
choice /c "%opt%%translite%" /m "%~1" /n
set e=%ERRORLEVEL%
if %e% gtr %length% set /a e=%e% - %length%
exit /b %e%

:translite () {
    @@rem Процедура "транслитерации"
    @@rem
    setlocal ENABLEDELAYEDEXPANSION
    set opt=%~1
    set opt=%opt:"='%
    set out=%~0
    if "%out:~0,1%"==":" (
        set out=%out:~1%
        ) else (
        set out=out
        )
    set eng=qwertyuiopasdfghjklzxcvbnm0123456789
    set rus=йцукенгшщзфывапролдячсмить▓│┤╡╢╖╕╣║╗
    set ret=
    call :length "%opt%"
    set /a length=%length% - 1
    set charinstr=-1
    for /l %%x in (0,1,%length%) do (
        set x=!opt:~%%x,1!
        call :charinstr "%eng%" "!x!"
        if !charinstr! geq 0 (
            for /l %%y in (!charinstr!,1,!charinstr!) do (
                set ret=!ret!!rus:~%%y,1!
            )
        ) else (
            set ret=!ret!!opt:~%%x,1!
        )
    )
    endlocal & set %out%=%ret%
    exit /b 0
}

:charinstr () {
    setlocal ENABLEDELAYEDEXPANSION
    set opt=%~1
    set opt=%opt:"='%
    set char=%~2
    set out=%~0
    if "%out:~0,1%"==":" (
        set out=%out:~1%
        ) else (
        set out=out
        )
    call :length "%opt%"
    set /a length=%length% - 1
    set ret=-1
    for /l %%x in (0,1,%length%) do (
        set x=!opt:~%%x,1!
        if /i "%char%"=="!x!" (
            set ret=%%~x
            goto break_charinstr
        )
    )
:break_charinstr
    endlocal & set %out%=%ret%
    exit /b 0
}

:length (string) {
    @@rem Процедура определения длины строки
    @@rem
    setlocal
    set opt=%~1
    set opt=%opt:"='%
    set out=%~0
    if "%out:~0,1%"==":" (
        set out=%out:~1%
        ) else (
        set out=out
        )
    set /a n=0
    :loop_len
    if not "%opt%"=="" (
        set opt=%opt:~1%
        set /a n=%n%+1
        goto loop_len
        )
    endlocal & set /a %out%=%n%
    exit /b 0
    }

@echo off
setlocal enableextensions enabledelayedexpansion

set symb1=qwertyuiopasdfghjklzxcvbnm0123456789
set symb2=йцукенгшщзфывапролдячсмить░▒▓╚╛╜╝╞╟╠

set outstr=
set instr=%~2
if _%instr%==_ goto usage

:loop1
set insym=%instr:~0,1%
set instr=%instr:~1%

::echo insym = "%insym%"
::echo instr = "%instr%"

set instr1=%symb1%
set instr2=%symb2%

:loop2

set insym1=%instr1:~0,1%
set instr1=%instr1:~1%
set insym2=%instr2:~0,1%
set instr2=%instr2:~1%

if /I not %insym%==%insym1% (
  if not _%instr1%==_ goto loop2
  exit /b 254
)

set outstr=%outstr%%insym1%%insym2%
::echo outstr = "%outstr%"

if not _%instr%==_ goto loop1

choice /m "%~1" /c "%outstr%" /n

set a=%errorlevel%
set /a a=(a+1)/2
::echo a=%a%
exit /b %a%

goto end

:usage
echo Usage: %~nx0 Prompt Symbols

:end
endlocal

@echo off
setlocal enableextensions enabledelayedexpansion
choice.exe /m:"Текст" /c:YNНТнт /n
set /a iChoice = %errorlevel%
for %%i in (1, 3, 5) do if %iChoice% equ %%i echo Yes
for %%i in (2, 4, 6) do if %iChoice% equ %%i echo No
endlocal
exit /b 0

echo off
choice /m "%~1" /c "%~2" /n
exit /b %ERRORLEVEL%

call utilit\ask 2345678q "Выберете режим"
if errorlevel 8 goto ...
...
if errorlevel 1 goto ...