home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / forth / compiler / fpc / source / tcolor.seq < prev    next >
Text File  |  1989-11-22  |  1KB  |  35 lines
  1. \ TCOLOR.SEQ     Color board support for TCOM            by Tom Zimmer
  2.  
  3. \ For Color boards, the following values may be used for background
  4. \ or forground.
  5.  
  6. FORTH DECIMAL TARGET >LIBRARY       \ A Library file
  7.  
  8. \                       16 COLOR MODE   4 COLOR MODE
  9. $00 CONSTANT BLACK       \ black        \ CGA black
  10. $01 CONSTANT BLUE        \ blue         \ CGA cyan
  11. $02 CONSTANT GREEN       \ green        \ CGA magenta
  12. $03 CONSTANT CYAN        \ cyan         \ CGA white
  13. $04 CONSTANT RED         \ red
  14. $05 CONSTANT MAGENTA     \ magenta
  15. $06 CONSTANT BROWN       \ brown
  16. $07 CONSTANT LTGRAY      \ light gray
  17.  
  18. $08 CONSTANT DKGRAY      \ dark gray   All following, blink in Background.
  19. $09 CONSTANT LTBLUE      \ light blue
  20. $0A CONSTANT LTGREEN     \ light green
  21. $0B CONSTANT LTCYAN      \ light cyan
  22. $0C CONSTANT LTRED       \ light red
  23. $0D CONSTANT LTMAGENTA   \ light magenta
  24. $0E CONSTANT YELLOW      \ yellow
  25. $0F CONSTANT WHITE       \ white
  26.  
  27. : >FG           ( N1 --- )
  28.                 attrib c@ $F0 and + attrib c! ;
  29.  
  30. : >BG           ( N1 --- )
  31.                 $10 * attrib c@ $0F and + attrib c! ;
  32.  
  33. FORTH TARGET >TARGET
  34.  
  35.