RosettaCodeData/Task/Guess-the-number/BASIC/guess-the-number-1.basic
2014-01-17 05:34:36 +00:00

9 lines
221 B
Text

10 N% = RND(1) * 10 + 1
20 PRINT "A NUMBER FROM 1 ";
30 PRINT "TO 10 HAS BEEN ";
40 PRINT "RANDOMLY CHOSEN."
50 FOR Q = 0 TO 1 STEP 0
60 INPUT "ENTER A GUESS. "; G%
70 Q = G% = N%
80 NEXT
90 PRINT "WELL GUESSED!"