RosettaCodeData/Task/Guess-the-number/BASIC/guess-the-number-2.basic
2020-02-17 23:21:07 -08:00

9 lines
225 B
Text

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!"