100 PROGRAM "Guess.bas"
110 RANDOMIZE
120 LET N=RND(10)+1
130 DO
140   INPUT PROMPT "Guess a number that's between 1-10: ":G
150 LOOP UNTIL N=G
160 PRINT "Well guessed!"