/* $DOC$
   $NAME$
      ft_SetVCur()
   $CATEGORY$
      Video
   $ONELINER$
      Set the cursor position on a specified video page
   $SYNTAX$
      ft_SetVCur( [ <nPage> ], [ <nRow> ], [ <nCol> ] ) -> NIL
   $ARGUMENTS$
      <nPage> is the video page (defaults to current page, determined
              by ft_GetVPg()

      <nRow>  is the row coordinate (defaults to 0 )

      <nCol>  is the column coordinate (defaults to 0 )
   $RETURNS$
      NIL
   $DESCRIPTION$
      ft_SetVCur() sets the cursor position on a specific video page.
      It uses ft_int86() to invoke interrupt 10h, function 2.

      For more information on graphics programming, cursors, and video
      pages, refer to Richard Wilton's _Programmer's Guide to PC and
      PS/2 Video Systems_ (Microsoft Press).

   $EXAMPLES$
      // Set the position to row 5, column 10 on video page 1:

      ft_SetVCur( 1, 5, 10 )
   $END$
 */

/* $DOC$
   $NAME$
      ft_GetVCur()
   $CATEGORY$
      Video
   $ONELINER$
      Return info about the cursor on a specified video page
   $SYNTAX$
      ft_GetVCur( [<nPage>] ) -> <aCurInfo>
   $ARGUMENTS$
      <nPage> is the video page to get the cursor information for.
      Defaults to the current page, as returned by ft_GetVPg().
   $RETURNS$
      A four-element array (<aCurInfo>), set up as follows:

      aCurInfo[ 1 ] = Top line of cursor
      aCurInfo[ 2 ] = Bottom line of cursor
      aCurInfo[ 3 ] = Character row
      aCurInfo[ 4 ] = Character column

   $DESCRIPTION$
      ft_GetVCur() uses ft_int86() to invoke interrupt 10h, function
      3, to return the character cursor location for the specified
      video page.

      The top line and bottom line of cursor are set depending on
      the current cursor mode, and are only meaningful in alphanumeric
      video modes.

      For more information on graphics programming, cursors, and
      cursor modes, refer to Richard Wilton's _Programmer's Guide to
      PC and PS/2 Video Systems_ (Microsoft Press).

   $EXAMPLES$
      aCurInfo := getVCur( 1 )    // Get info on cursor pos in page 1
      ? "Row:", aCurInfo[ 3 ], " Col:", aCurInfo[ 4 ]
   $END$
 */