home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TOOL_INC.ZIP / ANSICOLR.INT < prev    next >
Encoding:
Text File  |  1988-01-29  |  1.1 KB  |  50 lines
  1.  
  2. function color(control: anystring): longstring;
  3.    {form an ansi color command}
  4.  
  5. procedure load_color_constants(name: string);
  6.    {load a new set of color constants}
  7.  
  8.  
  9. procedure position(x,y: byte);
  10.    {position cursor}
  11.  
  12. procedure clear_screen;
  13.    {easee screen in current color}
  14.  
  15. procedure clear_eol;
  16.    {clear to end of line}
  17.  
  18.  
  19. {color selection macros}
  20. function RED:     longstring;
  21. function GREEN:   longstring;
  22. function YELLOW:  longstring;
  23. function BLUE:    longstring;
  24. function MAGENTA: longstring;
  25. function CYAN:    longstring;
  26. function WHITE:   longstring;
  27. function GRAY:    longstring;
  28. function GREY:    longstring;
  29.  
  30.  
  31. {color selection constants}
  32. type
  33.    color_string = string[10];
  34.  
  35.  
  36. {default colors}
  37. const
  38.    ansi_RED:     color_string = '1;31';
  39.    ansi_GREEN:   color_string = '1;32';
  40.    ansi_YELLOW:  color_string = '1;33';
  41.    ansi_BLUE:    color_string = '1;34';
  42.    ansi_MAGENTA: color_string = '1;35';
  43.    ansi_CYAN:    color_string = '1;36';
  44.    ansi_WHITE:   color_string = '1;37';
  45.    ansi_GRAY:    color_string = '0;37';
  46.  
  47. var
  48.    graphics:  boolean;  {is graphics mode active?}
  49.  
  50.