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