path: root/unix/boot/spp/rpp/ratlibf/getc.f

integer function getc (c)
      integer c
      integer getch
      getc = getch (c, 0)
      return
      end