{***********************************************************************}
{									}
{ __BordScn   Set the border color					}
{									}
{ procedure __BordScn(Color : byte);					}
{									}
{	      Color  The color to which the border is set; it may be	}
{		     any value between 0 and 15.			}
{									}
{ Description This procedure makes a call to the VIDEO BIOS to set the	}
{	      border color.  It can only be used if a color device is	}
{	      the current device, making the appropriate BIOS call as	}
{	      required.  No action is taken for devices which do not	}
{	      support a border (MCGA and monochrome).			}
{	      Note that no error checking is done on Color, the input	}
{	      parameter.						}
{									}
{ Version     4.00 (C)Copyright Blaise Computing Inc. 1987		}
{_______________________________________________________________________}

procedure __BordScn(Color : byte);


  var
    Device	: integer;
    Mode	: byte;
    Rows,Cols	: byte;
    DPage,APage : byte;
    Reg 	: registers;

  begin {__BordScn}

    with Reg do
      if (_CurDevice = _ColorAdapter) then
	 begin
	   AX := $0B00;
	   BH := $00;
	   BL := Color and $0F
	 end
      else if ((_CurDevice = _EgaAdapter) or
			    (_CurDevice = _VgaAdapter)) then
	 begin
	   AX := $1001;
	   BH := Color and $0F
	 end
      else
	 Exit;

    Intr(_VIDEO,Reg)

  end;	{__BordScn}
