home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d2xx / d267 / diglib.lha / Diglib / diglib.zoo / diglib / GSDLNS.FOR < prev    next >
Text File  |  1989-06-20  |  330b  |  15 lines
  1.         SUBROUTINE GSDLNS(ILTYPE,ON1,OFF1,ON2,OFF2)
  2. C
  3. C       Define Line Style
  4. C
  5.         INCLUDE GCLTYP.PRM
  6. C
  7.         IF (ILTYPE .LT. 2 .OR. ILTYPE .GT. 4) RETURN
  8.         INDEX = ILTYPE-1
  9.         DIST(1,INDEX) = ON1
  10.         DIST(2,INDEX) = OFF1
  11.         DIST(3,INDEX) = ON2
  12.         DIST(4,INDEX) = OFF2
  13.         RETURN
  14.         END
  15.