home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d2xx / d267 / diglib.lha / Diglib / diglib.zoo / diglib / RLSDEV.FOR < prev    next >
Text File  |  1989-06-20  |  214b  |  15 lines
  1.         SUBROUTINE RLSDEV
  2. C
  3. C
  4.         INCLUDE GCDSEL.PRM
  5. C
  6. C       RELEASE CURRENT DEVICE
  7. C
  8.         IF (IDEV .NE. 0) CALL GSDRVR(6,DUMMY,DUMMY)
  9.         IDEV = 0
  10. C
  11. C       ALL DONE HERE
  12. C
  13.         RETURN
  14.         END
  15.