C-----------------------------------------------------------------------
C  Function KEYSIN -- MS Fortran specific
C-----------------------------------------------------------------------
      INTEGER FUNCTION KEYSIN (STRING)
      CHARACTER  STRING*(*)
C-----------------------------------------------------------------------
C   Do some housekeeping
C-----------------------------------------------------------------------
      MAX = LEN(STRING)
      STRING = ' '
      INDEX = 0
C-----------------------------------------------------------------------
C   Loop until we get nothing back
C-----------------------------------------------------------------------
10    IC = KEYIN ()
      IF (IC .NE. 0) THEN
	INDEX = INDEX + 1
	STRING(INDEX:INDEX) = CHAR(IC)
	IF (INDEX .GE. MAX) THEN
	  KEYSIN = MAX
	  RETURN
	ENDIF
	GO TO 10
      ENDIF
      KEYSIN = INDEX
      RETURN
      END