Click above to get retro games delivered to your door ever month!

 Use a BIG Clock as a screen saver
------------------------------------------------------------------------------

 Syntax

        GT_Clock([<nDelay>],[<cColor>],[<lCLS>],[<nTop>],[<nLeft>], ;
                 [<nXMove>],[<nYMove>]) --> NIL

 Arguments:

      <nDelay> is an optional numeric parameter that is the delay to
      use when updating the display. This is in 1/18ths of a second.
      If not supplied this parameter defaults to 1.

      <cColor> is an optional colour string.  If not supplied this
      defaults to "G+/N"  (Bright Green on Black)

      <lCLS> is an optional logical parameter that instructs the saver
      to clear the screen first, if the value is .T. then the screen is
      cleared, if .F. then the clock will be displayed over the current
      screen contents.  This defaults to .T.

      <nTop> is an optional numeric parameter that tells the save where
      to start displaying the clock.  (Top Line)

      <nLeft> is an optional numeric parameter that tells the saver where
      to start displaying the clock.  (1st Column)

      <nXMove> is an optional numeric parameter that tells the saver how
      many columns to move on each increment.  If this is set to 0, and
      nYMove is set to 1, the clock will just bounce up and down. This
      defaults to 1.

      <nYMove> is an optional numeric parameter that tells the saver how
      many lines to move on each increment.  If this is set to 0, and
      nXmove is set to 1, the clock will just bounce right to left. This
      defaults to 1.


 Returns:

      Nothing.

 Description:

      GT_Clock() is a screen saver function.  It has the ability of being
      altered a great deal by the passed parameters.  The screen saver
      will terminate if a GT_Interrupt() codeblock has been sets up and
      evaluates TRUE; or if a default codeblock of any key pressed becomes
      true.

      This function calls GT_BigTime()   to display the clock
                          GT_Interrupt() to interrogate completion
                          GT_SaveScr()   to save the screen
                          GT_RestScr()   to restore the screen

 Examples:

      // Call the screen saver with a delay of 1 second, displaying the
      // clock over the current screen.  The Clock will be displayed at
      // line 10, and will bounce from right to left.

      GT_Clock(1,,.f.,10,,1,0)

 Source: GTCLOCK.PRG

 Author:  Brian Dukes