home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d4xx / d499 / diglib.lha / Diglib / diglib.lzh / source / GSFONT.for < prev    next >
Encoding:
Text File  |  1991-04-13  |  238 b   |  13 lines
  1.         SUBROUTINE GSFONT(IFONT,IERR)
  2.         IMPLICIT NONE
  3.         INTEGER IFONT,IERR
  4. C
  5. C       DUMMY FOR PDP-11 MACHINES
  6. C
  7.         IF (IFONT .EQ. 1) GO TO 100
  8.         IERR = -1
  9.         RETURN
  10. 100     IERR = 0
  11.         RETURN
  12.         END
  13.