C     .TITLE SHOW
C
C  11 MAY 78 - PAUL HENDERSON
C
      INTEGER*4 DBLINT
      INTEGER*2 INTS(2),CHAR
      EQUIVALENCE (DBLINT,INTS(1)),(INTS(2),CHAR)
C
   1  DBLINT = 0
      READ (4,99) CHAR
      DBLINT = DBLINT/2048
      WRITE (4,98) DBLINT
      GO TO 1
C
  99  FORMAT (A1)
  98  FORMAT (I8)
      END