home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Professional / OS2PRO194.ISO / os2 / prgramer / forth_32 / ansi.4th next >
Encoding:
Text File  |  1993-03-19  |  1.1 KB  |  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.