sys/fio/getchar.x


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

# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.

# GETCHAR -- Get a character from the standard input.

char procedure getchar (ch)

char	ch			# character (output)
char	getc()

begin
	return (getc (STDIN, ch))
end