10 n% = int(rnd(1)*10)+1
20 print chr$(147);chr$(14)
30 print "I have chosen a number from 1 to 10."
40 print
50 for q = 0 TO -1 step 0
60     input "What is your guess";g%
70     q = g% = n%
80 next
90 print "WELL GUESSED!"