>I can't reproduce. I'd go with a simplier routine :
>

>rand(-1)
>create cursor randvals (rnd b(2))
>for ix=1 to 1000
>   insert into randvals values (round(CertainRand(2,8),0))
>endfor
>locate
>brow
>* random values
>* E.g. between -2147483647 and +2147483647 (int datatype range)
>function CertainRand
>lParameter nLowerLimit, nUpperLimit
>DO CASE
>CASE nLowerLimit>nUpperLimit
>	RETURN null
>CASE nLowerLimit=nUpperLimit
>	RETURN nLowerLimit
>otherwise
>	return rand()*(nUpperlimit-nLowerLimit)+nLowerLimit
>ENDCASE
>

Cetin

Got the idea.
Thank you.
Kamil.