:answer = 1
while :answer
[
:random = random 100
say "Try "to "guess "a "number "from 1 "to 100
ask "What "is "your "quess :guess
:try = 1
:end = 0   //reset flag so the program could be run multiple times
while :end = 0 [
    if :guess = :random
        [say "You've "got "it "in :try "tries
        :end = 1 ]
        [:try = :try+1
        if :guess > :random
            [ask "Try "lower :guess]
            [ask "Try "higher :guess]
        ]
    ]
ASK "Play "again "(0\=quit) :answer
]
say "Good "bye
