/* guess a number between 1 and 100.
/* t. a. Gibson 11/29/76.
guessnum [
 int guess, number
 char answer
 ps "seed? ";last=seed=gn
 answer = 'y'
 while (answer == 'y') [
  number = random (1,100)
  pl "Guess a number between 1 and 100."
  pl "";ps "What is your guess? ";guess = gn
  while (guess != number) [
   if (guess < number) ps "Too low."
   if (guess > number) ps "Too high."
   pl "";ps "What is your guess? ";guess = gn
   ] /* end while loop.
  ps "RIGHT!!";pl "";ps "Again (y/n)? "
  answer = gc
 ] /* end of answer loop.
]