C  Test Fortran Formatted Read of Viking Orbiter Lost Image Index Table

      INTEGER*4     UNIT /10/
      CHARACTER*80  FNAME
      CHARACTER*8   IMAGEID
      INTEGER*4     IMAGENUM
      CHARACTER*16  SCNAME
      CHARACTER*32  MSNPHSNM
      CHARACTER*8   TARGETNM
      CHARACTER*20  IMAGETM
      CHARACTER*20  ETHRCDTM
      INTEGER*4     ORBNUM
      CHARACTER*34  INSTRNM
      CHARACTER*8   GNMODID
      CHARACTER*8   OSMODID
      CHARACTER*8   FLDMODID
      CHARACTER*10  FLTNAME
      REAL*4        EXPDUR
      CHARACTER*160 NOTE

1000  FORMAT(' ENTER NAME OF INDEX FILE TO BE DISPLAYED: ')
1020  FORMAT(A)
      WRITE (*,1000)
      READ  (*,1020) FNAME
      OPEN (10, FILE=FNAME, STATUS='OLD')
      IREC = 0

 10   READ (10, 100, END=80) IMAGEID, IMAGENUM, SCNAME,
     1 MSNPHSNM, TARGETNM, IMAGETM, ETHRCDTM, ORBNUM,
     2 INSTRNM, GNMODID, OSMODID, FLDMODID, FLTNAME,
     3 EXPDUR, NOTE
      IREC = IREC + 1

 100  FORMAT (1X, A8, 2X, I8, 2X, A16,
     1 3X, A32, 3X, A8, 3X, A20, 3X, A20, 2X, I8,
     2 2X, A34, 3X, A8, 3X,A8, 3X, A8, 3X, A10,
     3 2X, F8.6, 2X, A160)

      WRITE (*, 200) IREC, IMAGEID, IMAGENUM, SCNAME,
     1 MSNPHSNM, TARGETNM, IMAGETM, ETHRCDTM, ORBNUM,
     2 INSTRNM, GNMODID, OSMODID, FLDMODID, FLTNAME,
     3 EXPDUR, NOTE(1:60), NOTE(61:120), NOTE(121:160)

 200  FORMAT (/, ' RECORD ', I5, ':   ', A8, 2X, I8, 2X, A16, /,
     1 3X, A32, 2X, A8, 2X, A20, /, 3X, A20, 2X, I4,
     2 2X, A34, /, 3X, A8, 2X, A8, 2X, A8, 2X, A10,
     3 3X, F8.6, /,
     4 3X, A60, /, 3X, A60, /, 3X, A40)

      GO TO 10

 80   CLOSE (10)
      END