{***********************************************************************}
{									}
{ __GotoScn   Position the cursor on the current display screen.	}
{									}
{ procedure __GotoScn(X,Y : byte);					}
{									}
{	      X,Y	The row and column where the cursor is posi-	}
{			tioned on the current display page.  The rows	}
{			are numbered 1 to 50 and columns are numbered	}
{			1 to 80. X is the column number and Y is the	}
{			row number.					}
{									}
{ Description This procedure sets the cursor to the position specified	}
{	      by X and Y.  __GotoScn differs from the Turbo Pascal	}
{	      intrinsic function GotoXY in that this procedure alters	}
{	      the cursor position on the current display page.	GotoXY	}
{	      only accesses page 0.  Note, however, that the current	}
{	      display page must equal the active page for the cursor	}
{	      to physically move.  Unlike GotoXY, cursor movement is	}
{	      not relative to the current window.  (Use the procedure	}
{	      __GotoWin if movement relative to the current window is	}
{	      desired).  Notice that no error checking is done for the	}
{	      parameters X and Y.					}
{									}
{ Version     4.00 (C)Copyright Blaise Computing Inc.  1987		}
{_______________________________________________________________________}

procedure __GotoScn(X,Y : byte);

  var
    Reg : registers;

  begin {__GotoScn}

    with Reg do
      begin
	AH := $02;		       { Call BIOS VIDEO with		}
	BH := _CurDisplayPage;	       { subfunction 2. 		}
	DH := Y - 1;
	DL := X - 1;
      end;
    Intr(_VIDEO,Reg)

  end;	{__GotoScn}
