Here's a little random number generator I made. Takes a seed value and gives you a random number from that. You can generate random numbers all day with this lol.
rem ==============================
rem R A N D O M N U M B E R S
rem author: epidemicz
rem ==============================
rem Standard Setup Code
sync on : sync rate 60
color backdrop rgb(0,0,128) : hide mouse
set text font "arial" : set text size 16 : set text opaque
do
randomize timer()
set cursor 0,0
print "This program will print a random number depending on the seed that you enter."
input "Would you like to generate your own seed? 'y' to generate own 'n' to let program generate y/n ",answer$
if answer$="y" then gosub _ownseed
if answer$="n" then gosub _randseed
rndnumber=abs(seed*rnd(666)+100)
center text screen width()/2,screen height()/2,"Your random number is..."
center text screen width()/2,screen height()/2+20,str$(rndnumber)
center text screen width()/2,screen height()/2+40,"The seed value was..."
center text screen width()/2,screen height()/2+60,str$(seed)
loop
_ownseed:
input "Please enter a seed value for the generator. ",seed
cls
return
_randseed:
seed=666*rnd(666)+100
cls
return
I am the very disease you pretend to be.
