Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : NFLIB21.ZIP
Filename : FT_ACH2T.CH
* File......: FT_ACH2T.CH
* Author....: Steve Kolterman
* CIS ID....: 76320,37
* Date......: $Date: 07 Oct 1992 23:29:14 $
* Revision..: $Revision: 1.3 $
* Log file..: $Logfile: C:/nanfor/src/ft_ach2t.chv $
*
* This is an original work by Steve Kolterman and is placed in the
* public domain.
*
* Modification history:
* ---------------------
*
* $Log: C:/nanfor/src/ft_ach2t.chv $
*
* Rev 1.3 07 Oct 1992 23:29:14 GLENN
* Latest Kolterman updates.
*
* Rev 1.2 15 Aug 1991 23:19:32 GLENN
* Last minute changes sent in by Steve Kolterman
*
* Rev 1.1 15 Aug 1991 23:08:50 GLENN
* Forest Belt proofread/edited/cleaned up doc
*
* Rev 1.0 14 Jun 1991 04:14:28 GLENN
* Initial revision.
*
*/
/* $DOC$
* $FUNCNAME$
* A_CHOICE()
* $ONELINER$
* Psuedo function to simplify FT_ACH2TB()
* $CATEGORY$
* Menus/Prompts
* $SYNTAX$
* See FT_ACH2TB()
* $ARGUMENTS$
* See FT_ACH2TB()
*
* $RETURNS$
* See FT_ACH2TB()
*
* $DESCRIPTION$
* The A_CHOICE() UDC in FT_ACH2T.CH makes using FT_ACH2TB() a breeze.
* The myriad of parameters can be written in any order. Only
*
*
* Be sure to check the documentation for ft_ach2tb() for more
* details.
*
*
* $EXAMPLES$
* nOpt := A_CHOICE( 7,9,, ARRAY:t_arrey USERFUNC:{|a,b| UserFunc(a,b,any1)};
* BOXTYPE:B_SINGLE BOXTITLE:title SHADOW:"R" TAGCHAR:chr(17);
* REST_SCREEN:.F. AUTOEXEC:.F. MES_COLOR:MSG_COLOR ELEVBAR:"±" ;
* NOSELCOLOR:"bg/n")
*
* Check only the RETURNed element:
* IF Was_Tagged(chr(17),t_arrey,nOpt); MoreProcessing(); END
*
* Check entire 't_arrey':
* Aeval( t_arrey,{|e,n| IF( Was_Tagged(chr(17),t_arrey,n ), ;
* MoreProcessing(t_arrey),NIL ) } )
*
*
* $SEEALSO$
* FT_ACH2TB()
* $END$
*/
#xtrans A_CHOICE( ;
ARRAY:
[USERFUNC:
[BOXTYPE:
[BOXCOLOR:
[BOXTITLE:
[TITLEPOS:
[USELCOLOR:
[TITLECOLOR:
[BAR_COLOR:
[HOTKEYCOLOR:
[SHADOW:
[AUTOEXEC:
[MES_ROW:
[MES_COL:
[MES_COLOR:
[ELEVBAR:
[ELEVBAR_COLOR:
[ELEVBAR_SIDE:
[NOSELCOLOR:
[TAGCHAR:
[START_ELEM:
[REST_SCREEN:
[TIME_OUT:
[TIME_OUT VALUE:
=> ;
FT_Ach2tb( ;
[
[
[
[
[
)
#translate WAS_TAGGED(
(
#translate ONE_TAGGED(
(Ascan(
#translate ALL_TAGGED(
(Ascan(
Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!
This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.
But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/