        SUBROUTINE GSDRVR(IFXN,X,Y)
C
C
        INCLUDE GCDSEL.PRM
C       Remember to edit GSDNAM also.
        DATA MAXDEV /1/
C
C       SEE IF DEVICE EXISTS
C
        IF (IDEV .GT. 0 .AND. IDEV .LE. MAXDEV) GO TO 50
C
C       NON-EXISTANT DEVICE, SO SEE IF USER IS JUST ENQUIRING??
C
        IF (IFXN .NE. 7) RETURN
C
C       RETURN DEVICE TYPE EQUAL ZERO IF ENQUIRING ABOUT NON-EXISTANT
C        DEVICE.
C
        X = 0.0
        RETURN
C
C       DISPATCH TO THE PROPER DRIVER
C
50      CONTINUE
        GO TO (100,200) IDEV
C
C     DEVICE 1 IS STANDARD 13" AMIGA OR SONY MONITOR, HI-RES, 16 COLORS
C
100     CONTINUE
        CALL GD13HI(IFXN,X,Y)
        RETURN
C
C dummy hook for later drivers
C
200     CONTINUE
        RETURN
C
        END

