SUBROUTINE PUTLIN(B, F)
      INTEGER B(10000)
      INTEGER F, I
      I = 1
23000 IF(.NOT.(B(I) .NE. 10002))GOTO 23002
      CALL PUTCH(B(I), F)
23001 I = I + 1
      GOTO 23000
23002 CONTINUE
      RETURN
      END