      SUBROUTINE CHBACK (ICURS)
      IMPLICIT NONE
C
C ***      CHOOSE BACKGROUND COLOR
C
      CHARACTER*(*) ICURS
C
      INCLUDE MATLAB$KOM:MATPLT.KOM
C
C
      SETBG = .TRUE.
400   CONTINUE
      CALL DSSTRN (' ENTER THE BACKGROUND COLOR NUMBER', 1)
      CALL DSCURS (ICURS)
      CALL VALGET (0, BGRP, 'I')
      IF (BGRP.LT.0 .OR. BGRP.GT.15) THEN
        CALL DSERR ('ERROR.  COLOR NUMBER MUST BE BETWEEN 0 AND 15')
        CALL DSBLLN (1)
        GOTO 400
      ENDIF
C
      RETURN
      END
