home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / FFA.ZIP / COLOR.SEQ < prev    next >
Encoding:
Text File  |  1987-12-21  |  1.4 KB  |  48 lines
  1. \ COLOR.SEQ     Color board support for ZF              by Tom Zimmer
  2.  
  3. \ For Color boards, the following values may be used for background
  4. \ or forground.
  5.  
  6. HEX
  7.  
  8. 00 CONSTANT BLACK       \ black
  9. 01 CONSTANT BLUE        \ blue
  10. 02 CONSTANT GREEN       \ green
  11. 03 CONSTANT CYAN        \ cyan
  12. 04 CONSTANT RED         \ red
  13. 05 CONSTANT MAGENTA     \ magenta
  14. 06 CONSTANT BROWN       \ brown
  15. 07 CONSTANT LTGRAY      \ light gray
  16. 08 CONSTANT DKGRAY      \ dark gray   All following, blink in Background.
  17. 09 CONSTANT LTBLUE      \ light blue
  18. 0A CONSTANT LTGREEN     \ light green
  19. 0B CONSTANT LTCYAN      \ light cyan
  20. 0C CONSTANT LTRED       \ light red
  21. 0D CONSTANT LTMAGENTA   \ light magenta
  22. 0E CONSTANT YELLOW      \ yellow
  23. 0F CONSTANT WHITE       \ white
  24.  
  25. : >FG           ( N1 --- )
  26.                 attrib c@ F0 and + attrib c! ;
  27.  
  28. : >BG           ( N1 --- )
  29.                 10 * attrib c@ 0F and + attrib c! ;
  30.  
  31. : >BUGN         ( --- ) BLUE  >BG GREEN >FG ;
  32. : >RDWT         ( --- ) RED   >BG WHITE >FG ;
  33. : >BUWT         ( --- ) GREEN >BG WHITE >FG ;
  34.  
  35. : >COLOR        ( --- )         \ Select hilighting for color monitor.
  36.                 ['] >BUGN IS >ATTRIB1
  37.                 ['] >RDWT IS >ATTRIB2
  38.                 ['] >BUWT IS >ATTRIB3
  39.                 ['] >RDWT IS >ATTRIB4 ;
  40.  
  41. ' >COLOR IS INITCOLOR   \ Enable attributes according to video board.
  42.  
  43. VMODE.SET               \ RESET VIDEO MODE TO CURRENT VIDEO BOARD.
  44.  
  45. DECIMAL
  46.  
  47.  
  48.