I was just able to program this:
'This is an integer guessing game.
[Instructions]
PRINT
PRINT "This is a guessing game. I pick a random integer between 1 and 100 and you try to guess what it is."
PRINT "If you guess correctly, you win!"
PRINT "If you guess incorrectly, I will tell you higher or lower to help you get the right answer."
PRINT "When you win, I will tell you how many guesses it took."
PRINT "Let's start!"
PRINT
PRINT "Ready?"
[PickInteger]
answer=int(rnd(1)*100)+1
[Guess]
LET count=count+1
INPUT "Guess an integer between 1 and 100. Then press Enter. "; guess
IF guess=answer THEN GOTO [Win]
IF guess<answer THEN GOTO [Higher]
IF guess>answer THEN GOTO [Lower]
[Higher]
PRINT
PRINT "Higher!"
GOTO [Guess]
[Lower]
PRINT
PRINT "Lower!"
GOTO [Guess]
[Win]
CLS
BEEP
BEEP
BEEP
PRINT
PRINT "You won!"
PRINT "The correct answer is "; answer; "."
PRINT "It took you "; count; " guesses to get the right answer."
PRINT
LET count=0
INPUT "Would you like to play again (Y/N)? 6"; again$
IF instr("Yesyes", again$)>0 THEN GOTO [PickInteger]
[End]
PRINT
PRINT "Thanks for playing!"
This is fun!