      SUBROUTINE GETCH
      IMPLICIT NONE
C
C GET NEXT CHARACTER
C
      INCLUDE MATLAB$KOM:IOP.KOM
      INCLUDE MATLAB$KOM:COM.KOM
C
      INTEGER EOL, L
C
      DATA EOL / 99 /
C
C
      L = LPT(4)
      CHAR = LIN(L)
      IF (CHAR.NE.EOL) LPT(4) = L+1
C
      RETURN
      END
