C=======================================================================--------
C()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()
C=======================================================================--------
C These routines are available for general use. I ask that you send me
C interesting alterations that are available for public use; and that you
C include a note indicating the original author --  John S. Urban
C Last updated May 5th, 2009
C=======================================================================--------
C()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()
C=======================================================================--------
      program test_getkey
C     test program for debugging getkey(3F) and getkey(3C)
      character*(1) A,GETKEY
      write(*,*)'begin striking keys to test interactive raw I/O mode'
      write(*,*)'q to quit; stops after 40 characters'
      do 10 i10=1,40
         A=getkey()
         write(*,*)i10,' f77:key=',A,'->',ichar(A)
         if(i10.gt.40)stop
         if(A.eq.'q')stop
10    continue   
      end
      character function getkey()
C     call the C routine and convert the integer to a character
      integer getkey4F
      getkey=char(getkey4F())
C     usually not required, extension
      !call flush(6) 
      return
      end