SCOUG-Programming Mailing List Archives

<< Previous Message << >> Next Message >>

Date:	Sun, 5 Jan 2003 01:09:53 PST8
From:	<leganii@surfree.com >
Reply-To:	scoug-programming@scoug.com
To:	scoug-programming@scoug.com
Subject:	SCOUG-Programming: Re: ASK.exe?

Here is a slightly improved version:

/* ReXX */

/* ASK.CMD
04 Jan. 2003
per question by Peter Skye

USAGE: ASK answers "The question: "
In a batch file:
USAGE: CALL ASK answers "The question: "
*/

PARSE ARG answers question ;
IF '' = question THEN
DO
SAY 'ASK.cmd missing correct input:' ;
SAY ' answers ='answers'= (list of 1 letter inputs)' ;
SAY ' question ='question'= (user prompt)' ;
EXIT ;
END ;

question = Strip( question, 'BOTH', ' ' ) ;
question = Strip( question, 'BOTH', '"' ) ;

/* May desire to comment this out if you load RexxUtils on boot or
elsewhere: */
CALL LoadThem ;

CALL CharOut 'STDOUT', question, ;
DO UNTIL 0 < index
theone = SysGetKey( 'NOECHO' ) ;
index = Pos( theone, answers ) ;
END ;
SAY theone ;

CALL Value ERRORLEVEL, index, 'OS2ENVIRONMENT' ;

EXIT index

LoadThem:
CALL RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs' ;
CALL SysLoadFuncs
RETURN ;

--

Regards,
Dallas E. Legan II / leganii@surfree.com / dallasii@kincyb.com

Powered by......Lynx, the Internet at hyperkinetic speed.

=====================================================

To unsubscribe from this list, send an email message
to "steward@scoug.com". In the body of the message,
put the command "unsubscribe scoug-programming".

For problems, contact the list owner at
"rollin@scoug.com".

=====================================================

Return to [ 05 | January | 2003 ]

SCOUG, Warp Expo West, and Warpfest are trademarks of the Southern California OS/2 User Group. OS/2, Workplace Shell, and IBM are registered trademarks of International Business Machines Corporation. All other trademarks remain the property of their respective owners.