Ever wish you could let each and every user of your xBASE applications
pick their own colors and change them as often as they want?

   You can and they can!  Use UDCOLORS.ZIP!

UDCOLORS.ZIP contains the following files:

UDCOLORS.TXT ..... this file
UDCOLORS.EXE ..... file containing the compiled program
UDCOLORS.DBF ..... a DBF to store user's color selections
UDCOLORS.NDX ..... the index
UDCSETUP.DBF ..... a DBF for running UDCOLORS.EXE
  CUROFF.BIN
   CURON.BIN
...........................................................................

   UDCOLORS.EXE was written to permit end users to select their color
preference for YOUR applications. It is also useful if you encounter
hardware that won't respond to normal color settings.

   In YOUR application, keep a copy of UDCOLORS.DBF and UDCOLORS.NDX.
(Index on NAME for indexes other than NDX).  The first field contains the
user's name. Every other field represents the color code for each memvar
that you macro substitute for each window or box. Each record is for a
different user.

   When a user signs on, the system loads whatever colors they have
previously selected and saved. Users can change their colors any time they
wish. This method prevents complaints about color selection. It is just as
easy to append records for different machines by assigning the machine's name
instead of a user name.

........................................................................

*
*             Sample coding using UDCOLORS in your application
*

SET TALK OFF

mname=SPACE(25)

DO WHILE mname = SPACE(25)      &&... Force the user to sign onto sysytem
   @ 16,40 GET mname PICT [@!]
   READ
ENDDO

SELECT 1
USE udcolors INDEX udcolors     &&... The DBF that contains previously
                                **.. defined colors

IF ISCOLOR()     &&... Test for a color system
   SEEK mname
ELSE
   SEEK "DEFAULT MONO"  &&.. If not color, use mono colors
ENDIF

IF FOUND()  &&...................... use user's colors
   STORE MAIN1 TO MAIN1 &&....Create additional memvars from fields for Menus,
   STORE MAIN2 TO MAIN2 &&..Warning, Help, Message and Special windows and boxes
   STORE MAIN3 TO MAIN3 &&....If you're using dBXL/Quicksilver, you can
                        **..simply code STORE AUTOMEM
ELSE        &&...................... use default colors
   GO 1 
   STORE MAIN1 TO MAIN1 &&....Create additional memvars from fields for Menus,
   STORE MAIN2 TO MAIN2 &&..Warning, Help, Message and Special windows and boxes
   STORE MAIN3 TO MAIN3 &&....If you're using dBXL/Quicksilver, you can
                        **..simply code STORE AUTOMEM
ENDIF
SET COLOR TO &main1,&main2,&main3   &&....... macro substitute memvars

*
*  Copy SET COLOR TO for other windows and boxes in your application
*

...........................................................................

If you like this routine, and want the source code, send $15.00 to cover
shipping & handling to:

               Herb Niewender
               RD 1 Box 464C
               Pleasantville, NJ  08232  (609)645-1900 Voice

                            ACADEMIA BBS (609)652-4914  1200/2400
                                         (609)652-4923  9600 HST