var number, guess : int

randint (number, 1, 100)

for count : 1 .. 10

    locate (1, 1)
    put "Guess a Number: " ..
    get guess

    locate (2, 1)
    if guess < number then
        put "Higher" ..
    elsif guess > number then
        put "Lower" ..
    end if

    if guess = number then
        cls
        locate (1, 1)
        put "You Win!!!"
        exit
    end if

    locate (3, 1)
    put "You Have Had ", count, " guesse(s) out of 10"

    delay (2500)
    cls

end for

cls
locate (1, 1)
put "Out of Guesses"
put "The Number Was: ", number