SCOUG Logo


Next Meeting: Sat, TBD
Meeting Directions


Be a Member
Join SCOUG

Navigation:


Help with Searching

20 Most Recent Documents
Search Archives
Index by date, title, author, category.


Features:

Mr. Know-It-All
Ink
Download!










SCOUG:

Home

Email Lists

SIGs (Internet, General Interest, Programming, Network, more..)

Online Chats

Business

Past Presentations

Credits

Submissions

Contact SCOUG

Copyright SCOUG



warp expowest
Pictures from Sept. 1999

The views expressed in articles on this site are those of their authors.

warptech
SCOUG was there!


Copyright 1998-2024, Southern California OS/2 User Group. ALL RIGHTS RESERVED.

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.

The Southern California OS/2 User Group
USA

SCOUG-HELP Mailing List Archives

Return to [ 04 | January | 2003 ]

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


Date: Sat, 4 Jan 2003 21:20:04 PST8
From: <leganii@surfree.com >
Reply-To: scoug-help@scoug.com
To: scoug-help@scoug.com
Subject: SCOUG-Help: Re: ASK.exe ?

Content Type: text/plain

=====================================================
If you are responding to someone asking for help who
may not be a member of this list, be sure to use the
REPLY TO ALL feature of your email program.
=====================================================

(Let me get this on the right e-list! :-) )

>Reply-To: scoug-help@scoug.com
>From: Peter Skye
>To: scoug-help@scoug.com
>Subject: SCOUG-Help: ASK.exe ?
> __________________________________________________________________
>
> .......
>
>I need an ASK command that I can use in a non-REXX command file.

OK, this runs *in* a *non-REXX* command file:

--
/* ReXX */

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

USAGE: ASK answers "The question: "
*/

PARSE ARG answers question ;

question = Strip( question ) ;
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 ;
CALL CharOut 'STDOUT', theone, ;

CALL Value ERRORLEVEL, index, 'OS2ENVIRONMENT' ;

EXIT index

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

>
>ASK (or some similar name) typically has a syntax like:
>
> ASK CHOICES "Message"
>
>and the program displays "Message" on the screen and then waits for the
>user to enter one of the characters in CHOICES. The entered character's
>position in the CHOICES string becomes the Return Code (ERRORLEVEL)
>returned by the ASK.exe program.
>
>For example,
>
> ASK YNQ "Answer Y(es) or N(o), Q to Quit"
>
>would display this on the screen:
>
> Answer Y(es) or N(o), Q to Quit _
>
>and the user may enter Y, N or Q resulting in a Return Code of 1, 2 or
>3.
>
>I found ASKIT on Hobbes but it requires two of the screen lines in a
>command line window -- one for the message and one for the response --
>and I'd much prefer to have a single-line solution.
>
>Anybody know where I can find such a program?
>
>- Peter
--

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-help".

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

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


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

Return to [ 04 | January | 2003 ]



The Southern California OS/2 User Group
P.O. Box 26904
Santa Ana, CA 92799-6904, USA

Copyright 2001 the Southern California OS/2 User Group. ALL RIGHTS RESERVED.

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.