character line*120,coded*120,lkey*26
        integer key(27,10),nkey(27),ikey(128),text(100000)
        do 49 i=1,120
          coded(i:i)=' '
          line(i:i)=' '
  49    continue
        do 53 i=1,128
          ikey(i)=ichar('X')
  53    continue

        write (*,*)'This programme reads the key from the'
     &     //' file HomoGuess.key'
        open(8,file='HomoGuess.key',form='formatted')
        do 46 i=1,27
          read(8,1000)line
          nk=0
          do 51 j=1,10
          nl=ichar(line(j:j))
          if(nl.ne.32)then
            nk=nk+1
            key(i,nk)=nl
            if(i.le.26)then
              ikey(nl)=96+i
            else
              ikey(nl)=32
            end if
            write(*,*)i,j,line(j:j),nl,nk
          end if
 51       continue
          nkey(i)=nk
 46       continue

        itext=0

        open(8,file="Homophones.code",form="formatted")
  1     read(8,1000,end=2)line
1000    format(a120)
        do 15 i=1,120
          nl=ichar(line(i:i))
          if(nl.eq.32)go to 15
          itext=itext+1
          text(itext)=nl
  15    continue
        go to 1

  2     close(8)

        nwide=100

        do 20 j=0,itext-2,nwide
c        write(*,*)
        write(*,2000)(char(text(j+i)),i=1,min(nwide,itext-j))
        write(*,2000)(char(ikey(text(j+i))),i=1,min(nwide,itext-j))

2000    format(120A1)
 20     continue
        stop
        end