[alpap]

например с помощью Wselect

[megaloman]

Спасибо alpap за интересное предложение.
Пример использования

Код:

@Echo Off
cls
>nul Chcp 1251

Set /A ps=1
:Begin
	Set "Wselect=Z:\WSelect\Wselect.exe"

	Set "Wmenu=%temp%\%~nx0.lst"

	Set  "@Wmenu101=У попа была собака"
	Set  "@Wmenu102=Поп ее любил"
	Set  "@Wmenu103=Она съела кусок мяса"
	Set  "@Wmenu104=Поп ее убил"
	Set  "@Wmenu105=Завершить глумление"

	>"%Wmenu%" (FOR /F "usebackq tokens=1* delims==" %%i In (`2^>nul Set "@Wmenu"`) DO Echo %%j)

	>nul 2>&1 "%Wselect%" "%Wmenu%" "Заголовок меню" $item "Выбирайте пункт:" /menu /cmdCenter /fs=10 /bg=#ffCC88 /fc=#440088 /hc=#CC0000 /ps=%ps%
	
	If %ErrorLevel% EQU 0 GoTo :Begin
	Set /A ps=%ErrorLevel%

	If %ps% EQU 5 (Del "%Wmenu%" &Exit /B)

	If %ps% EQU 1 Call :Sub1 "%@Wmenu101%" 
	If %ps% EQU 2 Call :Sub1 "%@Wmenu102%" 
	If %ps% EQU 3 Call :Sub1 "%@Wmenu103%" 
	If %ps% EQU 4 Call :Sub1 "%@Wmenu104%"
GoTo :Begin 
Exit /B

:Sub1
	Echo %~1
	Pause
Exit /B