home *** CD-ROM | disk | FTP | other *** search
/ The Fred Fish Collection 1.5 / ffcollection-1-5-1992-11.iso / ff_progs / libs / matlab.lzh / MATLAB / MATLAB.LZH / Source / Plot / CHBACK.FOR < prev    next >
Encoding:
Text File  |  1991-04-13  |  503 b   |  24 lines
  1.       SUBROUTINE CHBACK (ICURS)
  2.       IMPLICIT NONE
  3. C
  4. C ***      CHOOSE BACKGROUND COLOR
  5. C
  6.       CHARACTER*(*) ICURS
  7. C
  8.       INCLUDE MATLAB$KOM:MATPLT.KOM
  9. C
  10. C
  11.       SETBG = .TRUE.
  12. 400   CONTINUE
  13.       CALL DSSTRN (' ENTER THE BACKGROUND COLOR NUMBER', 1)
  14.       CALL DSCURS (ICURS)
  15.       CALL VALGET (0, BGRP, 'I')
  16.       IF (BGRP.LT.0 .OR. BGRP.GT.15) THEN
  17.         CALL DSERR ('ERROR.  COLOR NUMBER MUST BE BETWEEN 0 AND 15')
  18.         CALL DSBLLN (1)
  19.         GOTO 400
  20.       ENDIF
  21. C
  22.       RETURN
  23.       END
  24.