Bacon
``````REM *** GUESS WHAT NUMBER IM THINKING ***
REM YET ANOTHER PORT OF THIS OLD CLASSIC. THIS TIME FOR BACON WWW.BASIC-CONVERTER.ORG
REM E.K.VIRTANEN 2010, HTTP://E-K-V.WIKIDOT.COM/
REM PUBLIC DOMAIN

SEED NOW

WHILE NOT(EQUAL(QUIT\$, "Y")) DO
CLEAR
PRINT
PRINT " *** GUESS WHAT NUMBER IM THINKING ***"
PRINT " E.K.VIRTANEN HTTP://E-K-V.WIKIDOT.COM/"
PRINT " 2010, PUBLIC DOMAIN"
PRINT
INPUT " DO YOU WANT TO SEE INSTRUCTIONS? (Y/N)", A\$
IF EQUAL(UCASE\$(A\$), "Y") THEN CALL INSTRUCTIONS
ROUNDS = 0
NUM2GUESS = RND*100/MAXRANDOM
PRINT NL\$, "OK, LET'S START THE GAME."
'PRINT NUM2GUESS, ":::::::"
PRINT
WHILE NOT(EQUAL(QUIT\$, "Y")) DO
ROUNDS = ROUNDS + 1
PRINT "NOW IS ROUND NUMBER: ", ROUNDS
IF GUESSED ISNOT 0 THEN PRINT "YOUR LAST GUESS WAS: ", GUESSED
INPUT NL\$, "WHATS YOUR GUESS: ", GUESSED
IF GUESSED > 0 AND GUESSED < 101 THEN
IF GUESSED < NUM2GUESS THEN PRINT "TRY HIGHER..."
IF GUESSED > NUM2GUESS THEN PRINT "TRY SMALLER..."
IF GUESSED IS NUM2GUESS THEN
PRINT "HOORAY!!!! YOU GOT IT."
PRINT "IT TOOK ", ROUNDS, " ROUNDS TO GUESS RIGHT NUMBER."
QUIT\$ = "Y"
END IF
ELSE
PRINT "OK, SO GIVE UP THEN YOU LOOSER."
QUIT\$ = "Y"
END IF
WEND
WEND
END

SUB INSTRUCTIONS
LOCAL a
CLEAR
PRINT
PRINT "IN THIS GAME, THE GOAL IS CLEAR."
PRINT "COMPUTER CHOOSES ONE NUMBER BETWEEN 1 AND 100"
PRINT "YOUR MISSION IS TO SOLVE OUT, WHICH NUMBER COMPUTER IS THINKING AT."
PRINT
PRINT "IN EACH ROUND, YOU CAN GUESS ONE NUMBER."
PRINT "COMPUTER THEN TELLS, IS YOUR GUESS HIGHER OR SMALLER THAN NUMBER IT CHOSE."
PRINT "ONCE YOU GOT THE RIGHT NUMBER GUESSED, GAME ENDS."
PRINT
PRINT "IF YOU WANT TO GIVE UP, JUST CHOOSE A NUMBER SMALLER THAN 1 OR HIGHER THAN 100."
PRINT "NOW PRESS A KEY TO PLAY THE GAME."
a = GETKEY
END SUB```
```