home *** CD-ROM | disk | FTP | other *** search
/ The Fred Fish Collection 1.5 / ffcollection-1-5-1992-11.iso / ff_disks / 200-299 / ff267.lzh / 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.