pkg/utilities/nttools/tedit/display/screen/kpushbk.x


1
2
3
4
5
6
7
8
9
10
11

# K_PUSHBK -- Push back a single character read from the keyboard

procedure k_pushbk (ch)

int	ch		# i: character to be pushed back
#--
include "screen.com"

begin
	keych = ch
end