9687850865
* (all files)
* stripped svn header
* minor cleanups
; use following command to find out the history of files:
git log
git log --follow
git blame
git annotate
33 lines
634 B
Plaintext
33 lines
634 B
Plaintext
/*
|
|
* Author....: Leo Letendre
|
|
* CIS ID....: 73607,233
|
|
*
|
|
* This is an original work by Leo Letendre and is placed in the
|
|
* public domain.
|
|
*
|
|
* Modification history:
|
|
* ---------------------
|
|
*
|
|
* Rev 1.1 17 Oct 1992 16:18:18 GLENN
|
|
* Leo cleaned up the doc and file header.
|
|
*
|
|
* Rev 1.0 01 Jul 1992 02:19:12 GLENN
|
|
* Initial revision.
|
|
*
|
|
*/
|
|
|
|
FUNCTION ft_Sleep( nSeconds, nInitial )
|
|
|
|
IF HB_ISNUMERIC( nInitial )
|
|
nInitial -= Seconds()
|
|
IF nInitial > 0
|
|
nInitial -= 86399
|
|
ENDIF
|
|
// calculate final time
|
|
nSeconds += ninitial
|
|
ENDIF
|
|
|
|
hb_idleSleep( nSeconds )
|
|
|
|
RETURN NIL
|