blob: 9f8423a41f621a27439d95480a92fe65f60fcbd8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
|
char readkey1()
{
char c;
char readkey1_result;
input >> kbd >> c;
readkey1_result= c;
return readkey1_result;
}
integer testou()
{
char ch;
integer testou_result;
input >> kbd >> ch;
switch (ch) {
case '\23' : sonoff= ! sonoff; break;
case '\1':
case '\3':
case '\5' : {
newgd= (cardinal)pred(integer,ord(ch)) >> 1;
testou_result= 61;
return testou_result;
}
break;
case '\10' : {
newgd= her;
testou_result= 61;
return testou_result;
}
break;
case '\24' : {
newgd= tan;
testou_result= 61;
return testou_result;
}
break;
case '\26' : if (set::of(1,2, eos).has(c_zzz))
{
zzuul(adcfiec+161,0,1644);
c_zzz=succ(integer,c_zzz);
testou_result=61;
return testou_result;
}
break;
case '\33' : if (keypressed()) input >> kbd >> ch; break;
}
testou_result=ord(ch);
return testou_result;
}
void teskbd()
{
integer dum;
if (keypressed()) dum=testou();
}
|