/*
 * $Id: vidcur.txt 15102 2010-07-14 12:48:39Z vszakats $
 */

/*  $DOC$
 *  $FUNCNAME$
 *     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$
 *  $FUNCNAME$
 *     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
 *     QOut("Row: " + str( aCurInfo[3] ) + "  Col: " + str( aCurInfo[4] ) )
 * 
 * 
 *  $END$
 */
