home *** CD-ROM | disk | FTP | other *** search
/ PC Plus SuperCD (UK) 1995 September / Image.iso / visualob / install / samples / employee / sys.c_ / sys.c
Encoding:
C/C++ Source or Header  |  1994-08-18  |  1.3 KB  |  49 lines
  1. // SYS.CH
  2. // Employee Information definitions
  3. // November, 1993
  4. //----------------------------------------------------------------------------
  5.  
  6. #include 'achoice.ch'
  7. #include 'box.ch'
  8. #include 'fileio.ch'
  9. #include 'inkey.ch'
  10. #include 'setcurs.ch'
  11.  
  12. //----------------------------------------------------------------------------
  13.  
  14. #define TRUE    .T.
  15. #define FALSE    .F.
  16.  
  17. #define SUBSET(x, y)            (x $ y)
  18.  
  19. FUNCTION ISCHARACTER(x)          
  20.     RETURN ValType(x) == 'C'
  21. FUNCTION ISNUMERIC(x)
  22.     RETURN ValType(x) == 'N'
  23. FUNCTION ISLOGICAL(x)
  24.     RETURN ValType(x) == 'L'
  25. FUNCTION ISBLOCK(x)              
  26.     RETURN ValType(x) == 'B'
  27. FUNCTION ISUNDEFINED(x)          
  28.     RETURN 'U' $ ValType(x)
  29.  
  30. FUNCTION SCREENSAVE(a, b, c, d)
  31.     RETURN Str(a, 2) + Str(b, 2) + Str(c, 2) + Str(d, 2) + SaveScreenOld(a, b, c, d)
  32. FUNCTION EMPTY_SS(x)             
  33.     RETURN Empty(x) .OR. x == '   -  -    '
  34.  
  35. #define DISPLAY_MODE   0
  36. DEFINE POSITION_MODE := 1
  37. DEFINE ENTRY_MODE := 2
  38. DEFINE UPDATE_MODE := 3
  39.  
  40. DEFINE QUIT_MODE := 0
  41. DEFINE ADD_MODE := 1
  42. DEFINE CHANGE_MODE := 2
  43. DEFINE DELETE_MODE := 3
  44. DEFINE EXIT_MODE := 4
  45.  
  46.  
  47. //----------------------------------------------------------------------------
  48. //----------------------------------------------------------------------------
  49.