home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d2xx / d267 / diglib.lha / Diglib / diglib.zoo / diglib / GSFONT.FOR < prev    next >
Encoding:
Text File  |  1989-06-20  |  189 b   |  11 lines
  1.         SUBROUTINE GSFONT(IFONT,IERR)
  2. C
  3. C       DUMMY FOR PDP-11 MACHINES
  4. C
  5.         IF (IFONT .EQ. 1) GO TO 100
  6.         IERR = -1
  7.         RETURN
  8. 100     IERR = 0
  9.         RETURN
  10.         END
  11.