🚀 go-pugleaf

The CHOICE utility is available by anonymous ftp, and runs perfectly on DOS 5.
There is another, GET_FUNC, which can be used to await a F1-F10 keypress.

ftp ftp.microsoft.com
cd /Softlib/mslfiles
get sup622.exe         (quite a large file at 781125 bytes)

When run on your PC, this creates about 70 files; one of these is
EXPAND.EXE and is needed for uncompressing the files you want.
e.g., expand  choice.co_  choice.com

Example: CHOICE.COM  {awaits one of the specified keypresses}
-------------------

echo   A: All the components
echo   S: Selected components only
echo   X: Exit
echo.
choice /c:asx "All, Selected, Exit "
if errorlevel 3 goto done               { keypress is x }
if errorlevel 2 goto checkdir           { keypress is s }
                                        { keypress is a }


Example: GET_FUNC.COM  {awaits function key F1-F10 keypress}
---------------------

echo Press F1 F2 F3 or F4
:get_key
get_func
if errorlevel 62 if not errorlevel 63 goto F4
if errorlevel 61 if not errorlevel 62 goto F3
if errorlevel 60 if not errorlevel 61 goto F2
if errorlevel 59 if not errorlevel 60 goto F1
goto get_key
:F4
echo That was F4 key


Usage: C:\> CHOICE /?
---------------------
Waits for the user to choose one of a set of choices.

CHOICE [/C[:]choices] [/N] [/S] [/T[:]c,nn] [text]

/C[:]choices Specifies allowable keys. Default is YN
/N           Do not display choices and ? at end of prompt string.
/S           Treat choice keys as case sensitive.
/T[:]c,nn    Default choice to c after nn seconds
text         Prompt string to display

ERRORLEVEL is set to offset of key user presses in choices.
                                                      __       __
         :--_-_-_--.  _____________________________  {  \_____/  }  __________
         | (_|_|_) |                                 {           }
      .  |  (_|_)  |                                 '~. `[ ]` .~'  Australia,
  _--_|\ |---------'      John Savage (visitor)        (.__=-- )    beautiful
 /      \|  Sydney       guest account courtesy:      _/ ~~~~~ \_   one day -
 \_.--._/^   2000         Macquarie  University      (w         w)  perfect
       v   OLYMPICS        Sydney    Australia        (         )   the next.
                                                       \__ _ __/
===========internet: johns@macadam.mpce.mq.edu.au=====  \_) (_/  =============