SUBROUTINE VCURSR(ICHAR,X,Y)
      CALL SCURSR(ICHAR,IXA,IYA)
      CALL REVCOT(IXA,IYA,X,Y)
      RETURN
      END