home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / FFA.ZIP / MONOCROM.SEQ < prev    next >
Encoding:
Text File  |  1987-11-25  |  1.3 KB  |  36 lines
  1. \ MONOCROM.SEQ  Monochrome support words                by Tom Zimmer
  2.  
  3. \ Video attribute control mechanism for monochrome by Tom Zimmer
  4.  
  5. HEX
  6.  
  7. : >NONE         ( --- ) 07 ATTRIB C! ;          \ NORMAL
  8. : >UL           ( --- ) 01 ATTRIB C! ;          \ UNDERLINE
  9. : >REV          ( --- ) 78 ATTRIB C! ;          \ REVERSE
  10. : >BOLD         ( --- ) 7F ATTRIB C! ;          \ BRIGHT
  11. : >BOLDUL       ( --- ) 79 ATTRIB C! ;          \ BOLD UNDERLINE
  12. : >BOLDBLNK     ( --- ) 8F ATTRIB C! ;          \ BOLD BLINK
  13. : >REVBLNK      ( --- ) F0 ATTRIB C! ;          \ REVERSE BLINK
  14.  
  15. \       Some extra words, not loaded for now.
  16.  
  17. \ : >BOLDBLNKUL   ( --- ) 89 ATTRIB C! ;          \ BOLD BLINK & UNDERLINE
  18. \ : >BLINK        ( --- ) 87 ATTRIB C! ;          \ BLINK
  19. \ : >BLANK        ( --- ) 00 ATTRIB C! ;          \ BLANK, NO DISPLAY
  20.  
  21. ' >NONE IS >NORM
  22.  
  23. >NORM           \ Default to Normal video.
  24.  
  25. : >MONO         ( --- )         \ Select hilighting for monochrome monitor.
  26.                 ['] >UL     IS >ATTRIB1
  27.                 ['] >BOLDUL IS >ATTRIB2
  28.                 ['] >BOLD   IS >ATTRIB3
  29.                 ['] >REV    IS >ATTRIB4 ; >MONO
  30.  
  31. ' >MONO IS INITMONO     \ Enable attributes according to video board.
  32.  
  33. ' >MONO IS INITCOLOR    \ Enable attributes SAME AS MONO FOR NOW.
  34.  
  35. DECIMAL
  36.