{***********************************************************************}
{									}
{ __ActPgScn  Set the active display page.				}
{									}
{ procedure __ActPgScn(ActivePage : byte);				}
{									}
{	      ActivePage The number of the page to be made active.	}
{									}
{ Description The active page is the page which is displayed.  Although }
{	      other pages may be written to, only the active page can	}
{	      be scrolled or have the cursor physically move.  The	}
{	      active page is always zero for the monochrome adapter,	}
{	      and does not have meaning in graphics modes.  In 40	}
{	      column text mode, the active page number must be between	}
{	      0 and 7, and between 0 and 3 in 80 column mode,  or	}
{	      between 0 and 7 if the VGA or MCGA is installed or an EGA }
{	      is used and has more than 64K installed. If the ActivePage}
{	      parameter is not within proper range, the active page is	}
{	      not altered.						}
{									}
{ Version     4.00 (C)Copyright Blaise Computing Inc. 1987		}
{_______________________________________________________________________}

procedure __ActPgScn(ActivePage : byte);

  var
    Reg : registers;

  begin {__ActPgScn}

    if ((ActivePage <= _MaxDisplayPage) and (ActivePage >= 0)) then
       begin
	 Reg.AH := $05; 			    { AH = 5 and	}
	 Reg.AL := ActivePage;			    { AL = ActivePage	}
	 Intr(_VIDEO,Reg);
	 _CurActivePage := ActivePage
       end

  end;	{__ActPgScn}
