SUBROUTINE PUTSTR(STR, W, F)
      INTEGER STR(132)
      INTEGER W, F, LEN, I, LENGTH
      LEN = LENGTH(STR)
      IF(.NOT.(W .GE. 0))GOTO 23000
      I = LEN + 1
23002 IF(.NOT.(I .LE. W))GOTO 23004
      CALL PUTCH(32, F)
23003 I = I + 1
      GOTO 23002
23004 CONTINUE
23000 CONTINUE
      I = 1
23005 IF(.NOT.(STR(I) .NE. 10002))GOTO 23007
      CALL PUTCH(STR(I), F)
23006 I = I + 1
      GOTO 23005
23007 CONTINUE
      IF(.NOT.(W .LT. 0))GOTO 23008
      I = LEN + 1
23010 IF(.NOT.(I .LE. -W))GOTO 23012
      CALL PUTCH(32, F)
23011 I = I + 1
      GOTO 23010
23012 CONTINUE
23008 CONTINUE
      RETURN
      END