home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Professional
/
OS2PRO194.ISO
/
os2
/
prgramer
/
rexx
/
rexxmenu
/
prompts.cmd
< prev
next >
Wrap
OS/2 REXX Batch file
|
1992-11-25
|
1KB
|
30 lines
@echo off
REM *** PROMPTS.CMD - Start up a command line, DOS or OS/2 and select
REM *** Window or full screen, and number of lines.
REM *** This is an example for using the MenuPick utility.
REM *** Give Each menu 4 seconds before choosing the default
set MP_TIMEOUT=4
REM *** Select OS/2 or DOS command processor
set MP_PROMPT=Select an operating environment:
call MenuPick COMMAND_PROCESSOR OS2:OS/2 Session;/DOS:DOS Session
REM *** Select full screen or windowed
set MP_PROMPT=Windowed, or Full-screen session?
call MenuPick SESSION_SIZE /Win:Windowed;/FS:Full-screen
REM *** Select number of screen lines
set MP_PROMPT=Select text size
call MenuPick LINE_COUNT 25:few lines - large text;43:more lines - smaller text;50:many lines - tiny text
REM *** Start the session
if %COMMAND_PROCESSOR% == OS2 set COMMAND_PROCESSOR=
start /F %SESSION_SIZE% %COMMAND_PROCESSOR% /MAX mode 80,%LINE_COUNT%
REM *** Clean up the variables no longer needed
set COMMAND_PROCESSOR=
set SESSION_SIZE=
set LINE_COUNT=