BCX Console Demonstration Program s95.bas
|
'*****************************************************************************
' Demonstrates the pseudo-random number generator functions that BCX supports
'*****************************************************************************
'
' RANDOMIZE takes any argument
'
' TIMER is a BCX function that returns the number of seconds since
' Windows started.
'
' RND takes no argument and always returns a floating point number
' in the range of 0 and 1
'*****************************************************************************
DIM i
RANDOMIZE(TIMER)
FOR i = 1 TO 20
PRINT RND
NEXT
Result:
0.1282965
0.02418221
0.4997252
0.6380826
0.9706174
0.198756
0.9959664
0.1732732
0.4077337
0.240756
0.5193399
0.79604
0.5548509
0.3009924
0.4640974
0.5085299
0.7049273
0.8415984
0.4119758
0.3505276