home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 2 / ctrom_ii_b.zip / ctrom_ii_b / PROGRAM / CLIPPER / SCRNUZ / MEMPUBS.PRG < prev    next >
Text File  |  1991-12-13  |  2KB  |  69 lines
  1. *.............................................................................
  2. *
  3. *   Program Name: MEMPUBS.PRG       Copyright: EDON Corporation
  4. *   Date Created: 02/25/91           Language: Clipper S'87
  5. *   Time Created: 15:00:44             Author: Ed Phillips
  6. *           Desc: Create Public variables for Memscrn.prg
  7. *.............................................................................
  8.  
  9. PUBLIC c_bar,c_data,c_error,c_field,c_fielda,c_help,c_list,c_lista,c_mtitl,;
  10.    c_mbord,c_mtext,c_norm,c_pop,c_title,c_mag,c_yel,c_rb,c_wbg,c_ybg
  11.  
  12. PUBLIC esc,enter,uparrow,dnarrow,pgup,pgdn,home,end_key,ctrl_home,ctrl_end,;
  13.    ctrl_pgup,ctrl_pgdn,f2,altG,rtarrow,ltarrow,p_err,is_scrn,exit_msg,del_msg,;
  14.    esc_msg,help_msg
  15.  
  16.    c_bar    = "N/W,W+/GR,B,,N/W"              && bar menu
  17.    c_data   = "W+/G,G/B,N,,W/B"               && data color
  18.    c_error  = "W+/R,W+/G,N,,W/R"              && error color
  19.    c_field  = "W+/BG,W+/R,B,,W+/R"             && field color
  20.    c_fielda = "GR+/B,W+/G,B,,W+/B"            && alternate field color
  21.    c_help   = "W+/G,B/W,N,,W+/G"              && help color
  22.    c_list   = "GR+/B,N/B,N,,W/B"              && list color
  23.    c_lista  = "W+/B,GR+/B,B,,W+/B"            && alternate list color
  24.    c_mtitl  = "B/W, W+/G,N,,W/B"              && menu title color
  25.    c_mbord  = "W/N,GR+/N,N,,W/N"              && menu border color
  26.    c_mtext  = "BG/N,GR+/B,N,,BG/N"            && menu text color
  27.    c_norm   = "W+/N,W+/G,N,, W/G"             && normal color
  28.    c_pop    = 'B/W,W+/B,,,W/B'                && pop up menu
  29.    c_title  = 'W+/B,GR+/N,N,,GR/N'            && title color
  30.    c_mag    = 'W+/BR'
  31.    c_yel    = 'GR+/B'
  32.    c_rb     = 'R+/B'
  33.    c_wbg    = 'W+/BG'
  34.    c_ybg    = 'GR+/BG'
  35.  
  36. *------------------
  37. * Define keystrokes
  38. *------------------
  39. esc = 27
  40. enter = 13
  41. uparrow = 5
  42. dnarrow = 24
  43. pgup = 18
  44. pgdn = 3
  45. home = 1
  46. end_key = 6
  47. ctrl_home = 29
  48. ctrl_end = 23
  49. ctrl_pgup = 31
  50. ctrl_pgdn = 30
  51. f2 = -1
  52. altG = 290
  53. rtarrow = 4
  54. ltarrow = 19
  55.  
  56. p_err = .f.    && printer error?
  57. is_scrn = .f.  && is screen the output device?
  58. exit_msg = 'PRESS <PgDn> TO EXIT'             && terminate current loop
  59. del_msg = '** MARKED FOR DELETION **'
  60. esc_msg = 'PRESS <Esc> TO EXIT'
  61. help_msg = 'PRESS <F1> for HELP'
  62.  
  63.  
  64. RETURN
  65.  
  66.  
  67.  
  68. * EOF: MEMPUBS.PRG
  69.