Exciting random number generator in CBM BASIC

0 print chr$(147) ;: a$ = "" : b$ = a$ : c = 0
1 print "this app will generate a random number for you!"
2 print "it negates the need for you to think of your own"
3 print "random numbers. please enter highest number"
4 print "that you will need this time."
5 get a$ : if a$ = "" then goto 5
6 if a$=chr$(13) then goto 9
7 if a$ < "0" or a$ > "9" then goto 5
8 print a$ ;: b$=b$+a$ : goto 5
9 let c = val(b$):let c = c+1
10 print a$+a$;"the random number generated is..."
11 print int(c*rnd(1))
12 print "would you like to generate another random number?"
13 print "(y/n)"
14 get a$ : if a$ = "" then goto 14
15 if a$ = "y" then clr : run
16 if a$ = "n" then end
17 goto 14
2011 rem (c) mmxi donkeysoft
2012 rem *** written in commodore (microsoft) basic
2013 rem *** exciting random number generator!
2014 rem *** or as random as a number generator can get in basic