        SUBROUTINE GSDNAM(IDEV,BNAME)
        CHARACTER*1 BNAME(40)
C
C       THIS SUBROUTINE RETURNS THE DEVICE NAME OF THE SPECIFIED DEVICE
C       *********** DEVICE NAMES ARE LIMITED TO 39 CHARACTERS **********
C
C
        DATA MAXDEV /2/
C
        BNAME(1) = CHAR(0)
        IF ((IDEV .LE. 0) .OR. (IDEV .GT. MAXDEV)) RETURN
        GO TO (100,200) IDEV
100     CALL SCOPY('13" Monitor - Laced, 16 colors'//CHAR(0),BNAME)
	GOTO 1000
200	CALL SCOPY('12" Monitor - Laced, 16 colors'//CHAR(0),BNAME)
1000    RETURN
        END
