! **************************************
! *GETNUMBER - ASKS FOR A NUMBER       *
! *                                    *
! * Checks for validity and bounds of  *
! * number.                            *
! **************************************
FUNCTION REAL GETNUMBER(REAL MN,REAL MX)
  DECLARE REAL    R,      &
          INTEGER REPEAT

  REPEAT=1
  WHILE REPEAT

    ! An error will be issued if
    ! R is not a number

    WHEN ERROR USE input_handler   
      INPUT R    
    END WHEN

    ! Check boundaries

    IF (R<MN) THEN
      PRINT "TOO SMALL"
    ELSE 
      IF (R>MX) THEN 
        PRINT "TOO BIG"
      ELSE
        REPEAT=0
      END IF    
    END IF
  NEXT

  ! No error, Return R

  GETNUMBER=R

! Error handler
! Most probable errors are
!    50 Wrong data
! and
!    20? (not sure) End of file.

HANDLER input_handler
  SELECT ERR
    CASE=50
      RETRY
      PRINT "WRONG DATA TYPE."
    CASE 20
      PRINT "END OF FILE"
      CONTINUE
  END SELECT  
END HANDLER

END FUNCTION