* 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 ENDCASE local nResult, nScissors ? ? nScissors=nUpperLimit-nLowerLimit ?nScissors nResult=rand(-1)*10**16 DO WHILE nResult<1*10**15 nResult=rand()*10**16 ENDDO ?nResult nResult=MOD(nResult,nScissors) && nUpperLimit is never reached ?nResult IF nResult=0 nResult=IIF(rand()*10**15<5*10**14,0,nScissors) && to reach nUpperLimit endif return nLowerLimit+nResult