unix/boot/spp/rpp/ratlibr/getc.r


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

include	defs

# getc - get character from STDIN

   character function getc (c)
   character c

   character getch

   getc = getch (c, STDIN)

   return
   end