home *** CD-ROM | disk | FTP | other *** search
/ The Fred Fish Collection 1.5 / ffcollection-1-5-1992-11.iso / ff_progs / libs / matlab.lzh / MATLAB / MATLAB.LZH / Source / MatLab / GETCH.FOR < prev    next >
Encoding:
Text File  |  1991-04-13  |  283 b   |  20 lines
  1.       SUBROUTINE GETCH
  2.       IMPLICIT NONE
  3. C
  4. C GET NEXT CHARACTER
  5. C
  6.       INCLUDE MATLAB$KOM:IOP.KOM
  7.       INCLUDE MATLAB$KOM:COM.KOM
  8. C
  9.       INTEGER EOL, L
  10. C
  11.       DATA EOL / 99 /
  12. C
  13. C
  14.       L = LPT(4)
  15.       CHAR = LIN(L)
  16.       IF (CHAR.NE.EOL) LPT(4) = L+1
  17. C
  18.       RETURN
  19.       END
  20.