home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 2 / ctrom_ii_b.zip / ctrom_ii_b / PROGRAM / FOXPRO / PRE307 / STDDEFS.INC < prev   
Text File  |  1990-03-27  |  1KB  |  52 lines
  1. #xlist
  2. #xblank
  3.  
  4.  
  5. #* Oneline Functions
  6. #define accum(x,y)  y = x + y
  7. #define boxwait(x) boxmsg(x,.f.,.f.,0)
  8. #define inc(x) x = x + 1
  9. #define INC(x) x = x + 1
  10. #define dec(x) x = x - 1
  11. #define keypress(x) keyboard chr(x)
  12. #define errcolor 'W+/R'
  13. #define boxerror(x)  boxmsg(x,.f.,.f.,0,errcolor)
  14. *#define errexit(x) return if(sayso,(boxmsg(x,'','',0,errcolor)==''),.f.)
  15. #define errexit(x) return if(sayso,(boxerror(x)==''),.f.)
  16. #define pad(string,length) left(string + space(length),length)
  17.  
  18. #* Boxes
  19. #define double_single '╒═╕│╛═╘│'
  20.  
  21. #define edit_box  '┌─┐│┤─├│'
  22.  
  23.  
  24. #define double_h      '═'
  25.  
  26. #define double_v      '║'
  27.  
  28. #define double_tl     '╔'
  29.  
  30. #define double_bl     '╚'
  31.  
  32. #define double_tr     '╗'
  33.  
  34. #define double_br     '╝'
  35.  
  36. #define double_cross  '╬'
  37.  
  38. #define double_bcross '╩'
  39.  
  40. #define double_tcross '╦'
  41.  
  42. #define double_lcross '╠'
  43.  
  44. #define double_rcross '╣'
  45.  
  46. #* Messages
  47. #define escmsg "Press Escape key to return to menu."
  48. #define waitmsg "Press any key to continue."
  49.  
  50. #blank
  51. #list
  52.