{This is a simple guessing program. It's a test of the user. It should be known that it is impossible to take more than six guesses. But, you the programmer are now knowing. Programmed by: Daniel R. Miller Completed: January 11, 2003 Modified: Feb 18, 2004 Where: Luxor Hotel, Las Vegas, NV For Juliet 2004.0 } $lib rout result (won:int, guess:int) cond won = 1 printn "I won. I am a good guesser. I guessed in " & str(guess) & " guesses." cond won = 0 printn "I can't believe you would lie to me. You lose, cheater. I won." exit rout main def upper:int <- 100, lower:int <- 0, guess:int <- 0 printn "Think of a number between one and ninety-nine." printn "You will win if it takes me more than six tries to guess your number" printn "Otherwise I win." loop (upper - 1) <> (lower) printn "Is your >, <, or = to: " & str((upper - lower) / 2 + lower) def storage:int printn"1. > 2. < 3. =" storage <- readi cond storage = 1 lower <- ((upper - lower) / 2 + lower) cond storage = 2 upper <- ((upper - lower) / 2 + lower) cond storage = 3 result 1, guess guess <- guess + 1 result 0, guess