SUBROUTINE ESP (WORD, BUF, LEFT, RIGHT)
      INTEGER  WORD, BUF(1), LEFT, RIGHT
      INTEGER  CHAR, MFLAG, WORK, XMINUS, XZERO, COL
      DATA     XMINUS / 45 /
      DATA     XZERO  / 48 /
      IF (.NOT. (WORD .LT. 0))GO TO 13254
      WORK = - WORD
      MFLAG = 1
      GO TO 13255
13254 CONTINUE
      WORK = WORD
      MFLAG = 0
13255 CONTINUE
      COL = RIGHT
      CONTINUE
13256 CONTINUE
      IF (.NOT.(COL .GE. LEFT))GO TO 13257
      CHAR = MOD (WORK, 10) + XZERO
      WORK = WORK / 10
      CALL PCHAR (BUF, COL, CHAR)
      COL = COL - 1
      IF (.NOT. (WORK .LE. 0))GO TO 13258
      GO TO 13257
13258 CONTINUE
      GO TO 13256
13257 CONTINUE
      IF (MFLAG .NE. 0 .AND. COL .GE. LEFT) CALL PCHAR (BUF, COL, XMINUS
     1)
      RETURN
      END