/*
/* guess a number between 1 and 100.
/*
/* t. a. Gibson 11/29/76.
/*

guessnum [
   int guess, number
   char answer
   answer = 'y'

   pl "Enter a random number: ";number = random(1,gn)

   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."
         else 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.
] /* end guessnum.

/*
/* random number generator.
/*

int last, seed

random int low, high [
   int range
   if (last == 0) last=seed=99
   range = high - low + 1
   last = last * seed
   if (last < 0) last = -last
   return low + (last/7)%range
   ]