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  
13016 CONTINUE  
    
      IF (.NOT.(COL .GE. LEFT))GO TO 13017  
    
      CHAR = IAND (WORK, MASK)  
      IF (.NOT. (CHAR .GE. 10))GO TO 13018  
    
      BIAS = XLETA  
      GO TO 13019   
13018 CONTINUE  
    
      BIAS = XZERO  
13019 CONTINUE  
    
      CALL PCHAR (BUF, COL, CHAR + BIAS)
      WORK = ISHFT (WORK, -4)   
      COL = COL - 1 
      GO TO 13016   
13017 CONTINUE  
    
      RETURN
      END