home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / TURBOPAS / INTR_DMO.ZIP / STD-ATTR.INC < prev    next >
Encoding:
Text File  |  1985-10-01  |  1.4 KB  |  46 lines
  1. { STD-ATTR.INC  Video attribute control routines system. }
  2.  
  3. const  REVERSE_VID = $70;    { Reverse video attribute }
  4.                              { Black on White }
  5.        BRIGHT_VID  = $0F;    { Normal video attribute }
  6.                              { Intense White on Black }
  7.        DIM_VID     = $07;    { Low video attribute }
  8.                              { Dim White on Black }
  9.        BLINK_VID   = $8F;    { Blinking Video attribute }
  10.                              { Blinking White on Black. }
  11.        NORM_BGND   = BLACK;
  12.        REV_BGND    = WHITE;
  13.        NORM_FGND   = WHITE;
  14.        DIM_FGND    = LIGHTGRAY;
  15.        BLINK_FGND  = $10;
  16.  
  17.        SCR_EXT     = '.TSM'; { File exetension for mono screens.}
  18.        VID_SEG     = $B000;  { Segment address of video memory.}
  19.        VID_OFFS    = $0000;  { Offset address of video memory. }
  20.  
  21. var    vid_attr : Byte;
  22.  
  23.   procedure Norm_Video;
  24.     begin
  25.       vid_attr := BRIGHT_VID;
  26.       TextColor(NORM_FGND); TextBackground(NORM_BGND);
  27.     end; { Norm_Video }
  28.  
  29.   procedure Low_Video;
  30.     begin
  31.       vid_attr := DIM_VID;
  32.       TextColor(DIM_FGND); TextBackground(NORM_BGND);
  33.     end; { Low_Video }
  34.  
  35.   procedure Blink_Video;
  36.     begin
  37.       vid_attr := BLINK_VID;
  38.       TextColor(BLINK_FGND); TextBackground(REV_BGND);
  39.     end { Blink_Video };
  40.  
  41.   procedure Rev_Video;
  42.     begin
  43.       vid_attr := REVERSE_VID;
  44.       TextColor(NORM_BGND); TextBackground(REV_BGND);
  45.     end { Rev_Video };
  46.