home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d2xx / d267 / diglib.lha / Diglib / diglib.zoo / diglib / GSCOLR.FOR < prev    next >
Text File  |  1989-06-20  |  1KB  |  37 lines
  1.         SUBROUTINE GSCOLR(ICOLOR,IERR)
  2.         INCLUDE GCDCHR.PRM
  3. C
  4. C       SELECT COLOR "ICOLOR" ON CURRENT DEVICE
  5. C
  6.         LOGICAL*1 LNOBKG
  7.         IERR = 0
  8. C
  9. C       LNOBKG SET TO TRUE IF NO BACKGROUND COLOR EXISTS ON THIS DEVICE
  10. C
  11.         LNOBKG = IAND(IDVBTS,4) .EQ. 0
  12. C
  13. C       FIRST, ERROR IF BACKGROUND COLOR REQUESTED AND DEVICE DOES NOT
  14. C       SUPPORT BACKGROUND COLOR WRITE.
  15. C
  16.         IF (ICOLOR .EQ. 0 .AND. LNOBKG) GO TO 900
  17. C
  18. C       SECOND, ERROR IF COLOR REQUESTED IS LARGER THAN THE NUMBER OF
  19. C       FOREGROUND COLORS AVAILABLE ON THIS DEVICE
  20. C
  21.         IF (ICOLOR .GT. NDCLRS) GO TO 900
  22. C
  23. C       IF ONLY 1 FOREGROUND COLOR AND NO BACKGROUND COLOR, THEN
  24. C       DRIVER WILL NOT SUPPORT SET COLOR, AND OF COURSE, THE
  25. C       COLOR MUST BE COLOR 1 TO HAVE GOTTEN THIS FAR, SO JUST RETURN
  26. C
  27.         IF (NDCLRS .EQ. 1 .AND. LNOBKG) RETURN
  28. C
  29. C       ALL IS OK, SO SET THE REQUESTED COLOR
  30. C
  31. 100     CALL GSDRVR(8,FLOAT(ICOLOR),DUMMY)
  32.         RETURN
  33. 900     IERR = -1
  34.         RETURN
  35.         END
  36.  
  37.