home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d2xx / d267 / diglib.lha / Diglib / diglib.zoo / diglib / GSLTYP.FOR < prev    next >
Text File  |  1989-06-20  |  235b  |  13 lines
  1.         SUBROUTINE GSLTYP(ITYPE)
  2. C
  3. C
  4.         INCLUDE GCLTYP.PRM
  5. C
  6. C       SET THE CURRENT LINE TYPE
  7. C
  8.         ILNTYP = ITYPE
  9.         IF (ILNTYP .LE. 0 .OR. (ILNTYP .GT. 4)) ILNTYP = 1
  10.         LINILT = .TRUE.
  11.         RETURN
  12.         END
  13.