SUBROUTINE DCURSR(ICHAR,IX,IY)
      CALL SCURSR(ICHAR,IX,IY)
      RETURN
      END