40 lines
1.2 KiB
QBasic
40 lines
1.2 KiB
QBasic
|
' Here is an interactive HI-LO
|
||
|
|
' Program
|
||
|
|
[start]
|
||
|
|
guessMe = int(rnd(1)*100) + 1
|
||
|
|
'Clear the screen and print the title and instructions
|
||
|
|
cls
|
||
|
|
print
|
||
|
|
print HI-LO
|
||
|
|
print
|
||
|
|
print "I have decided on a number between"
|
||
|
|
print "a hundred, and I want you to guess"
|
||
|
|
print "what it is. I will tell you to guess"
|
||
|
|
print "higher or lower, and we'll 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
|
||
|
|
' 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 guess it took to win
|
||
|
|
print "You win! It took "; count; " guesses."
|
||
|
|
' Reset the count variable to zero for the next game
|
||
|
|
let ocunt = 0
|
||
|
|
' Ask to play again
|
||
|
|
input "Play again (Y/N)"; play$
|
||
|
|
if instr("YESyes", play$) > 0 then goto [start]
|
||
|
|
print "Press ALT-F4 to close this window."
|
||
|
|
end
|