8f26186de1
* contrib/hbnf/rand1.prg
* contrib/hbnf/mouse1.prg
* contrib/hbnf/pegs.prg
* contrib/hbnf/menu1.prg
* contrib/hbnf/popadder.prg
* contrib/hbnf/scregion.prg
* contrib/hbnf/mouse2.prg
* contrib/hbnf/menutonf.prg
* contrib/hbnf/pvid.prg
* contrib/hbnf/datecnfg.prg
* contrib/hbnf/ntow.prg
* contrib/hbnf/pending.prg
! fixed STATICs for MT
* marked const STATICs as such
51 lines
1009 B
Plaintext
51 lines
1009 B
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
/*
|
|
* File......: rand1.prg
|
|
* Author....: Gary Baren
|
|
* CIS ID....: 75470,1027
|
|
*
|
|
* This is an original work by Gary Baren and is hereby placed in the
|
|
* public domain.
|
|
*
|
|
* Modification history:
|
|
* ---------------------
|
|
*
|
|
* Rev 1.2 15 Aug 1991 23:04:30 GLENN
|
|
* Forest Belt proofread/edited/cleaned up doc
|
|
*
|
|
* Rev 1.1 14 Jun 1991 19:52:46 GLENN
|
|
* Minor edit to file header
|
|
*
|
|
* Rev 1.0 07 Jun 1991 23:03:38 GLENN
|
|
* Initial revision.
|
|
*
|
|
*/
|
|
|
|
#ifdef FT_TEST
|
|
|
|
// Write 100 random numbers from 1 to 100 to stdout.
|
|
// Run it multiple times and redirect output to a file
|
|
// to check it
|
|
|
|
function main()
|
|
local x
|
|
|
|
for x := 1 to 100
|
|
outstd( int( ft_rand1(100) ) )
|
|
outstd( chr(13) + chr(10) )
|
|
next
|
|
return nil
|
|
|
|
#endif
|
|
|
|
function ft_rand1(nMax)
|
|
THREAD static nSeed
|
|
local m := 100000000, b := 31415621
|
|
|
|
nSeed := iif( nSeed == NIL, seconds(), nSeed ) // init_seed()
|
|
|
|
return nMax * ( ( nSeed := mod( nSeed*b+1, m ) ) / m )
|