SUBROUTINE EHX (WORD, BUF, LEFT, RIGHT)
      INTEGER  WORD, BUF(1), LEFT, RIGHT
      INTEGER  WORK, CHAR, COL, XZERO, XLETA, MASK, BIAS
      DATA     XZERO / 48 /
      DATA     XLETA / 55 /
      DATA     MASK  / 15 /
      COL = RIGHT
      WORK = WORD
      CONTINUE
13262 CONTINUE
      IF (.NOT.(COL .GE. LEFT))GO TO 13263
      CHAR = IAND (WORK, MASK)
      IF (.NOT. (CHAR .GE. 10))GO TO 13264
      BIAS = XLETA
      GO TO 13265
13264 CONTINUE
      BIAS = XZERO
13265 CONTINUE
      CALL PCHAR (BUF, COL, CHAR + BIAS)
      WORK = ISHFT (WORK, -4)
      COL = COL - 1
      GO TO 13262
13263 CONTINUE
      RETURN
      END