unix/boot/spp/rpp/rppfor/puttok.f


1
2
3
4
5
6
7
8
9
10
11

subroutine puttok (str)
      integer str (100)
      integer i
      i = 1
23000 if (.not.(str (i) .ne. -2))goto 23002
      call putchr (str (i))
23001 i = i + 1
      goto 23000
23002 continue
      return
      end