program maxminwhile
      
C**********************************************************
C   From a random number of inputted numbers (as defined by '-99')
C	determine the largest and smallest numbers and print to the screen
C**********************************************************

      integer inum, max, min
      
      print *, 'Enter an integer (-99 to stop): '
      read *, inum
      
      max = inum
      min = inum

      do while (inum .ne -99)
      
           if (inum .gt. max) max = inum
           if (inum .lt. min) min = inum
	   
	   print *, 'Enter an integer (-99 to stop): '
           read *, inum
      end do
      
      
 900  print *, 'Max is ', max, ' and Min is ',min
      print *, 'Range of numbers is ',max-min
      
      stop
      end