/* $DOC$
   $NAME$
      ft_SetVPg()
   $CATEGORY$
      Video
   $ONELINER$
      Set the current video page
   $SYNTAX$
      ft_SetVPg( <nPage> ) -> NIL
   $ARGUMENTS$
      <nMode> is a valid video page.
   $RETURNS$
      NIL
   $DESCRIPTION$
      Selects the video page.

      For more information on graphics programming and video pages,
      consult a reference such as "Programmer's Guide to PC and PS/2
      Video Systems" (Microsoft Press).
   $EXAMPLES$
      // The following sets the current video page to 1

      ft_SetVPg( 1 )
   $SEEALSO$
      ft_GetVPg()
   $END$
 */

/* $DOC$
   $NAME$
      ft_GetVPg()
   $CATEGORY$
      Video
   $ONELINER$
      Get the currently selected video page
   $SYNTAX$
      ft_GetVPg() -> <nPage>
   $ARGUMENTS$
      None.
   $RETURNS$
      The video page, as a numeric.
   $DESCRIPTION$
      Get the currently selected video page

      For more information on graphics programming and video pages,
      consult a reference such as _Programmer's Guide to PC and PS/2
      Video Systems_ (Microsoft Press).

   $EXAMPLES$
      nPage := ft_GetVPg()
   $SEEALSO$
      ft_SetVPg()
   $END$
 */