SUBROUTINE ESP (WORD, BUF, LEFT, RIGHT)   
      INTEGER  WORD, BUF(1), LEFT, RIGHT
      INTEGER  CHAR, MFLAG, WORK, XMINUS, XZERO, COL
      INTEGER QQMOD 
      DATA     XMINUS / 45 /
      DATA     XZERO  / 48 /
      IF (.NOT. (WORD .LT. 0))GO TO 13008   
    
      WORK = - WORD 
      MFLAG = 1 
      GO TO 13009   
13008 CONTINUE  
    
      WORK = WORD   
      MFLAG = 0 
13009 CONTINUE  
    
      COL = RIGHT   
      CONTINUE  
13010 CONTINUE  
    
      IF (.NOT.(COL .GE. LEFT))GO TO 13011  
    
      CHAR = QQMOD (WORK, 10) + XZERO   
      WORK = WORK / 10  
      CALL PCHAR (BUF, COL, CHAR)   
      COL = COL - 1 
      IF (.NOT. (WORK .LE. 0))GO TO 13012   
    
      GO TO 13011   
    
13012 CONTINUE  
    
      GO TO 13010   
13011 CONTINUE  
    
      IF (MFLAG .NE. 0 .AND. COL .GE. LEFT) CALL PCHAR (BUF, COL, XMINUS
     1) 
      RETURN
      END