home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / TURBOPAS / INTR_DMO.ZIP / CLR-ATTR.INC next >
Encoding:
Text File  |  1985-10-01  |  1.8 KB  |  53 lines
  1. { CLR-ATTR.INC  Video attribute control routines for Color systems.
  2.                 Replace STD-ATTR.INC with this file and recompile
  3.                 to create a color version. Note that if TSCREENs
  4.                 created with the monochrome version (.TSM) are to
  5.                 be used they must be renamed to .TSC files. Type
  6.                 ren *.TSM *.TSC at the DOS level to rename all the
  7.                 files at once. }
  8.  
  9. const  REVERSE_VID = $1F;  { Reverse video attribute }
  10.                            { Intense White on Blue }
  11.        BRIGHT_VID  = $70;  { Normal video attribute }
  12.                            { Black on Grey. }
  13.        DIM_VID     = $71;  { Low video attribute }
  14.                            { Blue on Grey. }
  15.        BLINK_VID   = $F1;  { Blinking Video attribute }
  16.                            { Blinking Blue on Grey. }
  17.  
  18.        NORM_BGND   = WHITE;
  19.        REV_BGND    = BLUE;
  20.        NORM_FGND   = BLACK;
  21.        DIM_FGND    = BLUE;
  22.        BLINK_FGND  = $1F;
  23.  
  24.        SCR_EXT     = '.TSC'; { File exetension for color screens.}
  25.        VID_SEG     = $B800;  { Segment address of video memory.}
  26.        VID_OFFS    = $0000;  { Offset address of video memory. }
  27.  
  28. var    vid_attr : Byte;
  29.  
  30.   procedure Norm_Video;
  31.     begin
  32.       vid_attr := BRIGHT_VID;
  33.       TextColor(NORM_FGND); TextBackground(NORM_BGND);
  34.     end; { Norm_Video }
  35.  
  36.   procedure Low_Video;
  37.     begin
  38.       vid_attr := DIM_VID;
  39.       TextColor(DIM_FGND); TextBackground(NORM_BGND);
  40.     end; { Low_Video }
  41.  
  42.   procedure Blink_Video;
  43.     begin
  44.       vid_attr := BLINK_VID;
  45.       TextColor(BLINK_FGND); TextBackground(REV_BGND);
  46.     end { Blink_Video };
  47.  
  48.   procedure Rev_Video;
  49.     begin
  50.       vid_attr := REVERSE_VID;
  51.       TextColor(NORM_BGND); TextBackground(REV_BGND);
  52.     end { Rev_Video };
  53.