home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 1 / GoldFishApril1994_CD2.img / d4xx / d499 / diglib / diglib.lzh / source / GSLTYP.for < prev    next >
Text File  |  1991-04-13  |  268b  |  14 lines
  1.         SUBROUTINE GSLTYP(ITYPE)
  2.         IMPLICIT NONE
  3. C
  4. C
  5.         INCLUDE DIGLIB$KOM:GCLTYP.PRM
  6. C
  7. C       SET THE CURRENT LINE TYPE
  8. C
  9.         ILNTYP = ITYPE
  10.         IF (ILNTYP .LE. 0 .OR. (ILNTYP .GT. 4)) ILNTYP = 1
  11.         LINILT = .TRUE.
  12.         RETURN
  13.         END
  14.