Getting a random number wihout RND.

[SierraKen]

Hi guys, been a few years and I thought I would play my hand in some programming again. So I saw this thread and tried it out.
I will admit I used Chat GPT for some of it, but someone has to learn someway. I changed it a bit also making the user able to choose
the highest number and also I added more randomness to it by using the seconds in time$ and then dividing that by 10 and then using that variable
to times it by timeSeed. It works pretty good. Probably not as random as RND, but what do you think?

Code: (Select All)

Cls

start:

s$ = Time$

s1$ = Right$(s$, 2)

s2 = Val(s1$)

s = s2 / 10

Print "Type the highest number for me to choose from."

Input "->", most

If most < 1 Or most > 1000000000 Then GoTo start:

timeSeed = Timer ' Get the system time in seconds

timeSeed = timeSeed * s

randomNumber = (timeSeed Mod most) + 1 

Print "Random Number: "; randomNumber

Print: Print: Print

GoTo start: