      SUBROUTINE MENUER (I)
      IMPLICIT NONE
C
C ***      MENU ERROR MESSAGES
C
      INTEGER I
C
      CHARACTER*47 M
C
      DATA M / 'ERROR.  PLEASE ENTER A VALUE BETWEEN  1 AND XX.' /
C
C
      WRITE (M(45:46), 10) I
10    FORMAT (I2)
      CALL DSERR (M)
C
      RETURN
      END
