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