Click above to get retro games delivered to your door ever month!

 CONSTANTS() Declare some standard values as mnemonic PUBLIC variables

 Syntax....: CONSTANTS()
 Parameters: none

 Returns...: <expL>: .T.
 Cautions..: any changes / corrections can be declared after this () is called
 CC Calls..: none
 Alias.....: none
 Source....:
  * +----------------------------------+
  * | DECLARE PUBLIC (Constant) Values |
  * +----------------------------------+
  PUBLIC Null,      CR_LF

  PUBLIC CtrlW,     CtrlWChr
  PUBLIC Delete,    DeleteChr
  PUBLIC Enter,     EnterChr
  PUBLIC Esc,       EscChr
  PUBLIC Insert,    InsertChr

  PUBLIC Home,      End

  PUBLIC LeftArrow, RightArrow
  PUBLIC UpArrow,   DownArrow

  * +---------------------------------+
  * | Define PUBLIC (Constant) Values |
  * +---------------------------------+
  Null        = .T.
  CtrlW       = 23
  CtrlWChr    = CHR(CtrlW)
  Delete      =  7
  DeleteChr   = CHR(Delete)
  Enter       = 13
  EnterChr    = CHR(Enter)
  Esc         = 27
  EscChr      = CHR(Esc)
  Insert      = 22
  InsertChr   = CHR(22)
  CR_LF       = CHR(13)+CHR(10)

  Home        =  1
  End         =  6
  LeftArrow   = 19
  RightArrow  =  4
  UpArrow     =  5
  DownArrow   = 24

  * +-------------------------+
  * | DBEDIT & ACHOICE Values |
  * +-------------------------+
  PUBLIC DBE_Quit, DBE_Cont,    DBE_Repaint
  PUBLIC DBE_Idle, DBE_PastBOF, DBE_PastEOF, DBE_Empty,   DBE_Excptn
  PUBLIC ACE_Quit, ACE_Select,  ACE_Cont,    ACE_NxMatch, Repaint
  PUBLIC ACE_Idle, ACE_PastBOF, ACE_PastEOF, ACE_Excptn,  ACE_0Avail

  *** DBE CONSTANTS ***
  DBE_Quit    = 0
  DBE_Cont    = 1
  DBE_Repaint = 2

  DBE_Idle    = 0
  DBE_PastBOF = 1
  DBE_PastEOF = 2
  DBE_Empty   = 3
  DBE_Excptn  = 4

  *** ACE CONSTANTS ***
  ACE_Quit    = 0
  ACE_Select  = 1
  ACE_Cont    = 2
  ACE_NxMatch = 3
  Repaint     = .T.

  ACE_Idle    = 0
  ACE_PastBOF = 1
  ACE_PastEOF = 2
  ACE_Excptn  = 3
  ACE_0Avail  = 4