home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / forth040.zip / ANSI.4TH next >
Text File  |  1993-03-26  |  1KB  |  44 lines
  1. \ ANSI Escape Sequence Drivers for Forth/2                01/12/93 BBM
  2. \ Copyright (c) 1993  BLUE STAR SYSTEMS
  3.  
  4.  
  5. : ANSI. ( n -- ) ABS <# #S #> TYPE ;
  6. : ESCAPE         27 EMIT ;
  7. : XY  ( row col -- ) ESCAPE ." ["  SWAP ANSI.  59 EMIT  ANSI.  72 EMIT ;
  8.  
  9. : +XY ( +row +col ) ?DUP IF  ESCAPE ." ["  DUP  ANSI.  0 > 68 + EMIT  THEN
  10.                     ?DUP IF  ESCAPE ." ["  DUP  ANSI.  0 < 66 + EMIT  THEN ;
  11.  
  12. : CEOL ( Clear to End Of Line ) ESCAPE  ." [K" ;
  13.  
  14. : IS  CONSTANT ;
  15.  
  16. 1 IS BOLD     ( Attributes. )
  17. 2 IS DIM
  18. 3 IS ITALIC
  19. 5 IS BLINK
  20. 7 IS REV
  21. 8 IS BLANK
  22.  
  23. 0 IS BLACK    ( Text and background colors. )
  24. 1 IS RED
  25. 2 IS GREEN
  26. 3 IS YELLOW
  27. 4 IS BLUE
  28. 5 IS MAGNETA
  29. 6 IS CYAN
  30. 7 IS WHITE
  31.  
  32. : ATTR   ( attribute ) ESCAPE ." [" ANSI. ." m" ;  \ Ex:  BOLD ATTR
  33. : TEXT       ( color ) 30 + ATTR ;                 \ Ex:  YELLOW TEXT
  34. : BACKGROUND ( color ) 40 + ATTR ;                 \ Ex:  BLUE BACKGROUND
  35.  
  36. : SAVE-CURSOR   ESCAPE  ." [s" ;  \ Save    cursor position
  37. : REST-CURSOR   ESCAPE  ." [u" ;  \ Restore cursor position
  38.  
  39. \ Example:
  40. \
  41. \  RED TEXT   BOLD   BLACK BACKGROUND
  42.  
  43.  
  44.