RND function

Purpose: RND returns, as a single precision float, a random value between 0.0 and 1.0.

 RetVal! = RND

Example: RangeR.bas will emit a single precision float between the LowValue and HighValue entered on the command line.

 ' RangeR.bas
 ' Usage: RangeR LowValue HighValue RandomizerValue
 
 DIM RetVal!
 DIM hi!, lo!, rz!
 
 lo! = VAL(COMMAND$(1))
 hi! = VAL(COMMAND$(2))
 rz! = VAL(COMMAND$(3))
 
 IF rz! = 0.0 THEN
   RANDOMIZE
 ELSE
   RANDOMIZE(rz!)
 END IF
 
 FOR INTEGER i = 1 TO 6
   RetVal! = RangeR(lo!, hi!)
   PRINT RetVal!
 NEXT i
 
 FUNCTION RangeR!(low!, high!)
   
   IF (low! > high!) THEN 
     DIM t! 
     t! = low!
     low! = high!
     high! = t!
   END IF 
     
   FUNCTION = (high! - low! + 1) * RND + low!
 
 END FUNCTION 

BCX Console Sample Programs using RND function.

S95.bas   S107.bas   S111.bas   S135.bas