Solution to Lesson 3

( This code can be found at .\tutorial\Lesson3\Guess.bas )

'--------------------------------
'- Variable declaration section -
'--------------------------------

DIM Number% ' the number to guess
DIM Guess% '  the player's guess
DIM Tries% '  the number of tries

'----------------------------
'- Main program begins here -
'----------------------------

RANDOMIZE TIMER '                                             seed the random number generator
Number% = INT(RND * 100) + 1 '                                the random number to guess
PRINT "--------------------------------" '                    print introduction
PRINT "- Welcome to Guess The Number! -"
PRINT "--------------------------------"
PRINT
PRINT "I'm thinking of a number from 1 to 100" '              print directions
PRINT
PRINT "Can you guess the number I am thinking of?"
PRINT
TRYAGAIN: '                                                   back here to try again
Tries% = Tries% + 1 '                                         increment try counter
INPUT "Enter your guess (1 to 100) >", Guess% '               get player guess value
IF Guess% > Number% THEN '                                    too high?
   PRINT "Too high! Try again." '                             yes, inform player
ELSEIF Guess% < Number% THEN '                                too low?
   PRINT "Too low! Try again." '                              yes, inform player
END IF
IF Guess% <> Number% THEN GOTO TRYAGAIN '                     go back if number not guessed
PRINT
PRINT "Correct! You guessed my number in"; Tries%; "tries." ' congratulate player