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

    Clock()

         Un/Installs a resident clock

    Syntax:

         Clock( [lActive], [nPosY], [nPosX], [cColor] ) -> lIsActive

         lActive : A logic value indicating if we want to activate (.T.) or
                   desactivate (.F.) the watch.
                   If parameter is Nil, Clock() returns the actual mode.
         nPosY   : Row position. By default 0.
         nPosX   : Column position. By default 70.
         cColor  : Clock color. By default "GR+/B"

    Description:

         Shows a watch without the programmer action.

    Return:

         The actual watch mode. .T. active and .F. inactive.

    Example:

         Clock( .T., 0, 1, "W/B" )  // installs the clock on row 0, column 1
                                    // color "W/B"
         Inkey( 0 )
         Clock( .F. )