home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1993 #2 / Image.iso / clipper / cuaclip.zip / DEMO.CH < prev    next >
Text File  |  1993-06-01  |  2KB  |  68 lines
  1. //
  2. //  Demo.CH
  3. //
  4. // Copyright (c) 1992 Delcom International Software Engineering
  5. //
  6. //  System header file for the Delcom Interface Library Demo Program
  7. //
  8.  
  9. #include "CUAClip.ch"
  10. #include "Mouse.ch"
  11.  
  12. #include "Inkey.ch"
  13.  
  14. #define  K_SPACE     32       // Inkey.ch missed this one!
  15. #define  K_ALT_END   415      // Need this for 'clean' quits.
  16.  
  17. //
  18. // Standard Box definitions
  19. //
  20. // Single-line top and left side, double-line bottom and right side
  21. //
  22. #define B_STANDARD   ( CHR(218) + CHR(196) + CHR(191) + CHR(179) + ;
  23.                                 CHR(217) + CHR(196) + CHR(192) + CHR(179) )
  24.  
  25. // No border (uses space character)
  26. #define B_NONE       ( CHR(32) + CHR(32) + CHR(32) + CHR(32) + ;
  27.                                 CHR(32) + CHR(32) + CHR(32) + CHR(32) )
  28.  
  29. // Single-line box
  30. #define B_SINGLE     ( CHR(218) + CHR(196) + CHR(191) + CHR(179) + ;
  31.                                 CHR(217) + CHR(196) + CHR(192) + CHR(179) )
  32.  
  33. // Double-line box
  34. #define B_DOUBLE     ( CHR(201) + CHR(205) + CHR(187) + CHR(186) + ;
  35.                                 CHR(188) + CHR(205) + CHR(200) + CHR(186) )
  36.  
  37. #define  _CRLF          CHR(13) + CHR(10)
  38. #define  _TAB           CHR(9)
  39.  
  40. //
  41. // Remap SAVESCREEN/RESTSCREEN, DISPBEGIN/DISPEND, and SCROLL
  42. //
  43. #xtranslate SETMODE( <rows>, <cols> ) => M_SetMode( <rows>, <cols> )
  44.  
  45. #xtranslate SAVESCREEN( <top>, <left>, <bottom>, <right> )     ;
  46.             => M_SaveScreen( <top>, <left>, <bottom>, <right> )
  47.  
  48. #xtranslate SAVESCREEN() => M_SaveScreen()
  49.  
  50.  
  51. #xtranslate RESTSCREEN( <top>, <left>, <bottom>, <right>, <screen> )       ;
  52.             => M_RestScreen( <top>, <left>, <bottom>, <right>, <screen> )
  53.  
  54. #xtranslate DISPBEGIN() => M_Disp( 0 )
  55.  
  56. #xtranslate DISPEND() => M_Disp( 1 )
  57.  
  58. #xtranslate SCROLL( <top>, <left>, <bottom>, <right>, <rows> )             ;
  59.             => M_Scroll( <top>, <left>, <bottom>, <right>, <rows> )
  60.  
  61. #xtranslate CLS => M_Scroll(); SetPos(0,0)
  62.  
  63. #xtranslate CLEAR SCREEN => CLS
  64.  
  65. #xtranslate @ <top>, <left> CLEAR TO <bottom>, <right>                     ;
  66.         => M_Scroll( <top>, <left>, <bottom>, <right> );                     ;
  67.             SetPos( <top>, <left> )
  68.