home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d4xx / d499 / diglib.lha / Diglib / diglib.lzh / source / RLSDEV.for < prev    next >
Encoding:
Text File  |  1991-04-13  |  254 b   |  17 lines
  1.         SUBROUTINE RLSDEV
  2.     IMPLICIT NONE
  3.     REAL*4 DUMMY
  4. C
  5. C
  6.         INCLUDE DIGLIB$KOM:GCDSEL.PRM
  7. C
  8. C       RELEASE CURRENT DEVICE
  9. C
  10.         IF (IDEV .NE. 0) CALL GSDRVR(6,DUMMY,DUMMY)
  11.         IDEV = 0
  12. C
  13. C       ALL DONE HERE
  14. C
  15.         RETURN
  16.         END
  17.