INKEY$ was unable to capture accented vowels, nor al keyboard symbols

[moises1953]

Contrary to INKEY$ function of Quickbasic, wich performs very well, the INKEY$ function of QB64 was unable to capture accented vowels, like 'áéíóú'.
Also INKEY$ was unable to capture to capture the <AltGr> symbols, and the spanish 'ñ'  or the french 'ç'.
I think this is a bug.
However some maping is posible:

Code: QB64: [Select]

1. FUNCTION Inkeymap$
2.   in$ = INKEY$
3.   IF LEN(in$) THEN
4.     SELECT CASE ASC(in$)
5.       CASE 0
6.         IF LEN(in$) = 2 THEN '...spanish keyboard
7.           SELECT CASE ASC(in$, 2)
8.             CASE 26: in$ = "["
9.             CASE 27: in$ = "]"
10.             CASE 43: in$ = "\"
11.             CASE 121: in$ = "@"
12.             CASE 122: in$ = "#"
13.             CASE ELSE
14.           END SELECT
15.         END IF
16.       CASE 161: in$ = CHR$(173) '"¡­"
17.       CASE 170: in$ = CHR$(166) '"ª"
18.       CASE 186: in$ = CHR$(167) '"º"
19.       CASE 191: in$ = CHR$(168) '"¿"
20.       CASE 209: in$ = CHR$(165) '"Ñ"
21.       CASE 231: in$ = CHR$(128) '"ç"
22.       CASE 241: in$ = CHR$(164) '"ñ"
23.       CASE ELSE
24.     END SELECT
25.   END IF
26.   Inkeymap$ = in$
27. END FUNCTION
28.  

[Petr]

What's the point of this function? Be sure to use _KEYHIT and _MAPUNICODE support with the correct code page and the correct font to support unicode characters. But I also have INKEY$ for Czech after switching the keyboard from English to Czech. Of course, meaningless characters are then displayed. This is just what _MAPUNICODE does. Another disadvantage of INKEY$ is the unability to detect multiple keystrokes at the same time, which in turn resolves _KEYDOWN.

I add my attempt for international support for all languages.

Code: QB64: [Select]

1. '$include:'nation.bi'
2. f& = _LOADFONT(ENVIRON$("systemroot") + "\fonts\century.ttf", 20, "monospace")
3. _FONT f&
4.  
5.  
6. PRINT "šěřéíěřé"
7. PRINT "press national keys for code show:"
8. PRINT
9. DO
10.     i& = _KEYHIT
11.     IF i& THEN PRINT "Keyhit code:"; i&
12.     IF i& < 0 THEN PRINT "released" ' the same code but negative after release
13. LOOP
14.  
15. FUNCTION WIN
16.     IF INSTR(_OS$, "WINDOWS") THEN WIN = 1 ELSE WIN = 0
17. END FUNCTION
18.  
19.  

[moises1953]

Thanks a lot, Petr. I will test.

[TempodiBasic]

Hi Petr
great step toward the internationalization of QB64!
Thanks

PS with this demo I got an error invalid handle at line 3
verifing that ENVIRON$ gives back the right result I have discovered that I have no century.ttf in my font folder!
So changing the name to another TTF (lucon.ttf) i got that your demo runs well.
But I want to see the characters on the screen so I add this little code before the DO...LOOP of your demo
 

Code: QB64: [Select]

1.  
2. DO
3.     CLS
4.     a$ = INKEY$
5.     IF a$ = "" THEN PRINT "nothing"; ELSE PRINT a$;
6.     _DELAY .3
7. LOOP UNTIL a$ = " "
8.  

and it works fine
Thanks again

[Petr]

Thank You, TempodiBasic :-D

[moises1953]

I have tested the Petr national spanish code and performs very well.
The problem is that the _keyhit function does not capture the accent keys, so it's imposible to capture a national text from the keyboard, by this function.
Otherside the function keys need to capture the Ctrl, Shift and Alt, to generate a keycode compatible with quickbasic.
Consider this:

Code: QB64: [Select]

1. '$include:'nation.bi'
2. f& = _LOADFONT(ENVIRON$("systemroot") + "\fonts\century.ttf", 20, "monospace")
3. _FONT f&
4.  
5. PRINT "šěřéíěřé"
6. PRINT "press national keys for code show:"
7. PRINT
8. DO
9.   in$ = Inkeyhit$ '...Emulates quickbasic inkey$, except accent's
10.   IF LEN(in$) THEN PRINT in$;
11. LOOP UNTIL in$ = CHR$(27)
12. END
13.  
14. FUNCTION Inkeyhit$ STATIC
15.   DIM car AS _UNSIGNED _BYTE, doblecar AS STRING * 2
16.   car = 0
17.   i& = _KEYHIT
18.   SELECT CASE i&
19.     CASE 97 TO 122 'CTRL a-z: 1-26
20.       car = i&
21.       keyctrl% = _KEYDOWN(100305) OR _KEYDOWN(100306)
22.       IF keyctrl% THEN car = car - 96
23.     CASE 1 TO 255
24.       car = i&
25.     CASE 256 TO 65535
26.       keyalt% = _KEYDOWN(100307) OR _KEYDOWN(100308)
27.       keyctrl% = _KEYDOWN(100305) OR _KEYDOWN(100306)
28.       keyshift% = _KEYDOWN(100303) OR _KEYDOWN(100304)
29.       doblecar = MKI$(i&)
30.       car = ASC(doblecar, 2)
31.       IF keyalt% THEN
32.         SELECT CASE car
33.           CASE 59 TO 68 'F1-F10: ;-D
34.             MID$(doblecar, 2) = CHR$(car + 45)
35.           CASE 133, 134 'F11,F12; …,†
36.             MID$(doblecar, 2) = CHR$(car + 6)
37.           CASE ELSE
38.             car = 0
39.         END SELECT
40.       ELSEIF keyctrl% THEN
41.         SELECT CASE car
42.           CASE 59 TO 68 'F1-F10: ^-g
43.             MID$(doblecar, 2) = CHR$(car + 35)
44.           CASE 71 'Home
45.             MID$(doblecar, 2) = CHR$(119)
46.           CASE 73 'RePag
47.             MID$(doblecar, 2) = CHR$(132)
48.           CASE 75 'Left
49.             MID$(doblecar, 2) = CHR$(115)
50.           CASE 77 'Right
51.             MID$(doblecar, 2) = CHR$(116)
52.           CASE 79 'End
53.             MID$(doblecar, 2) = CHR$(117)
54.           CASE 81 'AvPag
55.             MID$(doblecar, 2) = CHR$(118)
56.           CASE 133, 134 'F11,F12
57.             MID$(doblecar, 2) = CHR$(car + 4)
58.           CASE ELSE
59.             car = 0
60.         END SELECT
61.       ELSEIF keyshift% THEN
62.         SELECT CASE car
63.           CASE 59 TO 68 'F1-F10
64.             MID$(doblecar, 2) = CHR$(car + 25)
65.           CASE 71 TO 81
66.           CASE 133, 134 'F11,F12
67.             MID$(doblecar, 2) = CHR$(car + 2)
68.           CASE ELSE
69.             car = 0
70.         END SELECT
71.       END IF
72.       IF car THEN Inkeyhit$ = doblecar
73.       car = 0
74.   END SELECT
75.  
76.   IF car THEN Inkeyhit$ = CHR$(car)
77. END FUNCTION
78.  
79. FUNCTION WIN
80.     IF INSTR(_OS$, "WINDOWS") THEN WIN = 1 ELSE WIN = 0
81. END FUNCTION
82.  
83.  

[moises1953]

Definitively INKEY$ and _KEYHIT have bugs.
INKEY$:
F1-F12 and displacement keys (home, end, arrows...) works OK. Inyect new displacement keys compatible codes for Alt modifier.
bugs:
1) Alt<number of numeric keyboard> not works: some symbols are unavailable, ie greek letters. Without <numlock> do something, but the key 5 have no response, so it's incomplete.
2) Accents not work: áéíóúàâä unavailable.
3) Improper keyboard maping: çÇñÑ¡¿ºª of spanish keyborad shows other symbol, so not available.
4) Incompatible keyboard maping with AltGr keys: î\|@#{}[] shows € + + y z -> <-
The valuable Petr unicode maping aplied to INKEY solves issue 3 with page 1252, and using _KEYHIT solves the issues 3 & 4 (Thank's a lot Petr), but changes the caracter codes, so many symbols adopt new unespected codes, and inyects a new problem with modified (Alt, Ctrl, Shift) F1-F12, displacement keys, and Ctrl a-z. May be solved using _KEYDOWN: See FUNCTION Inkeyhit$.

The following solution has a Inkeyhit$ function that emulates the quickbasic INKEY$, no need a font and preserves the DOS caracter codes. Uses the Petr maping to solve the AltGr codes, but needs some key maping, and accent keys have a extraneous behaviour, so accented letters are not solved (issue 2).
Use Alt numeric keys in the alpha keyboard for caracter codes.

Code: QB64: [Select]

1. DEFINT H-P
2. _FULLSCREEN
3. language = 437 'PC, 850 also performs well, 1252 is the windows spanish
4. CALL MapUnicode(language, page$) 'solves the AltGr issue 4
5.  
6. LOCATE , , 1 'show cursor
7. PRINT "Code page (Language): CP"; page$
8. PRINT "Inkeyhit & display (128-175): €‚ƒ„ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§©ª«¬­®¯"
9. DO
10.   'in$ = INKEY$
11.   in$ = Inkeyhit$(buf$) 'emulates quickbasic INKEY$, except accents (issue 2)
12.   IF LEN(in$) THEN PRINT in$;
13. LOOP UNTIL in$ = CHR$(27)
14. END
15.  
16. FUNCTION Inkeyhit$ (buf$) STATIC 'Author: Moises1953
17.   DIM car AS _UNSIGNED _BYTE, doblecar AS STRING * 2
18.   car = 0
19.   i& = _KEYHIT
20.   SELECT CASE i&
21.     CASE 0 'do nothing
22.     CASE 48 TO 56 'numeric heys 1-9,0, not numeric keyboard
23.       keyalt = _KEYDOWN(100307) OR _KEYDOWN(100308)
24.       IF keyalt THEN
25.         buf$ = buf$ + CHR$(i&)
26.         IF LEN(buf$) > 3 THEN buf$ = RIGHT$(buf$, 3)
27.         car = 0
28.       ELSE
29.         car = i&
30.       END IF
31.     CASE 97 TO 122 'CTRL a-z: 1-26
32.       car = i&
33.       keyctrl = _KEYDOWN(100305) OR _KEYDOWN(100306)
34.       IF keyctrl THEN car = car - 96
35.     CASE 128: car = 238 '€î  'spanish keyboard keys maping
36.     CASE 161: car = 173 '¡­
37.     CASE 170: car = 166 'ª¦
38.     CASE 183: car = 249 '·ù
39.     CASE 186: car = 167 'º§
40.     CASE 191: car = 168 '¿¨
41.     CASE 199: car = 128 'ç€
42.     CASE 209: car = 165 'Ñ¥
43.     CASE 231: car = 135 'ç‡
44.     CASE 241: car = 164 'ñ¤
45.     CASE 1 TO 255
46.       car = i&
47.     CASE 256 TO 65535 'double byte chr$(0)+
48.       keyalt = _KEYDOWN(100307) OR _KEYDOWN(100308)
49.       keyctrl = _KEYDOWN(100305) OR _KEYDOWN(100306)
50.       keyshift = _KEYDOWN(100303) OR _KEYDOWN(100304)
51.       doblecar = MKI$(i&)
52.       car = ASC(doblecar, 2)
53.       IF keyalt THEN
54.         SELECT CASE car
55.           CASE 59 TO 68 'F1-F10: ;-D
56.             MID$(doblecar, 2) = CHR$(car + 45)
57.           CASE 133, 134 'F11,F12; …,†
58.             MID$(doblecar, 2) = CHR$(car + 6)
59.           CASE ELSE
60.             MID$(doblecar, 2) = CHR$(0)
61.         END SELECT
62.       ELSEIF keyctrl THEN
63.         SELECT CASE car
64.           CASE 59 TO 68 'F1-F10: ^-g
65.             MID$(doblecar, 2) = CHR$(car + 35)
66.           CASE 71 'Home
67.             MID$(doblecar, 2) = CHR$(119)
68.           CASE 73 'RePag
69.             MID$(doblecar, 2) = CHR$(132)
70.           CASE 75 'Left
71.             MID$(doblecar, 2) = CHR$(115)
72.           CASE 77 'Right
73.             MID$(doblecar, 2) = CHR$(116)
74.           CASE 79 'End
75.             MID$(doblecar, 2) = CHR$(117)
76.           CASE 81 'AvPag
77.             MID$(doblecar, 2) = CHR$(118)
78.           CASE 133, 134 'F11,F12
79.             MID$(doblecar, 2) = CHR$(car + 4)
80.           CASE ELSE
81.             MID$(doblecar, 2) = CHR$(0)
82.         END SELECT
83.       ELSEIF keyshift THEN
84.         SELECT CASE car
85.           CASE 59 TO 68 'F1-F10
86.             MID$(doblecar, 2) = CHR$(car + 25)
87.           CASE 71 TO 81
88.           CASE 133, 134 'F11,F12
89.             MID$(doblecar, 2) = CHR$(car + 2)
90.           CASE ELSE
91.             MID$(doblecar, 2) = CHR$(0)
92.         END SELECT
93.       END IF
94.       IF CVI(doblecar) THEN Inkeyhit$ = doblecar
95.       car = 0
96.     CASE -100307, -100308 'Alt up
97.       IF LEN(buf$) THEN
98.         car = VAL(buf$)
99.         Inkeyhit$ = CHR$(car)
100.         buf$ = ""
101.         car = 0
102.       END IF
103.   END SELECT
104.  
105.   IF car THEN Inkeyhit$ = CHR$(car)
106. END FUNCTION
107.  
108. SUB MapUnicode (language, page$) 'Derived from Petr maping software (fragment)
109.   page$ = LTRIM$(STR$(language))
110.   SELECT CASE language
111.     CASE 437: RESTORE Microsoft_pc_cp437
112.     CASE 737: RESTORE Microsoft_pc_cp737
113.     CASE 775: RESTORE Microsoft_pc_cp775
114.     CASE 850: RESTORE Microsoft_pc_cp850
115.     CASE 852: RESTORE Microsoft_pc_cp852
116.     CASE 855: RESTORE Microsoft_pc_cp855
117.     CASE 857: RESTORE Microsoft_pc_cp857
118.     CASE 860: RESTORE Microsoft_pc_cp860
119.     CASE 861: RESTORE Microsoft_pc_cp861
120.     CASE 862: RESTORE Microsoft_pc_cp862
121.     CASE 863: RESTORE Microsoft_pc_cp863
122.     CASE 864: RESTORE Microsoft_pc_cp864
123.     CASE 865: RESTORE Microsoft_pc_cp865
124.     CASE 866: RESTORE Microsoft_pc_cp866
125.     CASE 869: RESTORE Microsoft_pc_cp869
126.     CASE 874: RESTORE Microsoft_pc_cp874
127.     CASE 1250: RESTORE Microsoft_windows_cp1250
128.     CASE 1251: RESTORE Microsoft_windows_cp1251
129.     CASE 1252: RESTORE Microsoft_windows_cp1252
130.     CASE 1253: RESTORE Microsoft_windows_cp1253
131.     CASE 1254: RESTORE Microsoft_windows_cp1254
132.     CASE 1255: RESTORE Microsoft_windows_cp1255
133.     CASE 1256: RESTORE Microsoft_windows_cp1256
134.     CASE 1257: RESTORE Microsoft_windows_cp1257
135.     CASE 1258: RESTORE Microsoft_windows_cp1258
136.     CASE ELSE
137.       page$ = ""
138.   END SELECT
139.  
140.   FOR Icode = 128 TO 255 '...extended ASCII codes
141.     READ Mapcode
142.     _MAPUNICODE Mapcode TO Icode
143.   NEXT
144.   EXIT SUB
145.  
146.   Microsoft_pc_cp437:
147.   DATA 199,252,233,226,228,224,229,231,234,235,232,239,238,236,196,197
148.   DATA 201,230,198,244,246,242,251,249,255,214,220,162,163,165,8359,402
149.   DATA 225,237,243,250,241,209,170,186,191,8976,172,189,188,161,171,187
150.   DATA 9617,9618,9619,9474,9508,9569,9570,9558,9557,9571,9553,9559,9565,9564,9563,9488
151.   DATA 9492,9524,9516,9500,9472,9532,9566,9567,9562,9556,9577,9574,9568,9552,9580,9575
152.   DATA 9576,9572,9573,9561,9560,9554,9555,9579,9578,9496,9484,9608,9604,9612,9616,9600
153.   DATA 945,223,915,960,931,963,181,964,934,920,937,948,8734,966,949,8745
154.   DATA 8801,177,8805,8804,8992,8993,247,8776,176,8729,183,8730,8319,178,9632,160
155.  
156.   Microsoft_pc_cp737:
157.   DATA 913,914,915,916,917,918,919,920,921,922,923,924,925,926,927,928
158.   DATA 929,931,932,933,934,935,936,937,945,946,947,948,949,950,951,952
159.   DATA 953,954,955,956,957,958,959,960,961,963,962,964,965,966,967,968
160.   DATA 9617,9618,9619,9474,9508,9569,9570,9558,9557,9571,9553,9559,9565,9564,9563,9488
161.   DATA 9492,9524,9516,9500,9472,9532,9566,9567,9562,9556,9577,9574,9568,9552,9580,9575
162.   DATA 9576,9572,9573,9561,9560,9554,9555,9579,9578,9496,9484,9608,9604,9612,9616,9600
163.   DATA 969,940,941,942,970,943,972,973,971,974,902,904,905,906,908,910
164.   DATA 911,177,8805,8804,938,939,247,8776,176,8729,183,8730,8319,178,9632,160
165.  
166.   Microsoft_pc_cp775:
167.   DATA 262,252,233,257,228,291,229,263,322,275,342,343,299,377,196,197
168.   DATA 201,230,198,333,246,290,162,346,347,214,220,248,163,216,215,164
169.   DATA 256,298,243,379,380,378,8221,166,169,174,172,189,188,321,171,187
170.   DATA 9617,9618,9619,9474,9508,260,268,280,278,9571,9553,9559,9565,302,352,9488
171.   DATA 9492,9524,9516,9500,9472,9532,370,362,9562,9556,9577,9574,9568,9552,9580,381
172.   DATA 261,269,281,279,303,353,371,363,382,9496,9484,9608,9604,9612,9616,9600
173.   DATA 211,223,332,323,245,213,181,324,310,311,315,316,326,274,325,8217
174.   DATA 173,177,8220,190,182,167,247,8222,176,8729,183,185,179,178,9632,160
175.  
176.   Microsoft_pc_cp850:
177.   DATA 199,252,233,226,228,224,229,231,234,235,232,239,238,236,196,197
178.   DATA 201,230,198,244,246,242,251,249,255,214,220,248,163,216,215,402
179.   DATA 225,237,243,250,241,209,170,186,191,174,172,189,188,161,171,187
180.   DATA 9617,9618,9619,9474,9508,193,194,192,169,9571,9553,9559,9565,162,165,9488
181.   DATA 9492,9524,9516,9500,9472,9532,227,195,9562,9556,9577,9574,9568,9552,9580,164
182.   DATA 240,208,202,203,200,305,205,206,207,9496,9484,9608,9604,166,204,9600
183.   DATA 211,223,212,210,245,213,181,254,222,218,219,217,253,221,175,180
184.   DATA 173,177,8215,190,182,167,247,184,176,168,183,185,179,178,9632,160
185.  
186.   Microsoft_pc_cp852:
187.   DATA 199,252,233,226,228,367,263,231,322,235,336,337,238,377,196,262
188.   DATA 201,313,314,244,246,317,318,346,347,214,220,356,357,321,215,269
189.   DATA 225,237,243,250,260,261,381,382,280,281,172,378,268,351,171,187
190.   DATA 9617,9618,9619,9474,9508,193,194,282,350,9571,9553,9559,9565,379,380,9488
191.   DATA 9492,9524,9516,9500,9472,9532,258,259,9562,9556,9577,9574,9568,9552,9580,164
192.   DATA 273,272,270,203,271,327,205,206,283,9496,9484,9608,9604,354,366,9600
193.   DATA 211,223,212,323,324,328,352,353,340,218,341,368,253,221,355,180
194.   DATA 173,733,731,711,728,167,247,184,176,168,729,369,344,345,9632,160
195.  
196.   Microsoft_pc_cp855:
197.   DATA 1106,1026,1107,1027,1105,1025,1108,1028,1109,1029,1110,1030,1111,1031,1112,1032
198.   DATA 1113,1033,1114,1034,1115,1035,1116,1036,1118,1038,1119,1039,1102,1070,1098,1066
199.   DATA 1072,1040,1073,1041,1094,1062,1076,1044,1077,1045,1092,1060,1075,1043,171,187
200.   DATA 9617,9618,9619,9474,9508,1093,1061,1080,1048,9571,9553,9559,9565,1081,1049,9488
201.   DATA 9492,9524,9516,9500,9472,9532,1082,1050,9562,9556,9577,9574,9568,9552,9580,164
202.   DATA 1083,1051,1084,1052,1085,1053,1086,1054,1087,9496,9484,9608,9604,1055,1103,9600
203.   DATA 1071,1088,1056,1089,1057,1090,1058,1091,1059,1078,1046,1074,1042,1100,1068,8470
204.   DATA 173,1099,1067,1079,1047,1096,1064,1101,1069,1097,1065,1095,1063,167,9632,160
205.  
206.   Microsoft_pc_cp857:
207.   DATA 199,252,233,226,228,224,229,231,234,235,232,239,238,305,196,197
208.   DATA 201,230,198,244,246,242,251,249,304,214,220,248,163,216,350,351
209.   DATA 225,237,243,250,241,209,286,287,191,174,172,189,188,161,171,187
210.   DATA 9617,9618,9619,9474,9508,193,194,192,169,9571,9553,9559,9565,162,165,9488
211.   DATA 9492,9524,9516,9500,9472,9532,227,195,9562,9556,9577,9574,9568,9552,9580,164
212.   DATA 186,170,202,203,200,0,205,206,207,9496,9484,9608,9604,166,204,9600
213.   DATA 211,223,212,210,245,213,181,0,215,218,219,217,236,255,175,180
214.   DATA 173,177,0,190,182,167,247,184,176,168,183,185,179,178,9632,160
215.  
216.   Microsoft_pc_cp860:
217.   DATA 199,252,233,226,227,224,193,231,234,202,232,205,212,236,195,194
218.   DATA 201,192,200,244,245,242,218,249,204,213,220,162,163,217,8359,211
219.   DATA 225,237,243,250,241,209,170,186,191,210,172,189,188,161,171,187
220.   DATA 9617,9618,9619,9474,9508,9569,9570,9558,9557,9571,9553,9559,9565,9564,9563,9488
221.   DATA 9492,9524,9516,9500,9472,9532,9566,9567,9562,9556,9577,9574,9568,9552,9580,9575
222.   DATA 9576,9572,9573,9561,9560,9554,9555,9579,9578,9496,9484,9608,9604,9612,9616,9600
223.   DATA 945,223,915,960,931,963,181,964,934,920,937,948,8734,966,949,8745
224.   DATA 8801,177,8805,8804,8992,8993,247,8776,176,8729,183,8730,8319,178,9632,160
225.  
226.   Microsoft_pc_cp861:
227.   DATA 199,252,233,226,228,224,229,231,234,235,232,208,240,222,196,197
228.   DATA 201,230,198,244,246,254,251,221,253,214,220,248,163,216,8359,402
229.   DATA 225,237,243,250,193,205,211,218,191,8976,172,189,188,161,171,187
230.   DATA 9617,9618,9619,9474,9508,9569,9570,9558,9557,9571,9553,9559,9565,9564,9563,9488
231.   DATA 9492,9524,9516,9500,9472,9532,9566,9567,9562,9556,9577,9574,9568,9552,9580,9575
232.   DATA 9576,9572,9573,9561,9560,9554,9555,9579,9578,9496,9484,9608,9604,9612,9616,9600
233.   DATA 945,223,915,960,931,963,181,964,934,920,937,948,8734,966,949,8745
234.   DATA 8801,177,8805,8804,8992,8993,247,8776,176,8729,183,8730,8319,178,9632,160
235.  
236.   Microsoft_pc_cp862:
237.   DATA 1488,1489,1490,1491,1492,1493,1494,1495,1496,1497,1498,1499,1500,1501,1502,1503
238.   DATA 1504,1505,1506,1507,1508,1509,1510,1511,1512,1513,1514,162,163,165,8359,402
239.   DATA 225,237,243,250,241,209,170,186,191,8976,172,189,188,161,171,187
240.   DATA 9617,9618,9619,9474,9508,9569,9570,9558,9557,9571,9553,9559,9565,9564,9563,9488
241.   DATA 9492,9524,9516,9500,9472,9532,9566,9567,9562,9556,9577,9574,9568,9552,9580,9575
242.   DATA 9576,9572,9573,9561,9560,9554,9555,9579,9578,9496,9484,9608,9604,9612,9616,9600
243.   DATA 945,223,915,960,931,963,181,964,934,920,937,948,8734,966,949,8745
244.   DATA 8801,177,8805,8804,8992,8993,247,8776,176,8729,183,8730,8319,178,9632,160
245.  
246.   Microsoft_pc_cp863:
247.   DATA 199,252,233,226,194,224,182,231,234,235,232,239,238,8215,192,167
248.   DATA 201,200,202,244,203,207,251,249,164,212,220,162,163,217,219,402
249.   DATA 166,180,243,250,168,184,179,175,206,8976,172,189,188,190,171,187
250.   DATA 9617,9618,9619,9474,9508,9569,9570,9558,9557,9571,9553,9559,9565,9564,9563,9488
251.   DATA 9492,9524,9516,9500,9472,9532,9566,9567,9562,9556,9577,9574,9568,9552,9580,9575
252.   DATA 9576,9572,9573,9561,9560,9554,9555,9579,9578,9496,9484,9608,9604,9612,9616,9600
253.   DATA 4023,945,223,915,960,931,963,181,964,934,920,937,948,8734,966,949,8745
254.   DATA 8801,177,8805,8804,8992,8993,247,8776,176,8729,183,8730,8319,178,9632,160
255.  
256.   Microsoft_pc_cp864:
257.   DATA 176,183,8729,8730,9618,9472,9474,9532,9508,9516,9500,9524,9488,9484,9492,9496
258.   DATA 946,8734,966,177,189,188,8776,171,187,65271,65272,0,0,65275,65276,0
259.   DATA 160,173,65154,163,164,65156,0,0,65166,65167,65173,65177,1548,65181,65185,65189
260.   DATA 1632,1633,1634,1635,1636,1637,1638,1639,1640,1641,65233,1563,65201,65205,65209,1567
261.   DATA 162,65152,65153,65155,65157,65226,65163,65165,65169,65171,65175,65179,65183,65187,65191,65193
262.   DATA 65195,65197,65199,65203,65207,65211,65215,65217,65221,65227,65231,166,172,247,215,65225
263.   DATA 1600,65235,65239,65243,65247,65251,65255,65259,65261,65263,65267,65213,65228,65230,65229,65249
264.   DATA 65149,1617,65253,65257,65260,65264,65266,65232,65237,65269,65270,65245,65241,65265,9632,0
265.  
266.   Microsoft_pc_cp865:
267.   DATA 199,252,233,226,228,224,229,231,234,235,232,239,238,236,196,197
268.   DATA 201,230,198,244,246,242,251,249,255,214,220,248,163,216,8359,402
269.   DATA 225,237,243,250,241,209,170,186,191,8976,172,189,188,161,171,164
270.   DATA 9617,9618,9619,9474,9508,9569,9570,9558,9557,9571,9553,9559,9565,9564,9563,9488
271.   DATA 9492,9524,9516,9500,9472,9532,9566,9567,9562,9556,9577,9574,9568,9552,9580,9575
272.   DATA 9576,9572,9573,9561,9560,9554,9555,9579,9578,9496,9484,9608,9604,9612,9616,9600
273.   DATA 945,223,915,960,931,963,181,964,934,920,937,948,8734,966,949,8745
274.   DATA 8801,177,8805,8804,8992,8993,247,8776,176,8729,183,8730,8319,178,9632,160
275.  
276.   Microsoft_pc_cp866:
277.   DATA 1040,1041,1042,1043,1044,1045,1046,1047,1048,1049,1050,1051,1052,1053,1054,1055
278.   DATA 1056,1057,1058,1059,1060,1061,1062,1063,1064,1065,1066,1067,1068,1069,1070,1071
279.   DATA 1072,1073,1074,1075,1076,1077,1078,1079,1080,1081,1082,1083,1084,1085,1086,1087
280.   DATA 9617,9618,9619,9474,9508,9569,9570,9558,9557,9571,9553,9559,9565,9564,9563,9488
281.   DATA 9492,9524,9516,9500,9472,9532,9566,9567,9562,9556,9577,9574,9568,9552,9580,9575
282.   DATA 9576,9572,9573,9561,9560,9554,9555,9579,9578,9496,9484,9608,9604,9612,9616,9600
283.   DATA 1088,1089,1090,1091,1092,1093,1094,1095,1096,1097,1098,1099,1100,1101,1102,1103
284.   DATA 1025,1105,1028,1108,1031,1111,1038,1118,176,8729,183,8730,8470,164,9632,160
285.  
286.   Microsoft_pc_cp869:
287.   DATA 0,0,0,0,0,0,902,0,183,172,166,8216,8217,904,8213,905
288.   DATA 906,938,908,0,0,910,939,169,911,178,179,940,163,941,942,943
289.   DATA 970,912,972,973,913,914,915,916,917,918,919,189,920,921,171,187
290.   DATA 9617,9618,9619,9474,9508,922,923,924,925,9571,9553,9559,9565,926,927,9488
291.   DATA 9492,9524,9516,9500,9472,9532,928,929,9562,9556,9577,9574,9568,9552,9580,931
292.   DATA 932,933,934,935,936,937,945,946,947,9496,9484,9608,9604,948,949,9600
293.   DATA 950,951,952,953,954,955,956,957,958,959,960,961,963,962,964,900
294.   DATA 173,177,965,966,967,167,968,901,176,168,969,971,944,974,9632,160
295.  
296.   Microsoft_pc_cp874:
297.   DATA 8364,0,0,0,0,8230,0,0,0,0,0,0,0,0,0,0
298.   DATA 0,8216,8217,8220,8221,8226,8211,8212,0,0,0,0,0,0,0,0
299.   DATA 160,3585,3586,3587,3588,3589,3590,3591,3592,3593,3594,3595,3596,3597,3598,3599
300.   DATA 3600,3601,3602,3603,3604,3605,3606,3607,3608,3609,3610,3611,3612,3613,3614,3615
301.   DATA 3616,3617,3618,3619,3620,3621,3622,3623,3624,3625,3626,3627,3628,3629,3630,3631
302.   DATA 3632,3633,3634,3635,3636,3637,3638,3639,3640,3641,3642,0,0,0,0,3647
303.   DATA 3648,3649,3650,3651,3652,3653,3654,3655,3656,3657,3658,3659,3660,3661,3662,3663
304.   DATA 3664,3665,3666,3667,3668,3669,3670,3671,3672,3673,3674,3675,0,0,0,0
305.  
306.   Microsoft_windows_cp1250:
307.   DATA 8364,0,8218,0,8222,8230,8224,8225,0,8240,352,8249,346,356,381,377
308.   DATA 0,8216,8217,8220,8221,8226,8211,8212,0,8482,353,8250,347,357,382,378
309.   DATA 160,711,728,321,164,260,166,167,168,169,350,171,172,173,174,379
310.   DATA 176,177,731,322,180,181,182,183,184,261,351,187,317,733,318,380
311.   DATA 340,193,194,258,196,313,262,199,268,201,280,203,282,205,206,270
312.   DATA 272,323,327,211,212,336,214,215,344,366,218,368,220,221,354,223
313.   DATA 341,225,226,259,228,314,263,231,269,233,281,235,283,237,238,271
314.   DATA 273,324,328,243,244,337,246,247,345,367,250,369,252,253,355,729
315.  
316.   Microsoft_windows_cp1251:
317.   DATA 1026,1027,8218,1107,8222,8230,8224,8225,8364,8240,1033,8249,1034,1036,1035,1039
318.   DATA 1106,8216,8217,8220,8221,8226,8211,8212,0,8482,1113,8250,1114,1116,1115,1119
319.   DATA 160,1038,1118,1032,164,1168,166,167,1025,169,1028,171,172,173,174,1031
320.   DATA 176,177,1030,1110,1169,181,182,183,1105,8470,1108,187,1112,1029,1109,1111
321.   DATA 1040,1041,1042,1043,1044,1045,1046,1047,1048,1049,1050,1051,1052,1053,1054,1055
322.   DATA 1056,1057,1058,1059,1060,1061,1062,1063,1064,1065,1066,1067,1068,1069,1070,1071
323.   DATA 1072,1073,1074,1075,1076,1077,1078,1079,1080,1081,1082,1083,1084,1085,1086,1087
324.   DATA 1088,1089,1090,1091,1092,1093,1094,1095,1096,1097,1098,1099,1100,1101,1102,1103
325.  
326.   Microsoft_windows_cp1252:
327.   DATA 8364,0,8218,402,8222,8230,8224,8225,710,8240,352,8249,338,0,381,0
328.   DATA 0,8216,8217,8220,8221,8226,8211,8212,732,8482,353,8250,339,0,382,376
329.   DATA 160,161,162,163,164,165,166,167,168,169,170,171,172,173,174,175
330.   DATA 176,177,178,179,180,181,182,183,184,185,186,187,188,189,190,191
331.   DATA 192,193,194,195,196,197,198,199,200,201,202,203,204,205,206,207
332.   DATA 208,209,210,211,212,213,214,215,216,217,218,219,220,221,222,223
333.   DATA 224,225,226,227,228,229,230,231,232,233,234,235,236,237,238,239
334.   DATA 240,241,242,243,244,245,246,247,248,249,250,251,252,253,254,255
335.  
336.   Microsoft_windows_cp1253:
337.   DATA 8364,0,8218,402,8222,8230,8224,8225,0,8240,0,8249,0,0,0,0
338.   DATA 0,8216,8217,8220,8221,8226,8211,8212,0,8482,0,8250,0,0,0,0
339.   DATA 160,901,902,163,164,165,166,167,168,169,0,171,172,173,174,8213
340.   DATA 176,177,178,179,900,181,182,183,904,905,906,187,908,189,910,911
341.   DATA 912,913,914,915,916,917,918,919,920,921,922,923,924,925,926,927
342.   DATA 928,929,0,931,932,933,934,935,936,937,938,939,940,941,942,943
343.   DATA 944,945,946,947,948,949,950,951,952,953,954,955,956,957,958,959
344.   DATA 960,961,962,963,964,965,966,967,968,969,970,971,972,973,974,0
345.  
346.   Microsoft_windows_cp1254:
347.   DATA 8364,0,8218,402,8222,8230,8224,8225,710,8240,352,8249,338,0,0,0
348.   DATA 0,8216,8217,8220,8221,8226,8211,8212,732,8482,353,8250,339,0,0,376
349.   DATA 160,161,162,163,164,165,166,167,168,169,170,171,172,173,174,175
350.   DATA 176,177,178,179,180,181,182,183,184,185,186,187,188,189,190,191
351.   DATA 192,193,194,195,196,197,198,199,200,201,202,203,204,205,206,207
352.   DATA 286,209,210,211,212,213,214,215,216,217,218,219,220,304,350,223
353.   DATA 224,225,226,227,228,229,230,231,232,233,234,235,236,237,238,239
354.   DATA 287,241,242,243,244,245,246,247,248,249,250,251,252,305,351,255
355.  
356.   Microsoft_windows_cp1255:
357.   DATA 8364,0,8218,402,8222,8230,8224,8225,710,8240,0,8249,0,0,0,0
358.   DATA 0,8216,8217,8220,8221,8226,8211,8212,732,8482,0,8250,0,0,0,0
359.   DATA 160,161,162,163,8362,165,166,167,168,169,215,171,172,173,174,175
360.   DATA 176,177,178,179,180,181,182,183,184,185,247,187,188,189,190,191
361.   DATA 1456,1457,1458,1459,1460,1461,1462,1463,1464,1465,0,1467,1468,1469,1470,1471
362.   DATA 1472,1473,1474,1475,1520,1521,1522,1523,1524,0,0,0,0,0,0,0
363.   DATA 1488,1489,1490,1491,1492,1493,1494,1495,1496,1497,1498,1499,1500,1501,1502,1503
364.   DATA 1504,1505,1506,1507,1508,1509,1510,1511,1512,1513,1514,0,0,8206,8207,0
365.  
366.   Microsoft_windows_cp1256:
367.   DATA 8364,1662,8218,402,8222,8230,8224,8225,710,8240,1657,8249,338,1670,1688,1672
368.   DATA 1711,8216,8217,8220,8221,8226,8211,8212,1705,8482,1681,8250,339,8204,8205,1722
369.   DATA 160,1548,162,163,164,165,166,167,168,169,1726,171,172,173,174,175
370.   DATA 176,177,178,179,180,181,182,183,184,185,1563,187,188,189,190,1567
371.   DATA 1729,1569,1570,1571,1572,1573,1574,1575,1576,1577,1578,1579,1580,1581,1582,1583
372.   DATA 1584,1585,1586,1587,1588,1589,1590,215,1591,1592,1593,1594,1600,1601,1602,1603
373.   DATA 224,1604,226,1605,1606,1607,1608,231,232,233,234,235,1609,1610,238,239
374.   DATA 1611,1612,1613,1614,244,1615,1616,247,1617,249,1618,251,252,8206,8207,1746
375.  
376.   Microsoft_windows_cp1257:
377.   DATA 8364,0,8218,0,8222,8230,8224,8225,0,8240,0,8249,0,168,711,184
378.   DATA 0,8216,8217,8220,8221,8226,8211,8212,0,8482,0,8250,0,175,731,0
379.   DATA 160,0,162,163,164,0,166,167,216,169,342,171,172,173,174,198
380.   DATA 176,177,178,179,180,181,182,183,248,185,343,187,188,189,190,230
381.   DATA 260,302,256,262,196,197,280,274,268,201,377,278,290,310,298,315
382.   DATA 352,323,325,211,332,213,214,215,370,321,346,362,220,379,381,223
383.   DATA 261,303,257,263,228,229,281,275,269,233,378,279,291,311,299,316
384.   DATA 353,324,326,243,333,245,246,247,371,322,347,363,252,380,382,729
385.  
386.   Microsoft_windows_cp1258:
387.   DATA 8364,0,8218,402,8222,8230,8224,8225,710,8240,0,8249,338,0,0,0
388.   DATA 0,8216,8217,8220,8221,8226,8211,8212,732,8482,0,8250,339,0,0,376
389.   DATA 160,161,162,163,164,165,166,167,168,169,170,171,172,173,174,175
390.   DATA 176,177,178,179,180,181,182,183,184,185,186,187,188,189,190,191
391.   DATA 192,193,194,258,196,197,198,199,200,201,202,203,768,205,206,207
392.   DATA 272,209,777,211,212,416,214,215,216,217,218,219,220,431,771,223
393.   DATA 224,225,226,259,228,229,230,231,232,233,234,235,769,237,238,239
394.   DATA 273,241,803,243,244,417,246,247,248,249,250,251,252,432,8363,255
395. END SUB
396.  
397.  

[RhoSigma]

Try this one, i made this for use in Germany, maybe its working for other countries too:

EDIT: post & codebox deleted (turned out to buggy either)

[moises1953]

This in my definitive version of Inkeyhit$ function, including accented vowels.
No need font's, nor mapings, but can not represent all chars, but only the standard 437 code page.

Code: QB64: [Select]

1. FUNCTION Inkeyhit$ STATIC 'Author: Moises1953
2.   DIM car AS _UNSIGNED _BYTE, doblecar AS STRING * 2
3.   car = 0
4.   i& = _KEYHIT
5.   keyalt = _KEYDOWN(100307) OR _KEYDOWN(100308)
6.   keyctrl = _KEYDOWN(100305) OR _KEYDOWN(100306)
7.   keyshift = _KEYDOWN(100303) OR _KEYDOWN(100304)
8.  
9.   SELECT CASE i&
10.     CASE 0 'do nothing
11.     CASE 48 TO 57 'numeric heys 0-9, not numeric keyboard
12.       IF keyalt THEN
13.         buf$ = buf$ + CHR$(i&)
14.         IF LEN(buf$) > 3 THEN buf$ = RIGHT$(buf$, 3)
15.         car = 0
16.       ELSE
17.         car = i&
18.       END IF
19.     CASE 97 TO 122 'CTRL a-z: 1-26
20.       car = i&
21.       IF keyctrl THEN
22.         car = car - 96
23.       ELSEIF iaccent THEN '...accented vowels
24.         SELECT CASE iaccent
25.           CASE 1
26.             SELECT CASE i&
27.               CASE 97: car = 160 '
28.               CASE 101: car = 130 '‚
29.               CASE 105: car = 161 '¡
30.               CASE 111: car = 162 '¢
31.               CASE 117: car = 163 '£
32.             END SELECT
33.           CASE 2
34.             SELECT CASE i&
35.               CASE 97: car = 133 '…
36.               CASE 101: car = 138 'Š
37.               CASE 105: car = 141 '
38.               CASE 111: car = 149 '•
39.               CASE 117: car = 151 '—
40.             END SELECT
41.           CASE 3
42.             SELECT CASE i&
43.               CASE 97: car = 132 '„
44.               CASE 101: car = 137 '‰
45.               CASE 105: car = 139 '‹
46.               CASE 111: car = 148 '”
47.               CASE 117: car = 129 '
48.             END SELECT
49.           CASE 4
50.             SELECT CASE i&
51.               CASE 97: car = 131 'ƒ
52.               CASE 101: car = 136 'ˆ
53.               CASE 105: car = 140 'Œ
54.               CASE 111: car = 147 '“
55.               CASE 117: car = 150 '–
56.             END SELECT
57.         END SELECT
58.         iaccent = 0
59.       END IF
60.     CASE 128: car = 238 '€î   'spanish keyboard keys maping
61.     CASE 161: car = 173 '¡­
62.     CASE 170: car = 166 'ª¦
63.     CASE 183: car = 249 '·ù
64.     CASE 186: car = 167 'º§
65.     CASE 191: car = 168 '¿¨
66.     CASE 199: car = 128 'ç€
67.     CASE 209: car = 165 'Ñ¥
68.     CASE 231: car = 135 'ç‡
69.     CASE 241: car = 164 'ñ¤
70.     CASE 1 TO 255
71.       car = i&
72.     CASE 256 TO 65535 'double byte chr$(0)+
73.       doblecar = MKI$(i&)
74.       car = ASC(doblecar, 2)
75.       IF keyalt THEN
76.         SELECT CASE car
77.           CASE 59 TO 68 'F1-F10: ;-D
78.             MID$(doblecar, 2) = CHR$(car + 45)
79.           CASE 133, 134 'F11,F12; …,†
80.             MID$(doblecar, 2) = CHR$(car + 6)
81.           CASE ELSE
82.             MID$(doblecar, 2) = CHR$(0)
83.         END SELECT
84.       ELSEIF keyctrl THEN
85.         SELECT CASE car
86.           CASE 59 TO 68 'F1-F10: ^-g
87.             MID$(doblecar, 2) = CHR$(car + 35)
88.           CASE 71 'Home
89.             MID$(doblecar, 2) = CHR$(119)
90.           CASE 73 'RePag
91.             MID$(doblecar, 2) = CHR$(132)
92.           CASE 75 'Left
93.             MID$(doblecar, 2) = CHR$(115)
94.           CASE 77 'Right
95.             MID$(doblecar, 2) = CHR$(116)
96.           CASE 79 'End
97.             MID$(doblecar, 2) = CHR$(117)
98.           CASE 81 'AvPag
99.             MID$(doblecar, 2) = CHR$(118)
100.           CASE 133, 134 'F11,F12
101.             MID$(doblecar, 2) = CHR$(car + 4)
102.           CASE ELSE
103.             MID$(doblecar, 2) = CHR$(0)
104.         END SELECT
105.       ELSEIF keyshift THEN
106.         SELECT CASE car
107.           CASE 59 TO 68 'F1-F10
108.             MID$(doblecar, 2) = CHR$(car + 25)
109.           CASE 71 TO 81
110.           CASE 133, 134 'F11,F12
111.             MID$(doblecar, 2) = CHR$(car + 2)
112.           CASE ELSE
113.             MID$(doblecar, 2) = CHR$(0)
114.         END SELECT
115.       END IF
116.       IF CVI(doblecar) THEN Inkeyhit$ = doblecar
117.       car = 0
118.     CASE -100308 'Alt up
119.       IF LEN(buf$) THEN
120.         car = VAL(buf$)
121.         Inkeyhit$ = CHR$(car)
122.         buf$ = ""
123.         car = 0
124.       END IF
125.     CASE -222 'accent and dieresis
126.       IF keyshift THEN
127.         iaccent = 3
128.       ELSE
129.         iaccent = 1
130.       END IF
131.     CASE -186 'backaccent and circumflex
132.       IF keyshift THEN
133.         iaccent = 4
134.       ELSE
135.         iaccent = 2
136.       END IF
137.   END SELECT
138.   IF car THEN Inkeyhit$ = CHR$(car)
139. END FUNCTION

[moises1953]

This version also works with alt <number> if numlock is activated.
Includes the test program with font, no unicode.

Code: QB64: [Select]

1. DEFINT H-P
2. _FULLSCREEN
3. 'fontpath$ = "LessPerfectDOSVGA.ttf" 'http://laemeur.sdf.org/fonts/
4. fontpath$ = "lucon.ttf" 'lucida console
5. fontsize% = 16
6. style$ = "MONOSPACE"
7. font& = _LOADFONT(fontpath$, fontsize%, style$)
8. IF font& THEN _FONT font&
9.  
10. LOCATE , , 1 'show cursor
11. PRINT "Inkeyhit & display (128-175): €‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯"
12. PRINT "                   (176-223): °±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞß"
13. PRINT "CP437 extended     (224-254): àáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþ"
14. DO
15.   in$ = Inkeyhit$ 'emulates quickbasic INKEY$
16.   IF LEN(in$) THEN PRINT in$;
17. LOOP UNTIL in$ = CHR$(27)
18. END
19.  
20. FUNCTION Inkeyhit$ STATIC 'Author: Moises1953
21.   DIM car AS _UNSIGNED _BYTE, doblecar AS STRING * 2
22.   i& = _KEYHIT
23.   IF i& THEN
24.     car = 0
25.     keyalt = _KEYDOWN(100307) OR _KEYDOWN(100308)
26.     keyctrl = _KEYDOWN(100305) OR _KEYDOWN(100306)
27.     keyshift = _KEYDOWN(100303) OR _KEYDOWN(100304)
28.  
29.     SELECT CASE i&
30.       CASE 48 TO 57 'numeric heys 0-9
31.         IF keyalt = 0 THEN car = i&
32.       CASE 97 TO 122 'CTRL a-z: 1-26
33.         car = i&
34.         IF keyctrl THEN
35.           car = car - 96
36.         ELSEIF iaccent THEN '...accented vowels
37.           SELECT CASE iaccent
38.             CASE 1
39.               SELECT CASE i&
40.                 CASE 97: car = 160 '
41.                 CASE 101: car = 130 '‚
42.                 CASE 105: car = 161 '¡
43.                 CASE 111: car = 162 '¢
44.                 CASE 117: car = 163 '£
45.               END SELECT
46.             CASE 2
47.               SELECT CASE i&
48.                 CASE 97: car = 133 '…
49.                 CASE 101: car = 138 'Š
50.                 CASE 105: car = 141 '
51.                 CASE 111: car = 149 '•
52.                 CASE 117: car = 151 '—
53.               END SELECT
54.             CASE 3
55.               SELECT CASE i&
56.                 CASE 97: car = 132 '„
57.                 CASE 101: car = 137 '‰
58.                 CASE 105: car = 139 '‹
59.                 CASE 111: car = 148 '”
60.                 CASE 117: car = 129 '
61.               END SELECT
62.             CASE 4
63.               SELECT CASE i&
64.                 CASE 97: car = 131 'ƒ
65.                 CASE 101: car = 136 'ˆ
66.                 CASE 105: car = 140 'Œ
67.                 CASE 111: car = 147 '“
68.                 CASE 117: car = 150 '–
69.               END SELECT
70.           END SELECT
71.         END IF
72.       CASE 128: car = 238 '€î   'spanish keyboard keys maping
73.       CASE 161: car = 173 '¡­
74.       CASE 170: car = 166 'ª¦
75.       CASE 183: car = 249 '·ù
76.       CASE 186: car = 167 'º§
77.       CASE 191: car = 168 '¿¨
78.       CASE 199: car = 128 'ç€
79.       CASE 209: car = 165 'Ñ¥
80.       CASE 231: car = 135 'ç‡
81.       CASE 241: car = 164 'ñ¤
82.       CASE 1 TO 255
83.         car = i&
84.       CASE 256 TO 65535 'double byte chr$(0)+
85.         doblecar = MKI$(i&)
86.         car = ASC(doblecar, 2)
87.         IF keyalt THEN
88.           SELECT CASE car
89.             CASE 59 TO 68 'F1-F10: ;-D
90.               MID$(doblecar, 2) = CHR$(car + 45)
91.             CASE 133, 134 'F11,F12; …,†
92.               MID$(doblecar, 2) = CHR$(car + 6)
93.             CASE ELSE
94.               MID$(doblecar, 2) = CHR$(0)
95.           END SELECT
96.         ELSEIF keyctrl THEN
97.           SELECT CASE car
98.             CASE 59 TO 68 'F1-F10: ^-g
99.               MID$(doblecar, 2) = CHR$(car + 35)
100.             CASE 71 'Home
101.               MID$(doblecar, 2) = CHR$(119)
102.             CASE 73 'RePag
103.               MID$(doblecar, 2) = CHR$(132)
104.             CASE 75 'Left
105.               MID$(doblecar, 2) = CHR$(115)
106.             CASE 77 'Right
107.               MID$(doblecar, 2) = CHR$(116)
108.             CASE 79 'End
109.               MID$(doblecar, 2) = CHR$(117)
110.             CASE 81 'AvPag
111.               MID$(doblecar, 2) = CHR$(118)
112.             CASE 133, 134 'F11,F12
113.               MID$(doblecar, 2) = CHR$(car + 4)
114.             CASE ELSE
115.               MID$(doblecar, 2) = CHR$(0)
116.           END SELECT
117.         ELSEIF keyshift THEN
118.           SELECT CASE car
119.             CASE 59 TO 68 'F1-F10
120.               MID$(doblecar, 2) = CHR$(car + 25)
121.             CASE 71 TO 81
122.             CASE 133, 134 'F11,F12
123.               MID$(doblecar, 2) = CHR$(car + 2)
124.             CASE ELSE
125.               MID$(doblecar, 2) = CHR$(0)
126.           END SELECT
127.         END IF
128.         IF CVI(doblecar) THEN
129.           Inkeyhit$ = doblecar
130.           iaccent = 0
131.         END IF
132.         car = 0
133.       CASE -100308 'Alt up
134.         IF LEN(buf$) THEN
135.           car = VAL(buf$)
136.           buf$ = ""
137.         END IF
138.       CASE -222 'accent and dieresis
139.         IF keyshift THEN
140.           iaccent = 3
141.         ELSE
142.           iaccent = 1
143.         END IF
144.       CASE -186 'backaccent and circumflex
145.         IF keyshift THEN
146.           iaccent = 4
147.         ELSE
148.           iaccent = 2
149.         END IF
150.       CASE -57 TO -48 'numeric keys, also numeric keypad with numlock
151.         IF keyalt THEN
152.           IF LEN(buf$) > 2 THEN buf$ = RIGHT$(buf$, 2)
153.           buf$ = buf$ + CHR$(ABS(i&))
154.         END IF
155.     END SELECT
156.     IF car THEN
157.       Inkeyhit$ = CHR$(car)
158.       iaccent = 0
159.     END IF
160.   END IF
161. END FUNCTION
162.