parm rand_min=0 rand_max=999999999

## Michael D. Hensley
## Allegro Consultants Inc.

## RANDNUM.XEQ - SETVAR RANDOM_NUMBER to a random number

setvar random_number -1
setvar rand_digits_max len ( "!rand_max" )

while random_number < !rand_min &
   or random_number > !rand_max

   setvar rand_secs rht ( "!hpcpumsecs",1 )
   setvar rand_digits max ( !rand_secs,1 )
   setvar rand_digits min ( rand_digits,rand_digits_max )
   setvar rand_numb_secs ""

   while rand_digits > 0
      setvar rand_digits rand_digits-1
      setvar rand_numb_secs rand_numb_secs + rht ( "!hpcpumsecs",1 )
   endwhile

   setvar random_number !rand_numb_secs

endwhile

deletevar rand_@