My first 'Post New Topic', ok I will quit it with the 'firsts'

I re-ran the rndtest script and this is the results after 397873 runs:

1=132926, 2=132511, 3=132425, 4=11, other=0

This is supposed to return a random number between 1 and 3 inclusive. 11 4's have occured in almost 400 thousand RND()s, that's about 0.00275% error.

rndtest.KiX

code:

break on cls
srnd(val(substr(@time, 7, 2)))
$other="" $four=0

:again

$c=rnd(2)+1
$total=$total+1
select
	case $c=1 $one=$one+1
	case $c=2 $two=$two+1
	case $c=3 $three=$three+1
	case $c=4 $four=$four+1
	case 1 $other=$other + "$c, "
endselect

at(0,0)
"1=$one, 2=$two, 3=$three, 4=$four, other=$other, total=$total     "

goto again

cj

------------------
For more scripts goto my website and click the hammer and spanner icon.

chrismat@ozemail.com.au