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