home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Professional / OS2PRO194.ISO / os2 / prgramer / rexx / rexxmenu / prompts.cmd < prev    next >
Encoding:
Text File  |  1992-11-25  |  1.0 KB  |  30 lines
  1. @echo off
  2. REM *** PROMPTS.CMD - Start up a command line, DOS or OS/2 and select
  3. REM ***               Window or full screen, and number of lines.
  4. REM ***               This is an example for using the MenuPick utility.
  5.  
  6. REM *** Give Each menu 4 seconds before choosing the default
  7. set MP_TIMEOUT=4
  8.  
  9. REM *** Select OS/2 or DOS command processor
  10. set MP_PROMPT=Select an operating environment:
  11. call MenuPick COMMAND_PROCESSOR OS2:OS/2 Session;/DOS:DOS Session
  12.  
  13. REM *** Select full screen or windowed
  14. set MP_PROMPT=Windowed, or Full-screen session?
  15. call MenuPick SESSION_SIZE /Win:Windowed;/FS:Full-screen
  16.  
  17. REM *** Select number of screen lines
  18. set MP_PROMPT=Select text size
  19. call MenuPick LINE_COUNT 25:few lines - large text;43:more lines - smaller text;50:many lines - tiny text
  20.  
  21. REM *** Start the session
  22. if %COMMAND_PROCESSOR% == OS2 set COMMAND_PROCESSOR=
  23. start /F %SESSION_SIZE% %COMMAND_PROCESSOR% /MAX mode 80,%LINE_COUNT%
  24.  
  25. REM *** Clean up the variables no longer needed
  26. set COMMAND_PROCESSOR=
  27. set SESSION_SIZE=
  28. set LINE_COUNT=
  29.  
  30.