C
C DISPLAY KEY VALUES FROM UNPACKED EDR
C
      SUBROUTINE DISPLAY(RECLEN,NCNT,TFLAG,TIME)
      INTEGER*2 RECLEN,TIME(6)
      CHARACTER*4 TFLAG,EX(0:15)
      CHARACTER*6 DM(0:31)
      CHARACTER*7 DDT(32:48)
C
      INCLUDE 'UNPACK.INC'
C
      DATA EX/'***','CRS','IRIS','LECP','MAG','PLS','PPS','PRA','PWS',
     &        'UVS','RSS','ENG','***','ISR','MR','DMR'/
      DATA DM/'ENG','CR-2','CR-3','CR-4','CR-5','CR-6','CR-7','CR-1',
     &        'GS-10A','***','GS-3','***','GS-7','***','GS-6','GS-4',
     &        '***','GS-2','***','***','***','***','OC-2','OC-1',
     &        'CR-5A','GS-10','GS-8','***','***','UV-5A','***','***'/
      DATA DDT/'IRIS','CRS','LECP','MAG','PLS','PPS','PRA','PWS','UVS',
     &         'ISR','DCOM','MON 5-8','ENGS','ENGE','DCMS','ENGC',
     &         'MON 5-9'/
C
      WRITE(6,900) NCNT,RECNUM,RECLEN,PROJID,EX(RECID),SCID,
     &             TFLAG,TIME,DM(DATMOD),DDT(DRSDAT)
      RETURN
  900 FORMAT(1X,I5,1X,I5,1X,I5,' BYTES',1X,A3,1X,A4,1X,I2,1X,A4,
     &       1X,I2,1X,I3.3,3(1X,I2.2),1X,I3.3,1X,A6,1X,A7)
      END