Guess It in SmallBasic
REM Guess what number for SmallBasic REM E.K.virtanen. 2007, public domain REM Made for http:: REMwww.ascii-world.com/guess-it REM const variables const Lowest = 1 const Highest = 99 REM main loop of program CanExit = false while (CanExit = false) cls randomize timer Randomed = int(Highest * rnd) + Lowest : REM number to guess Rounds = 0 print " # Guess the number im thinking?" print " # E.K.Virtanen 2007, public domain." print " # www.ascii-world.com" print "" print "Ok, i think random number between "; Lowest; " to "; Highest + Lowest; "." print "Your job is to guess what it is in as minimal tries as possible." print "" print "After your every guess, ill give you hint is my number higher or lower than your guess." print "You can exit by 'guessing' 0." print "Press any key to start game."; pause REM loop of game Rounds = 0 ExitGame = false cls repeat Rounds = (Rounds + 1) print "" print "" print "This is round number: "; Rounds; "." input "Give your guess: "; PlrGuess REM now we check the user input REM if player wants to quit we change falses to trues if PlrGuess = 0 then CanExit = true exit end if REM if it's higher... if PlrGuess > Randomed THEN Print "My number is smaller..." end if REM if it's lower if PlrGuess < Randomed THEN Print "My number is higher..." end if REM and finally, if it was correct guess we end loop if PlrGuess = Randomed then ExitGame = true end if until(ExitGame = true) REM if only correct answer and no full exit we print out result of rounds. if CanExit = false then print "You got it!!!" print "It took "; Rounds; " rounds to guess right number." print "" input "Press 'y' to play again. Any other key to quit."; YesNo$ if upper(YesNo$) <> "Y" then CanExit = true end if end if wend print "Thank you for playing."