C*************************************************************************
C
       PROGRAM CHOO
C           REVISED 7 SEPT 88 TO HANDLE METHANE EMISSIONS
C*************************************************************************
C
      IMPLICIT  REAL*8 (A-H,O-Z),   INTEGER (I-N)
C
      COMMON ZLXM(10,6),PIM(3,6),GCI(2),EDRIKM(6,6),EFJM(4,6),
     &       ESIM(6,6),ESI1M(6,6),ESI2M(6,6),GNPFLM(10,6),SYNIM(6,6),
     &       CO2IIM(6,6),NM,JOPT(2),SOLUSE(2,6),CO2LM(9,6),CH4IM(7,6),
     &       CH4LM(9,6)
c
      CHARACTER TORGCH
C
      CALL TABRD
C
 1    DO 9996 MMM=1,25
         WRITE(JUNIT,9995)
 9995    FORMAT(1X)
 9996 CONTINUE
      WRITE(JUNIT,3000)
 3000 FORMAT('0',34X,'OUTPUT  MENU')
      WRITE(JUNIT,9995)
      WRITE(JUNIT,3001)
 3001 FORMAT(1X,21X,'PRIMARY ENERGY SUPPLY',12('-'),'> 1')
      WRITE(JUNIT,3002)
 3002 FORMAT(1X,21X,'SECONDARY ENERGY DEMAND',10('-'),'> 2')
      WRITE(JUNIT,3003)
 3003 FORMAT(1X,21X,'OIL SUPPLY',23('-'),'> 3')
      WRITE(JUNIT,3004)
 3004 FORMAT(1X,21X,'GAS SUPPLY',23('-'),'> 4')
      WRITE(JUNIT,3005)
 3005 FORMAT(1X,21X,'SOLIDS SUPPLY',20('-'),'> 5')
      WRITE(JUNIT,3006)
 3006 FORMAT(1X,21X,'SOLIDS USE',23('-'),'> 6')
      WRITE(JUNIT,3007)
 3007 FORMAT(1X,21X,'UTILITY ENERGY CONSUMPTION',7('-'),'> 7')
      WRITE(JUNIT,3008)
 3008 FORMAT(1X,21X,'WORLD ENERGY PRICES',14('-'),'> 8')
      WRITE(JUNIT,3009)
 3009 FORMAT(1X,21X,'FINAL GNP',24('-'),'> 9')
      WRITE(JUNIT,3010)
 3010 FORMAT(1X,21X,'GLOBAL POPULATION',16('-'),'>10')
      WRITE(JUNIT,3011)
 3011 FORMAT(1X,21X,'CO2 EMISSIONS BY SOURCE',10('-'),'>11')
      WRITE(JUNIT,3012)
 3012 FORMAT(1X,21X,'CH4 EMISSIONS BY SOURCE',10('-'),'>12')
      WRITE(JUNIT,3013)
 3013 FORMAT(1X,21X,'CO2 EMISSIONS BY REGION',10('-'),'>13')
      WRITE(JUNIT,3014)
 3014 FORMAT(1X,21X,'CH4 EMISSIONS BY REGION',10('-'),'>14')
      WRITE(JUNIT,3015)
 3015 FORMAT(/1X,21X,'QUIT',29('-'),'> 0')
      WRITE(JUNIT,9995)
      WRITE(JUNIT,'(A\)')' CHOOSE ANY OUTPUT NUMBER (0-14).'
      READ(JUNIT,'(BN,I2)',ERR=999)JOPT(1)
      GOTO 1000
 999  WRITE(JUNIT,995)
 995  FORMAT(/'*** INVALID NUMBER *** PLEASE TRY AGAIN ***')
      DO 99 I=1,32767
         DO 98 J=1,2
C           PAUSE FOR A MOMENT
 98      CONTINUE
 99   CONTINUE
      GOTO 1
C
 1000 IF(JOPT(1).NE.0) THEN
         WRITE(JUNIT,3022)
 3022    FORMAT('0',21X,'SELECT :  T  to output in tabular form')
         WRITE(JUNIT,3023)
 3023    FORMAT(1X,31X,'G  to output in graphic form')
         WRITE(JUNIT,3025)
 3025    FORMAT(1X,31X,'M  to return to the main menu')
         WRITE(JUNIT,'(A\)')' WHAT IS YOUR CHOICE?--->'
         READ(JUNIT,'(BN,A1)')TORGCH
         IF(TORGCH.EQ.'T' .OR. TORGCH.EQ.'t') THEN
           JOPT(2)=1
         ELSEIF(TORGCH.EQ.'G' .OR. TORGCH.EQ.'g') THEN
           JOPT(2)=2
         ELSE
           GO TO 1
         ENDIF
         CALL TAB
         GO TO 1000
      ENDIF
C
      STOP
      END