numguess.uvb

SUBROUTINE NUMGUESS

RANDOMIZE
PROMPT ""

CRT "Welcome to NumGuess UniVerse Basic version!"
CRT
CRT "Enter your name: ":

INPUT NAME
IF NAME = "" THEN NAME = "Player"

CRT
CRT "Welcome ":NAME:", enter upper limit: ":

INPUT LIMIT

IF NOT(NUM(LIMIT)) OR LIMIT < 10 THEN LIMIT = 10
MAX.TRIES = INT(LN(LIMIT) / LN(2)) + 1

LOOP
   NUM = RND(LIMIT) + 1
   TRIES = 0

   CRT
   CRT "Guess my number between 1 and ":LIMIT:"!"
   CRT

   LOOP
      CRT "Guess: ":
      INPUT GUESS

      TRIES += 1
      BEGIN CASE
         CASE NOT(NUM(GUESS))
            CRT "That's just plain wrong."
            TRIES -= 1
         CASE GUESS < 1 OR GUESS > LIMIT
            CRT "Out of range."
            TRIES -= 1
         CASE GUESS < NUM
            CRT "Too low!"
         CASE GUESS > NUM
            CRT "Too high!"
      END CASE

      UNTIL GUESS = NUM
   REPEAT

   TRIES.WORD = "tries"
   IF TRIES = 1 THEN TRIES.WORD = "try"

   CRT
   CRT "Well done ":NAME:", you guessed my number from ":TRIES:" ":TRIES.WORD:"!"

   BEGIN CASE
      CASE TRIES = 1
         CRT "You're one lucky bastard!"
      CASE TRIES < MAX.TRIES
         CRT "You are the master of this game!"
      CASE TRIES = MAX.TRIES
         CRT "You are a machine!"
      CASE TRIES <= MAX.TRIES * 1.1
         CRT "Very good result!"
      CASE TRIES <= LIMIT
         CRT "Try harder, you can do better!"
      CASE 1
         CRT "I find your lack of skill disturbing!"
   END CASE

   CRT "Play again [y/N]? ":

   INPUT AGAIN, 1

   UNTIL UPCASE(AGAIN) # "Y"
REPEAT

CRT
CRT "Okay, bye."

END