c * +JMJ
c * hexdmp - Print file contents with hexadecimal character values
c * Copyright 2014 David Meyer <papa@twenex.org>
      program hexdmp
      character*132 dmpfile, linein, hexln1, hexln2
      integer charcd, i
      write(5) 'Enter file name: '
      read(5,1001) dmpfile
      open(20, file=dmpfile)
100   read(20,1001, end=900) linein
c      write(5,*) linein(1:1)
      i = 1
200   continue
           charcd = ichar(linein(i:i))
           write(5,*) i, charcd, linein(i:i)
           i = i + 1
      if (charcd .ne. 10 .and. charcd .ne. 11 .and. charcd .ne. 12
     +     .and. i .le. 132) goto 200
      goto 100
900   close(20)
1001  format(a132)
      stop
      end

      integer function printable(code)
      integer code
      integer dummy
      dummy = ichar('~')
      if (code .lt. 32 .or. code .gt. 126) then
           printable = dummy
      else
           printable = code
      endif
      return
      end