C*******************************************************************************
C
      SUBROUTINE   MU(IA)
C
C*******************************************************************************
C
C  ENERGY SUPPLY MENU:
C
C     THIS SUBROUTINE PRINTS THE FUEL CHOICE MENU FOR FIVE ENERGY SUPPLY
C     TECHNOLOGIES AND RETURNS WITH A CODE VALUE FOR THE CHOICE:  IA.
C
C  INPUTS:
C     IA  = CODE VALUE FOR THE ENERGY SUPPLY ASSUMPTION CATEGORY BEING CON-
C              SIDERED.
C                   IA=1 RESOURCE BASE OF ENERGY SUPPLY
C                   IA=2 TECHNOLOGICAL CHANGE IN ENERGY SUPPLY
C                   IA=3 ENVIRONMENTAL COSTS OF ENERGY SUPPLY
C                   IA=4 MARKET PENETRATION OF ENERGY SUPPLY
C
C  OUTPUTS:
C     IA  = FUEL CHOICE CODE.
C              1=OIL
C              2=NATURAL GAS
C              3=COAL
C              4=SHALE OIL
C              5=NUCLEAR POWER
C
C  CODED:  8-19-85                      SUBROUTINES CALLED:  NONE
C  PROGRAMMER:  JAE EDMONDS             LATEST REVISIONS:    NONE
C
      IMPLICIT   REAL*8 (A-H,O-Z), INTEGER(I-N)
      CHARACTER*45   SNAM(4)
C
      SNAM(1)='   *** RESOURCE BASE FOR ENERGY SUPPLY ***   '
      SNAM(2)='*** TECHNOLOGICAL CHANGE IN ENERGY SUPPLY ***'
      SNAM(3)=' *** ENVIRONMENTAL COSTS OF ENERGY SUPPLY ***'
      SNAM(4)=' *** MARKET PENETRATION OF ENERGY SUPPLY *** '
C
      IOUNIT=0
      IF(IA.NE.4)   IE=5
      IF(IA.EQ.4)   IE=4
C
  100 CONTINUE
C
      DO 10 IB=1,10
   10 WRITE(IOUNIT,2002)
 2002 FORMAT(1X)
C
      WRITE(IOUNIT,2000)
 2000 FORMAT(1X,27X,'ENERGY SUPPLY ASSUMPTIONS:')
      WRITE(IOUNIT,2001)   SNAM(IA)
 2001 FORMAT(1X,18X,A45)
      WRITE(IOUNIT,2002)
      WRITE(IOUNIT,2002)
      WRITE(IOUNIT,2003)   IE
 2003 FORMAT(1X,10X,'YOU MAY EXAMINE AND/OR CHANGE ASSUMPTIONS FOR ANY O
     &F ',I1,' ENERGY')
      WRITE(IOUNIT,2004)
 2004 FORMAT(1X,10X,'SUPPLY CATEGORIES ONE AT A TIME, IN ANY ORDER.  SEL
     &ECT ONE')
      WRITE(IOUNIT,2005)
 2005 FORMAT(1X,10X,'OF THE FOLLOWING:')
      WRITE(IOUNIT,2006)
 2006 FORMAT(1X,25X,'1= CONVENTIONAL OIL')
      WRITE(IOUNIT,2007)
 2007 FORMAT(1X,25X,'2= NATURAL GAS')
      WRITE(IOUNIT,2008)
 2008 FORMAT(1X,25X,'3= COAL')
      WRITE(IOUNIT,2009)
 2009 FORMAT(1X,25X,'4= SHALE OIL')
      IF(IE.EQ.5)   WRITE(IOUNIT,2010)
 2010 FORMAT(1X,25X,'5= NUCLEAR POWER')
      WRITE(IOUNIT,2011)
 2011 FORMAT(1X,10X,'OR')
      WRITE(IOUNIT,2012)
 2012 FORMAT(1X,25X,'0= NONE OF THE ABOVE.  RETURN TO MAIN MENU.')
      WRITE(IOUNIT,2002)
      IF(IE.EQ.5)   WRITE(IOUNIT,'(A\)')'          TYPE YOUR CHOICE:  1,
     &2,3,4,5 OR 0, THEN PRESS RETURN.  ===>'
      IF(IE.EQ.4)   WRITE(IOUNIT,'(A\)')'          TYPE YOUR CHOICE:  1,
     &2,3,4 OR 0, THEN PRESS RETURN.  ===>'
      READ(IOUNIT,'(BN,I1)',ERR=20)   IA
      IF((IA.GE.0).AND.(IA.LE.5))   RETURN
C
   20 CONTINUE
      WRITE(IOUNIT,2013)
 2013 FORMAT(1X,15X,'!!!!! ILLEGAL ENTRY !!!!! TRY AGAIN !!!!!')
      CALL TIME
      GOTO 100
      END
                     