blob: 6e9c05c260f52147a635824d6364bb4cf5df7ae0 (
plain) (
blame)
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
|