Guess It in yaBasic

// Guess what number for yaBasic
// E.K.virtanen. 2007, public domain
// Made for http://www.ascii-world.com/guess-it

// const variables
Lowest = 1
Highest = 99    // used as rand(Highest) + Lowest

// main loop of program
CanExit = false
while (CanExit = false)
    clear screen
    Randomed = int(ran(Highest) + Lowest)    // 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."; : inkey$

    // loop of game
    Rounds = 0
    ExitGame = false
    clear screen
    repeat
        Rounds = (Rounds + 1)
        print ""
        print ""
        print "This is round number: ", Rounds, "."
        input "Give your guess: " PlrGuess

        // now we check the user input
        // if player wants to quit we change falses to trues
        if PlrGuess = 0 then
            CanExit = true
            break
        end if

        // if it's higher...
        if PlrGuess > Randomed THEN
            Print "My number is smaller..."
        end if

        // if it's lower
        if PlrGuess < Randomed THEN
            Print "My number is higher..."
        end if

        // and finally, if it was correct guess we end loop
        if PlrGuess = Randomed then 
            ExitGame = true
        end if
    until(ExitGame = true)

    // 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 ""
            print "Press 'y' to play again. Any other key to quit.";
            YesNo$ = inkey$
            if upper$(YesNo$) <> "Y" then 
                CanExit = true
            end if
    end if

wend
print "Thank you for playing."