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 / SELDEV.FOR < prev    next >
Text File  |  1989-06-20  |  842b  |  30 lines
  1.         SUBROUTINE SELDEV(LUN)
  2.         CHARACTER*1 BNAME(40)
  3. C
  4. C       Show the device numbers and their names and ask for
  5. C       a device number. Attempt to select that device. If
  6. C       not successful, display an error message and ask for
  7. C       a new device number.
  8. C
  9.         EXTERNAL LEN
  10. C
  11. C       Display device numbers and names.
  12. C
  13.         IDEV = 1
  14. 1       CALL GSDNAM(IDEV,BNAME)
  15.         L = LEN(BNAME)
  16.         IF (L .EQ. 0) GO TO 5
  17.         WRITE(9,1111) IDEV, (BNAME(I), I=1,L)
  18. 1111    FORMAT(' Device ',I2,' is ',40A1,/)
  19.         IDEV = IDEV + 1
  20.         GO TO 1
  21. 5       WRITE(9,'(A\)') ' Number of the graphics device to use? '
  22.         READ(9,'(I5)') IDEV
  23. 6       CALL DEVSEL(IDEV,LUN,IERR)
  24.         IF (IERR .EQ. 0) GO TO 10
  25.         TYPE *, ' THAT DEVICE DOES NOT EXIST'
  26.         GO TO 5
  27. 10      Continue
  28.         Return
  29.         END
  30.