SUBROUTINE PUTINT(N, W, F)
      INTEGER N, W, F
      INTEGER CHARS(10)
      INTEGER ITOC
      INTEGER JUNK
      JUNK = ITOC(N, CHARS, 10)
      CALL PUTSTR(CHARS, W, F)
      RETURN
      END