{***********************************************************************}
{									}
{ __BlinkScn  Alter the meaning of bit 7 of the attribute byte		}
{									}
{ procedure __BlinkScn(BlinkOn : boolean);				}
{									}
{	      BlinkOn	If TRUE, bit 7 of the attribute byte controls	}
{			foregound blinking.  If FALSE, the bit is	}
{			interpreted to control background intensity.	}
{									}
{ Description The function controls the role of the attribute bit 7	}
{	      as used in the text modes on the EGA and VGA adapters.	}
{									}
{	      If BlinkOn is TRUE, bit 7 controls the blinking of the	}
{	      character.  This is the default condition established	}
{	      when the video adapter is reset.	In this state, eight	}
{	      colors, as specified by bits 4 - 6, are available.	}
{									}
{	      If BlinkOn is FALSE, bit 7 is used only with bits 4 - 6	}
{	      to specify the background color.	This allows a choice	}
{	      of the same sixteen background colors as are available	}
{	      for the foreground.  In this case, blinking is not	}
{	      available.						}
{									}
{	      __BlinkScn has no effect unless the current device is	}
{	      either the EGA or VGA adapters.				}
{									}
{ Version     4.00 (C)Copyright Blaise Computing Inc.  1987		}
{_______________________________________________________________________}

procedure __BlinkScn(BlinkOn : boolean);

  var
    Reg : registers;

  begin {BlinkScn}

    if ((_CurDevice = _EgaAdapter) or (_CurDevice = _VgaAdapter)) then
       with Reg do
	 begin
	   AH := $10;
	   AL := $03;
	   BL := byte(BlinkOn);
	   Intr(_VIDEO,Reg)
	 end

  end;	{BlinkScn}
