unix/boot/spp/rpp/rpprat/puttok.r


1
2
3
4
5
6
7
8
9
10
11
12
13

#-h-  puttok			  198  local   12/01/80  15:54:34
# puttok-put token into eval stack
   include  defs

    subroutine puttok (str)
    character str (MAXTOK)

    integer i

    for (i = 1; str (i) != EOS; i = i + 1)
       call putchr (str (i))
    return
    end