home *** CD-ROM | disk | FTP | other *** search
/ The Fred Fish Collection 1.5 / ffcollection-1-5-1992-11.iso / ff_disks / 200-299 / ff267.lzh / Diglib / diglib.zoo / diglib / gsdrvr.for < prev    next >
Text File  |  1989-06-20  |  749b  |  40 lines
  1.         SUBROUTINE GSDRVR(IFXN,X,Y)
  2. C
  3. C
  4.         INCLUDE GCDSEL.PRM
  5. C       Remember to edit GSDNAM also.
  6.         DATA MAXDEV /1/
  7. C
  8. C       SEE IF DEVICE EXISTS
  9. C
  10.         IF (IDEV .GT. 0 .AND. IDEV .LE. MAXDEV) GO TO 50
  11. C
  12. C       NON-EXISTANT DEVICE, SO SEE IF USER IS JUST ENQUIRING??
  13. C
  14.         IF (IFXN .NE. 7) RETURN
  15. C
  16. C       RETURN DEVICE TYPE EQUAL ZERO IF ENQUIRING ABOUT NON-EXISTANT
  17. C        DEVICE.
  18. C
  19.         X = 0.0
  20.         RETURN
  21. C
  22. C       DISPATCH TO THE PROPER DRIVER
  23. C
  24. 50      CONTINUE
  25.         GO TO (100,200) IDEV
  26. C
  27. C     DEVICE 1 IS STANDARD 13" AMIGA OR SONY MONITOR, HI-RES, 16 COLORS
  28. C
  29. 100     CONTINUE
  30.         CALL GD13HI(IFXN,X,Y)
  31.         RETURN
  32. C
  33. C dummy hook for later drivers
  34. C
  35. 200     CONTINUE
  36.         RETURN
  37. C
  38.         END
  39.  
  40.