home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0010 - 0019 / ibm0010-0019 / ibm0010.tar / ibm0010 / CLIPB52.ZIP / MARTIN.ZIP / STARTUP.PRG < prev    next >
Encoding:
Text File  |  1990-06-02  |  1.2 KB  |  53 lines
  1. ****************************************************************************
  2. * STARTUP.PRG                                                              *
  3. * Written by Greg Martin                                                   *
  4. * This is an example of the kind of startup code I use in my applications. *
  5. ****************************************************************************
  6.  
  7.  
  8. SET EXCLUSIVE OFF
  9.  
  10. ****************************
  11. * Declare PUBLIC variables *
  12. ****************************
  13.  
  14. PUBLIC Add, Forever
  15. PUBLIC CtrlW, Enter, Esc
  16. PUBLIC UpArrow, DnArrow, LtArrow, RtArrow
  17. PUBLIC Fn1, Fn2, Fn3, Fn4, Fn5, Fn6, Fn7, Fn8, Fn9, Fn10
  18. PUBLIC SCR_color, SAY_color, GET_color, SEL_color, ERR_color
  19.  
  20. Add = .t.
  21. Forever = "FOREVER"
  22. CtrlW = 23
  23. Enter = 13
  24. Esc   = 27
  25. UpArrow =  5
  26. DnArrow = 24
  27. RtArrow =  4
  28. LtArrow = 19
  29. Fn1 = 28
  30. Fn2 = -1
  31. Fn3 = -2
  32. Fn4 = -3
  33. Fn5 = -4
  34. Fn6 = -5
  35. Fn7 = -6
  36. Fn8 = -7
  37. Fn9 = -8
  38. Fn10 = -9
  39. IF (UPPER(GETE("COLOR")) == "YES") .or. (ISCOLOR() .and. .not. UPPER(GETE("COLOR")) == "NO")
  40.   SCR_color = "W/B"
  41.   SAY_color = "+W/B"
  42.   GET_color = "B/W"
  43.   SEL_color = "+W/BG"
  44.   ERR_color = "N/BG"
  45. ELSE
  46.   SCR_color = "W/N"
  47.   SAY_color = "+W/N"
  48.   GET_color = "N/W"
  49.   SEL_color = "+B/W"
  50.   ERR_color = "N/W"
  51. ENDIF
  52. RETURN
  53.