An On-Screen Interrupt driven clock display
Copyright(c) 1990, 3P Software, Inc.
3PXCLOCK.OBJ contains the function CLOCK() which is a multi-purpose interrupt driven clock display that is included with the 3PX Library for Clipper. This function may be used without 3PX and is supplied for your use under the following conditions:
1) THIS CODE MAY NOT BE SOLD.
2) 3P Software's Copyright information is included in
your application source as follows:
* CLOCK() Function - Copyright(c) 1990, 3P Software, Inc.
HOW TO USE CLOCK()
3PXCLOCK.OBJ must be included with your application at link time. Due to the interrupt driven nature of the code, and the need to initialize data areas before use, it is not recommended that this code module be placed into .LIB format. CLOCK() uses interrupt 1CH and MUST BE DISABLED BEFORE PROGRAM EXECUTION IS TERMINATED OR YOUR SYSTEM MAY CRASH.
If you are using CLOCK() it is a good practice to insert the following code fragment into the ERRORSYS.PRG, re-compile it, and use it as an alternate error system. The code fragment should be inserted wherever your error system will halt program execution.
IF CLOCK() # 0
SYNTAX FOR CLOCK()
CLOCK() accepts 4 parameters which must be supplied when starting the CLOCK() display. After the initial startup, all parameters are optional and may be used as follows:
Parameter 1 = Logical, TRUE = ON, FALSE = OFF
Parameter 2 = Numeric ROW to use for display
Parameter 3 = Numeric COLUMN for display
Parameter 4 = Numeric ATTRIBUTE for display
CLOCK() returns a numeric status as follows:
-99 = Bad parameters
0 = OFF
1 = ON
Calling CLOCK() without any parameters will return the current state of the display. Calling CLOCK() with just the first parameter will enable or disable the display. (You must clear the area of the screen via program control after CLOCK() is disabled)
* This turns CLOCK() ON at 0,60 with black on white
* Suspends display & turns OFF
* Enables display & turns ON
* Returns current status