home *** CD-ROM | disk | FTP | other *** search
/ Phoenix CD 2.0 / Phoenix_CD.cdr / 24b / machinfo.zip / CHARATTR.TUR < prev    next >
Text File  |  1986-04-27  |  1KB  |  65 lines
  1. {  CHARATTR.TUR
  2.  
  3.    By:  Drew O. Letcher
  4.         Iowa City, IA
  5.         April, 1986
  6.  
  7.    These routines will work on both the monochrome and color monitors.
  8.    Though, monochrome underline will blue on the color monitor.
  9.    IF you use these routines don't use the TURBO procedures NormVideo and
  10.    LowVideo in your routines.
  11.  
  12. }
  13.  
  14. { Typed } CONST
  15.    TColor  :  byte = white;
  16.    BColor  :  byte = black;
  17.  
  18. PROCEDURE  HighIntensity;
  19.  
  20.    BEGIN
  21.    NormVideo;
  22.    TColor := white;
  23.    BColor := black;
  24.    TextColor( TColor );
  25.    TextBackground( BColor );
  26.    END;
  27.  
  28. PROCEDURE  LowIntensity;
  29.  
  30.    BEGIN
  31.    LowVideo;
  32.    TColor := lightgray;
  33.    BColor := black;
  34.    TextColor( TColor );
  35.    TextBackground( BColor );
  36.    END;
  37.  
  38. PROCEDURE  Blinking;
  39.    BEGIN
  40.    TColor := TColor OR Blink;   { Blink is a Turbo predeclared CONST }
  41.    TextColor( TColor );
  42.    END;
  43.  
  44. PROCEDURE  ReverseVideo;
  45.    BEGIN
  46.    TColor := TColor AND $F8;
  47.    BColor := BColor OR  $07;
  48.    TextColor( TColor );
  49.    TextBackground( BColor );
  50.    END;
  51.  
  52. PROCEDURE  UnderlineVideo;
  53.    BEGIN
  54.    TColor := TColor AND $88;
  55.    TColor := TColor OR  $01;
  56.    TextColor( TColor );
  57.    END;
  58.  
  59. PROCEDURE  HideVideo;
  60.    BEGIN
  61.    TextColor( black );
  62.    TextBackGround( black );
  63.    END;
  64.  
  65.