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 / GSDNAM.FOR < prev    next >
Text File  |  1989-06-20  |  529b  |  18 lines
  1.         SUBROUTINE GSDNAM(IDEV,BNAME)
  2.         CHARACTER*1 BNAME(40)
  3. C
  4. C       THIS SUBROUTINE RETURNS THE DEVICE NAME OF THE SPECIFIED DEVICE
  5. C       *********** DEVICE NAMES ARE LIMITED TO 39 CHARACTERS **********
  6. C
  7. C
  8.         DATA MAXDEV /2/
  9. C
  10.         BNAME(1) = CHAR(0)
  11.         IF ((IDEV .LE. 0) .OR. (IDEV .GT. MAXDEV)) RETURN
  12.         GO TO (100,200) IDEV
  13. 100     CALL SCOPY('13" Monitor - Laced, 16 colors'//CHAR(0),BNAME)
  14.     GOTO 1000
  15. 200    CALL SCOPY('12" Monitor - Laced, 16 colors'//CHAR(0),BNAME)
  16. 1000    RETURN
  17.         END
  18.