{***********************************************************************}
{									}
{ __DisPgScn  Set the display page.					}
{									}
{ procedure __DisPgScn(DisplayPage : byte);				}
{									}
{	      DisplayPage The number of the page to be made the current }
{			  display page. 				}
{									}
{ Description Many of the TOOLS screen handling functions refer to the	}
{	      current display page, which need not be active.  The	}
{	      standard Turbo Pascal screen functions alter only page 0. }
{	      Multiple pages only exist for the color text modes,	}
{	      and there are 4 (8 for the EGA with more than 64K 	}
{	      installed and for the VGA and MCGA) display pages in 80	}
{	      column text mode, and eight in 40 column text mode.	}
{	      __DisPgScn simply alters the Unit_Scn exported global	}
{	      variable _CurDisplayPage.  The other TOOLS screen handling}
{	      procedures refer to this variable.  If DisplayPage is not }
{	      in a proper range, _CurDisplayPage is not altered.	}
{	      _CurDisplayPage is set to 0 at by the unit initialization.}
{									}
{ Version     4.00 (C)Copyright Blaise Computing Inc. 1987		}
{_______________________________________________________________________}

procedure __DisPgScn(DisplayPage : byte);

  begin {__DisPgScn}

    if ((DisplayPage <= _MaxDisplayPage) and (DisplayPage >= 0)) then
       _CurDisplayPage := DisplayPage

  end;	{__DisPgScn}
