include	defs

# getc - get character from STDIN

   character function getc (c)
   character c

   character getch

   getc = getch (c, STDIN)

   return
   end