Run BASIC
Build 2.27 - Powered by
Liberty BASIC
Home
Examples
Write Your Own
Learn
FAQ
About Us
HiLo.bas
SineWave.bas
Dragon.bas
grapher.bas
Hangman.bas
calculator.bas
TinyBasic.bas
Hide editor on run
small
medium
large
Resize editor
'hilo.bas - Here is an interactive HI-LO program 'Try your hand at modifying this code! [start] guessMe = int(rnd(1)*100) + 1 'Clear the screen and print the title and instructions cls print "HI-LO" print "" print "I have decided on a number between one and a hundred, and I want you to guess" print "what it is. I will tell you to guess higher or lower, and we will count up" print "the number of guesses you use." print "" [ask] 'Ask the user to guess the number and tally the guess input "OK. What is your guess?"; guess cls guesses$ = guesses$ + str$(guess) + " " print "Guesses so far: "; guesses$ 'Now add one to the count variable to count the guesses let count = count + 1 'check to see if the guess is right if guess = guessMe then goto [win] 'check to see if the guess is too low if guess < guessMe then print "Guess higher." 'check to see if the guess is too high if guess > guessMe then print "Guess lower." 'go back and ask again goto [ask] [win] 'tell how many guesses it took to win print "You win! It took "; count; " guesses." 'reset the count variable to zero for the next game let count = 0 'ask to play again input "Play again (Y/N)"; play$ if instr("YESyes", play$) > 0 then guesses$ = "" goto [start] end if print "Thanks for playing." end