\ MONOCROM.SEQ  Monochrome support words                by Tom Zimmer

\ Video attribute control mechanism for monochrome by Tom Zimmer

HEX

: >NONE         ( --- ) 07 ATTRIB C! ;          \ NORMAL
: >UL           ( --- ) 01 ATTRIB C! ;          \ UNDERLINE
: >REV          ( --- ) 78 ATTRIB C! ;          \ REVERSE
: >BOLD         ( --- ) 7F ATTRIB C! ;          \ BRIGHT
: >BOLDUL       ( --- ) 79 ATTRIB C! ;          \ BOLD UNDERLINE
: >BOLDBLNK     ( --- ) 8F ATTRIB C! ;          \ BOLD BLINK
: >REVBLNK      ( --- ) F0 ATTRIB C! ;          \ REVERSE BLINK

\       Some extra words, not loaded for now.

\ : >BOLDBLNKUL   ( --- ) 89 ATTRIB C! ;          \ BOLD BLINK & UNDERLINE
\ : >BLINK        ( --- ) 87 ATTRIB C! ;          \ BLINK
\ : >BLANK        ( --- ) 00 ATTRIB C! ;          \ BLANK, NO DISPLAY

' >NONE IS >NORM

>NORM           \ Default to Normal video.

: >MONO         ( --- )         \ Select hilighting for monochrome monitor.
                ['] >UL     IS >ATTRIB1
                ['] >BOLDUL IS >ATTRIB2
                ['] >BOLD   IS >ATTRIB3
                ['] >REV    IS >ATTRIB4 ; >MONO

' >MONO IS INITMONO     \ Enable attributes according to video board.

' >MONO IS INITCOLOR    \ Enable attributes SAME AS MONO FOR NOW.

DECIMAL