See if the growing number will break the record. No Media!

Hi, There. I've really let you down this time. I made this boring program a while ago. In it there is a number that rapidly grows in a counting fashion. It eventually stops at a random time. If it is bigger than the record it becomes the new record. Sorry, that there's nothing for the player to change. I hope you're not to board...zzzzzzzzzzzzz... See you around!

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    RND = 1000
N = 1
sync on
GN:
ink rgb(1000,10,10),0
N = rnd(RND)
GN = 0
do
cls
GN = GN+1
set cursor 0,10
print "Number: ",GN
print "Record: ",R
if GN = N then goto R
sync
loop
R:
ink rgb(10,10,1000),0
cls
set cursor 0,10
print "Number: ",N
if N > R then R = N : print "New Record: ",R else print "Record: ",R
RND = RND+10
wait 5000
goto GN

rem that's all folks!