      SUBROUTINE GETVAL (S)
      IMPLICIT NONE
C
C FORM NUMERICAL VALUE
C
      DOUBLE PRECISION S
C
      INCLUDE MATLAB$KOM:COM.KOM
C
C
      S = 0.0D0
10    CONTINUE
      IF (CHAR.GT.9) RETURN
      S = 10.0D0*S+CHAR
      CALL GETCH
      GO TO 10
C
      END
