      IMPLICIT UNDEFINED (A-Z)
      INTEGER INT1(3),NPARS,MODE
      REAL REAL1
      REAL*8 D1
      CHARACTER*80 CH1(5)
      LOGICAL Y,N,LOG1
      PARAMETER(Y=.TRUE.,N=.FALSE.)
      DATA INT1,LOG1/12,13,14,Y/
      DATA CH1/5*'1111111122222222333333334444444455555555'/

      CALL SETKEYI('INT1',INT1,3,N)
      CALL SETKEYR('REAL1',REAL1,1,Y)
      CALL SETKEYC('CH1',CH1,40,5,N)
      CALL SETKEYL('LOG1',LOG1,1,N)
      CALL SETKEYD('D1',D1,1,N)
      MODE=0
      PRINT*,'Enter parameters - use SHOW to find out what is available'
      PRINT*,'End list with "/", abandon with CTRL-Z'
      CALL INKEYS(MODE,'test')
      CALL KEYRDI('INT1',INT1,3)
      CALL KEYRDR('REAL1',REAL1,1)
      CALL KEYRDC('CH1',CH1,40,5)
      CALL KEYRDL('LOG1',LOG1,1)
      CALL KEYRDD('D1',D1,1)
      PRINT*,INT1
      PRINT*,REAL1
      PRINT*,CH1
      PRINT*,LOG1
      PRINT*,D1
      END
