      SUBROUTINE DSSTRC (COLORA, ISTRNG, COLORB, NUMRET)
      IMPLICIT NONE
C
C ***      CHANGE TO COLORA, DISPLAY STRING, CHANGE TO COLORB
C           (WITH <NUMRET> RETURNS)
C
      INTEGER COLORA, COLORB, NUMRET
      CHARACTER*(*) ISTRNG
C
C
      CALL DSWDA4 (COLORA, 0)
      CALL DSSTRN (ISTRNG, 0)
      CALL DSWDA4 (COLORB, NUMRET)
C
      RETURN
      END
