28 lines
890 B
FortranFixed
28 lines
890 B
FortranFixed
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
|
|
|