problem read file

[AndroPete]

Hello everybody. I'm new in this forum...

I've got a problem to read a simple file .txt
It's probably because of langage, unicode or something like that, I have tried a lot of that but I didn't found anything...

I've got a file named "ess.txt" with only one line (it's for explaination...). The line it's just :
é

When I read the file, QB64 changes it in another character. In fact, it changes chr$(130) to chr$(233).
Then datas are unusable, of course.

For resolving that, I have changed "Dysplay", "Langage" in Options menu but nothing works...

If someone can help me... Thanks

[Petr]

Hi AndroPete, welcome to the forum,

this can be solved with _MAPUNICODE. Try this source save as "nation.bi", goto row 393, set your font for your language and then add to your source code to LAST row before SUBs and FUNCTIONs  this  '$include:'nation.bi' and try read text file again.

Code: QB64: [Select]

1. 'nation.bm   my FIRST attempt for INTERNATIONAL QB64 language support.
2. 'function find code page need for correct text show on screen and set (if is right font used) unicode characters.
3.  
4.  
5.  
6.  
7. IF win THEN
8.     SHELL _HIDE "powershell get-culture > nation.txt"
9.     IF _FILEEXISTS("nation.txt") THEN
10.         c = FREEFILE
11.         OPEN "nation.txt" FOR BINARY AS #c
12.         LINE$ = SPACE$(LOF(c))
13.         GET #c, , LINE$
14.         REM            IF lin = 4 THEN LCID_DECIMAL = VAL(LEFT$(LINE$, 4)): EXIT DO
15.         CLOSE c
16.  
17.        
18.         FOR numbers = 1 TO LEN(LINE$)
19.             char = ASC(LINE$, numbers)
20.             IF char >= 47 AND char <= 58 THEN nr$ = nr$ + CHR$(char)
21.         NEXT
22.  
23.         LCID_DECIMAL = VAL(nr$)
24.     ELSE LCID_DECIMAL = 0 'english
25.     END IF
26. ELSE 'LINUX
27.     SHELL _HIDE ("echo $LANG |cut -c1,2,4,5 > nation.txt")
28.     ch = FREEFILE
29.     OPEN "nation.txt" FOR INPUT AS ch
30.     LINE INPUT #ch, nation$
31.     CLOSE ch
32. END IF
33.  
34. IF win THEN
35.     SELECT CASE LCID_DECIMAL
36.         '        language               code page
37.         REM        CASE 0: lang$ = "English"
38.         CASE 1078: lang$ = "Afrikaans": CP = 1252
39.         CASE 1052: lang$ = "Albanian": CP = 1250
40.         CASE 1118: lang$ = "Amharic": 'CP unknown
41.         CASE 5121: lang$ = "Arabic - Algeria": CP = 1401: CPW = 1256
42.         CASE 15361: lang$ = "Arabic - Bahrain": CP = 1256
43.         CASE 3073: lang$ = "Arabic - Egypt": CP = 1256
44.         CASE 2049: lang$ = "Arabic - Iraq": CP = 801: CPW = 1256
45.         CASE 11265: lang$ = "Arabic - Jordan": CP = 1256
46.         CASE 13313: lang$ = "Arabic - Kuwait": CP = 3401: CPW = 1256
47.         CASE 12289: lang$ = "Arabic - Lebanon": CP = 3001: CPW = 1256
48.         CASE 4097: lang$ = "Arabic - Libya": CP = 1001: CPW = 1256
49.         CASE 6145: lang$ = "Arabic - Morocco": CP = 1801: CPW = 1256
50.         CASE 8193: lang$ = "Arabic - Oman": CP = 2001: CP2 = 1256
51.         CASE 16385: lang$ = "Arabic - Qatar": CP = 4001: CP2 = 1256
52.         CASE 1025: lang$ = "Arabic - Saudi Arabia": CP = 401: CP2 = 1256
53.         CASE 10241: lang$ = "Arabic - Syria": CP = 2801: CP2 = 1256
54.         CASE 7169: lang$ = "Arabic - Tunisia": CP = 1256
55.         CASE 14337: lang$ = "Arabic - United Arab Emirates": CP = 3801: CP2 = 1256
56.         CASE 9217: lang$ = "Arabic - Yemen": CP = 2401: CP2 = 1256
57.         CASE 1067: lang$ = "Armenian" 'CP unknown
58.         CASE 1101: lang$ = "Assamese" 'CP uunknown
59.         CASE 2092: lang$ = "Azeri - Cyrillic": CP = 1251
60.         CASE 1068: lang$ = "Azeri - Latin": CP = 1254
61.         CASE 1069: lang$ = "Basque": CP = 1252
62.         CASE 1059: lang$ = "Belarusian": CP = 423: CP2 = 1251
63.         CASE 2117: lang$ = "Bengali - Bangladesh": CP = 2117: CP2 = 845
64.         CASE 1093: lang$ = "Bengali - India": CP = 445
65.         CASE 5146: lang$ = "Bosnian" 'CP unknown
66.         CASE 1026: lang$ = "Bulgarian": CP = 402: CP2 = 1251
67.         CASE 1109: lang$ = "Burmese": CP = 455
68.         CASE 1027: lang$ = "Catalan": CP = 403: CP2 = 1252
69.         CASE 2052: lang$ = "Chinese - China": CP = 804
70.         CASE 3076: lang$ = "Chinese - Hong Kong": 'CP unknown
71.         CASE 5124: lang$ = "Chinese - Macau": CP = 1404
72.         CASE 4100: lang$ = "Chinese - Singapore": CP = 1004
73.         CASE 1028: lang$ = "Chinese - Taiwan": CP = 404
74.         CASE 1050: lang$ = "Croatian": CP = 1250
75.         CASE 1029: lang$ = "Czech": CP = 405: CP2 = 1250
76.         CASE 1030: lang$ = "Danish": CP = 406: CP2 = 1252
77.             'Divehi  Dhivehi Maldivian   dv  dv unknown code and CP
78.         CASE 2067: lang$ = "Dutch - Belgium": CP = 813: CP2 = 1252
79.         CASE 1043: lang$ = "Dutch - Netherlands": CP = 413: CP2 = 1252
80.         CASE 1126: lang$ = "Edo": CP = 466
81.         CASE 3081: lang$ = "English - Australia": CP = 1252
82.         CASE 10249: lang$ = "English - Belize": CP = 2809: CP2 = 1252
83.         CASE 4105: lang$ = "English - Canada": CP = 1009: CP2 = 1252
84.         CASE 9225: lang$ = "English - Caribbean": CP = 2409: CP2 = 1252
85.         CASE 2057: lang$ = "English - Great Britain": CP = 809: CP2 = 1252
86.         CASE 16393: lang$ = "English - India": CP = 4009
87.         CASE 6153: lang$ = "English - Ireland": CP = 1809: CP2 = 1252
88.         CASE 8201: lang$ = "English - Jamaica": CP = 2009: CP2 = 1252
89.         CASE 5129: lang$ = "English - New Zealand": CP = 1409: CP2 = 1252
90.         CASE 13321: lang$ = "English - Phillippines": CP = 3409: CP2 = 1252
91.         CASE 7177: lang$ = "English - Southern Africa": CP = 1252
92.         CASE 11273: lang$ = "English - Trinidad": CP = 1252
93.         CASE 1033: lang$ = "English - United States": CP = 409: CP2 = 1252
94.         CASE 12297: lang$ = "English - Zimbabwe": CP = 3009: CP2 = 1252
95.         CASE 1061: lang$ = "Estonian": CP = 425: CP2 = 1257
96.         CASE 1071: lang$ = "FYRO Macedonia": CP = 1251
97.         CASE 1080: lang$ = "Faroese": CP = 438: CP2 = 1252
98.         CASE 1065: lang$ = "Farsi - Persian": CP = 429: CP2 = 1256
99.         CASE 1124: lang$ = "Filipino": CP = 464
100.         CASE 1035: lang$ = "Finnish": CP = 1252
101.         CASE 2060: lang$ = "French - Belgium": CP = 1252
102.         CASE 11276: lang$ = "French - Cameron": 'unknown CP
103.         CASE 3084: lang$ = "French - Canada": CP = 1252
104.         CASE 9228: lang$ = "French - Congo": 'unknown CP
105.         CASE 12300: lang$ = "French - Cote d'Ivoire" 'unknown CP
106.         CASE 1036: lang$ = "French - France": CP = 1252
107.         CASE 5132: lang$ = "French - Luxembourg": CP = 1252
108.         CASE 13324: lang$ = "French - Mali" 'unknown CP
109.         CASE 6156: lang$ = "French - Monaco": CP = 1252
110.         CASE 14348: lang$ = "French - Morocco" 'cp unknown
111.         CASE 10252: lang$ = "French - Senegal" 'cp unknown
112.         CASE 4108: lang$ = "French - Switzerland": CP = 1252
113.         CASE 7180: lang$ = "French - West Indies" 'CP unknown
114.         CASE 1122: lang$ = "Frisian - Netherlands": CP = 462
115.         CASE 2108: lang$ = "Gaelic - Ireland" 'CP unknown
116.         CASE 1084: lang$ = "Gaelic - Scotland" 'CP unknown
117.         CASE 1110: lang$ = "Galician": CP = 456: CP2 = 1252
118.         CASE 1079: lang$ = "Georgian": CP = 437
119.         CASE 3079: lang$ = "German - Austria": CP = 1252
120.         CASE 1031: lang$ = "German - Germany": CP = 407: CP2 = 1252
121.         CASE 5127: lang$ = "German - Liechtenstein": CP = 1407: CP2 = 1252
122.         CASE 4103: lang$ = "German - Luxembourg": CP = 1007: CP2 = 1252
123.         CASE 2055: lang$ = "German - Switzerland": CP = 807: CP2 = 1252
124.         CASE 1032: lang$ = "Greek": CP = 408: CP2 = 1253
125.         CASE 1140: lang$ = "Guarani - Paraguay": CP = 474
126.         CASE 1095: lang$ = "Gujarati": CP = 447
127.         CASE 1279: lang$ = "HID (Human Interface Device)": CP = -1
128.         CASE 1037: lang$ = "Hebrew": CP = 1255
129.         CASE 1081: lang$ = "Hindi": CP = 439
130.         CASE 1038: lang$ = "Hungarian": CP = 1250
131.         CASE 1039: lang$ = "Icelandic": CP = 1252
132.         CASE 1136: lang$ = "Igbo - Nigeria": CP = 470
133.         CASE 1057: lang$ = "Indonesian": CP = 421: CP2 = 1252
134.         CASE 1040: lang$ = "Italian - Italy": CP = 410: CP2 = 1252
135.         CASE 2064: lang$ = "Italian - Switzerland": CP = 810: CP2 = 1252
136.         CASE 1041: lang$ = "Japanese ": CP = 411
137.         CASE 1099: lang$ = "Kannada" ' CP unknown
138.         CASE 1120: lang$ = "Kashmiri": CP = 460
139.         CASE 1087: lang$ = "Kazakh": CP = 1251
140.         CASE 1107: lang$ = "Khmer": CP = 453
141.         CASE 1111: lang$ = "Konkani": CP = 457
142.         CASE 1042: lang$ = "Korean": CP = 412
143.         CASE 1088: lang$ = "Kyrgyz - Cyrillic": CP = 440: CP2 = 1251
144.         CASE 1108: lang$ = "Lao": CP = 454
145.         CASE 1142: lang$ = "Latin": CP = 476
146.         CASE 1062: lang$ = "Latvian": CP = 426: CP2 = 1257
147.         CASE 1063: lang$ = "Lithuanian": CP = 427: CP2 = 1257
148.         CASE 2110: lang$ = "Malay - Brunei": CP = 1252
149.         CASE 1086: lang$ = "Malay - Malaysia": CP = 1252
150.         CASE 1100: lang$ = "Malayalam" 'unknown CP
151.         CASE 1082: lang$ = "Maltese" 'unknown CP
152.         CASE 1112: lang$ = "Manipuri": CP = 458
153.         CASE 1153: lang$ = "Maori": CP = 481
154.         CASE 1102: lang$ = "Marathi" 'unknown CP
155.         CASE 2128: lang$ = "Mongolian": CP = 850
156.         CASE 1104: lang$ = "Mongolian": CP = 450: CP2 = 1251
157.         CASE 1121: lang$ = "Nepali": CP = 461
158.         CASE 1044: lang$ = "Norwegian - Bokml": CP = 414: CP2 = 1252
159.         CASE 2068: lang$ = "Norwegian - Nynorsk": CP = 814: CP2 = 1252
160.         CASE 1096: lang$ = "Oriya": CP = 448
161.         CASE 1045: lang$ = "Polish": CP = 415: CP2 = 1250
162.         CASE 1046: lang$ = "Portuguese - Brazil": CP = 416: CP2 = 1252
163.         CASE 2070: lang$ = "Portuguese - Portugal": CP = 816: CP2 = 1252
164.         CASE 1094: lang$ = "Punjabi": CP = 446
165.         CASE 1047: lang$ = "Raeto-Romance": CP = 417
166.         CASE 2072: lang$ = "Romanian - Moldova": CP = 818
167.         CASE 1048: lang$ = "Romanian - Romania": CP = 418: CP2 = 1250
168.         CASE 1049: lang$ = "Russian": CP = 419: CP2 = 1251
169.         CASE 2073: lang$ = "Russian - Moldova": CP = 2073: CP2 = 819
170.         CASE 1083: lang$ = "Sami Lappish" 'CP unknown
171.         CASE 1103: lang$ = "Sanskrit" 'CP unknown
172.         CASE 3098: lang$ = "Serbian - Cyrillic": CP = 1251
173.         CASE 2074: lang$ = "Serbian - Latin": CP = 1250
174.         CASE 1072: lang$ = "Sesotho (Sutu)": CP = 430
175.         CASE 1074: lang$ = "Setsuana": CP = 432
176.         CASE 1113: lang$ = "Sindhi": CP = 459
177.         CASE 1115: lang$ = "Sinhala Sinhalese" ' cp unknown
178.         CASE 1051: lang$ = "Slovak": CP = 1250
179.         CASE 1060: lang$ = "Slovenian": CP = 424: CP2 = 1250
180.         CASE 1143: lang$ = "Somali": CP = 477
181.         CASE 1070: lang$ = "Sorbian" 'unknown CP
182.         CASE 11274: lang$ = "Spanish - Argentina": CP = 1252
183.         CASE 16394: lang$ = "Spanish - Bolivia": CP = 1252
184.         CASE 13322: lang$ = "Spanish - Chile": CP = 1252
185.         CASE 9226: lang$ = "Spanish - Colombia": CP = 1252
186.         CASE 5130: lang$ = "Spanish - Costa Rica": CP = 1252
187.         CASE 7178: lang$ = "Spanish - Dominican Republic": CP = 1252
188.         CASE 12298: lang$ = "Spanish - Ecuador": CP = 1252
189.         CASE 17418: lang$ = "Spanish - El Salvador": CP = 1252
190.         CASE 4106: lang$ = "Spanish - Guatemala": CP = 1252
191.         CASE 18442: lang$ = "Spanish - Honduras": CP = 1252
192.         CASE 2058: lang$ = "Spanish - Mexico": CP = 1252
193.         CASE 19466: lang$ = "Spanish - Nicaragua": CP = 1252
194.         CASE 6154: lang$ = "Spanish - Panama": CP = 1252
195.         CASE 15370: lang$ = "Spanish - Paraguay": CP = 1252
196.         CASE 10250: lang$ = "Spanish - Peru": CP = 1252
197.         CASE 20490: lang$ = "Spanish - Puerto Rico": CP = 1252
198.         CASE 1034: lang$ = "Spanish - Spain (Traditional)": CP = 1252
199.         CASE 14346: lang$ = "Spanish - Uruguay": CP = 1252
200.         CASE 8202: lang$ = "Spanish - Venezuela": CP = 1252
201.         CASE 1089: lang$ = "Swahili": CP = 441: CP2 = 1252
202.         CASE 2077: lang$ = "Swedish - Finland": CP = 1252
203.         CASE 1053: lang$ = "Swedish - Sweden": CP = 1252
204.         CASE 1114: lang$ = "Syriac" 'unknown CP
205.         CASE 1064: lang$ = "Tajik": CP = 428
206.         CASE 1097: lang$ = "Tamil": CP = 449
207.         CASE 1092: lang$ = "Tatar": CP = 444: CP2 = 1251
208.         CASE 1098: lang$ = "Telugu" 'CP unknown
209.         CASE 1054: lang$ = "Thai" 'CP unkown
210.         CASE 1105: lang$ = "Tibetan": CP = 451
211.         CASE 1073: lang$ = "Tsonga": CP = 431
212.         CASE 1055: lang$ = "Turkish": CP = 1254
213.         CASE 1090: lang$ = "Turkmen": CP = 442
214.         CASE 1058: lang$ = "Ukrainian": CP = 422: CP2 = 1251
215.         CASE 8: lang$ = "Unicode": CP = -2 '    UTF-8
216.         CASE 1056: lang$ = "Urdu": CP = 420: CP2 = 1256
217.         CASE 2115: lang$ = "Uzbek - Cyrillic": CP = 843: CP2 = 1251
218.         CASE 1091: lang$ = "Uzbek - Latin": CP = 443: CP2 = 1254
219.         CASE 1075: lang$ = "Venda": CP = 433
220.         CASE 1066: lang$ = "Vietnamese": CP = 1258
221.         CASE 1106: lang$ = "Welsh": CP = 452
222.         CASE 1076: lang$ = "Xhosa": CP = 434
223.         CASE 1085: lang$ = "Yiddish" 'unknown CP
224.         CASE 1077: lang$ = "Zulu": CP = 435
225.     END SELECT
226. ELSE
227.     SELECT CASE LCASE$(nation$) '                     without warranty! Here are NOT all countries!
228.         CASE "af": lang$ = "Afrikaans": CP = 1252
229.         CASE "sq": lang$ = "Albanian": CP = 1250
230.         CASE "am": lang$ = "Amharic": 'CP unknown
231.         CASE "ardz": lang$ = "Arabic - Algeria": CP = 1401: CPW = 1256
232.         CASE "arbh": lang$ = "Arabic - Bahrain": CP = 1256
233.         CASE "areg": lang$ = "Arabic - Egypt": CP = 1256
234.         CASE "ariq": lang$ = "Arabic - Iraq": CP = 801: CPW = 1256
235.         CASE "arjo": lang$ = "Arabic - Jordan": CP = 1256
236.         CASE "arkw": lang$ = "Arabic - Kuwait": CP = 3401: CPW = 1256
237.         CASE "arlb": lang$ = "Arabic - Lebanon": CP = 3001: CPW = 1256
238.         CASE "arly": lang$ = "Arabic - Libya": CP = 1001: CPW = 1256
239.         CASE "arma": lang$ = "Arabic - Morocco": CP = 1801: CPW = 1256
240.         CASE "arom": lang$ = "Arabic - Oman": CP = 2001: CP2 = 1256
241.         CASE "arqa": lang$ = "Arabic - Qatar": CP = 4001: CP2 = 1256
242.         CASE "arsa": lang$ = "Arabic - Saudi Arabia": CP = 401: CP2 = 1256
243.         CASE "arsy": lang$ = "Arabic - Syria": CP = 2801: CP2 = 1256
244.         CASE "artn": lang$ = "Arabic - Tunisia": CP = 1256
245.         CASE "arae": lang$ = "Arabic - United Arab Emirates": CP = 3801: CP2 = 1256
246.         CASE "arye": lang$ = "Arabic - Yemen": CP = 2401: CP2 = 1256
247.         CASE "hy": lang$ = "Armenian" 'CP unknown
248.         CASE "as": lang$ = "Assamese" 'CP uunknown
249.         CASE "asaz": lang$ = "Azeri - Cyrillic": CP = 1251
250.         CASE "asaz": lang$ = "Azeri - Latin": CP = 1254
251.         CASE "eu": lang$ = "Basque": CP = 1252
252.         CASE "be": lang$ = "Belarusian": CP = 423: CP2 = 1251
253.         CASE "bn": lang$ = "Bengali - Bangladesh": CP = 2117: CP2 = 845
254.         CASE "bn": lang$ = "Bengali - India": CP = 445
255.         CASE "bs": lang$ = "Bosnian" 'CP unknown
256.         CASE "bg": lang$ = "Bulgarian": CP = 402: CP2 = 1251
257.         CASE "my": lang$ = "Burmese": CP = 455
258.         CASE "ca": lang$ = "Catalan": CP = 403: CP2 = 1252
259.         CASE "zhcn": lang$ = "Chinese - China": CP = 804
260.         CASE "zhhk": lang$ = "Chinese - Hong Kong": 'CP unknown
261.         CASE "zhmo": lang$ = "Chinese - Macau": CP = 1404
262.         CASE "zhsg": lang$ = "Chinese - Singapore": CP = 1004
263.         CASE "zhtw": lang$ = "Chinese - Taiwan": CP = 404
264.         CASE "hr": lang$ = "Croatian": CP = 1250
265.         CASE "cscz": lang$ = "Czech": CP = 405: CP2 = 1250
266.         CASE "da": lang$ = "Danish": CP = 406: CP2 = 1252
267.             'Divehi  Dhivehi Maldivian   dv  dv unknown code and CP
268.         CASE "nlbe": lang$ = "Dutch - Belgium": CP = 813: CP2 = 1252
269.         CASE "nlnl": lang$ = "Dutch - Netherlands": CP = 413: CP2 = 1252
270.         CASE "": lang$ = "Edo": CP = 466
271.         CASE "enau": lang$ = "English - Australia": CP = 1252
272.         CASE "enbz": lang$ = "English - Belize": CP = 2809: CP2 = 1252
273.         CASE "enca": lang$ = "English - Canada": CP = 1009: CP2 = 1252
274.         CASE "encb": lang$ = "English - Caribbean": CP = 2409: CP2 = 1252
275.         CASE "engb": lang$ = "English - Great Britain": CP = 809: CP2 = 1252
276.         CASE "enin": lang$ = "English - India": CP = 4009
277.         CASE "enie": lang$ = "English - Ireland": CP = 1809: CP2 = 1252
278.         CASE "enjm": lang$ = "English - Jamaica": CP = 2009: CP2 = 1252
279.         CASE "ennz": lang$ = "English - New Zealand": CP = 1409: CP2 = 1252
280.         CASE "enph": lang$ = "English - Phillippines": CP = 3409: CP2 = 1252
281.         CASE "enza": lang$ = "English - Southern Africa": CP = 1252
282.         CASE "entt": lang$ = "English - Trinidad": CP = 1252
283.         CASE "enus": lang$ = "English - United States": CP = 409: CP2 = 1252
284.         CASE "": lang$ = "English - Zimbabwe": CP = 3009: CP2 = 1252
285.         CASE "et": lang$ = "Estonian": CP = 425: CP2 = 1257
286.         CASE "fo": lang$ = "Faroese": CP = 438: CP2 = 1252
287.         CASE "fa": lang$ = "Farsi - Persian": CP = 429: CP2 = 1256
288.         CASE "": lang$ = "Filipino": CP = 464
289.         CASE "fi": lang$ = "Finnish": CP = 1252
290.         CASE "frbe", "frca", "frfr", "frlu", "frch": lang$ = "French": CP = 1252
291.         CASE "mk": lang$ = "FYRO Macedonia": CP = 1251
292.         CASE "gdie": lang$ = "Gaelic - Ireland" 'CP unknown
293.         CASE "gd": lang$ = "Gaelic - Scotland" 'CP unknown
294.         CASE "gl": lang$ = "Galician": CP = 456: CP2 = 1252
295.         CASE "ka": lang$ = "Georgian": CP = 437
296.         CASE "deat", "dede", "deli", "delu", "dech": lang$ = "German": CP = 1252
297.         CASE "el": lang$ = "Greek": CP = 408: CP2 = 1253
298.         CASE "gn": lang$ = "Guarani - Paraguay": CP = 474
299.         CASE "gu": lang$ = "Gujarati": CP = 447
300.         CASE "he": lang$ = "Hebrew": CP = 1255
301.         CASE "hi": lang$ = "Hindi": CP = 439
302.         CASE "hu": lang$ = "Hungarian": CP = 1250
303.         CASE "is": lang$ = "Icelandic": CP = 1252
304.         CASE "id": lang$ = "Indonesian": CP = 421: CP2 = 1252
305.         CASE "itit": lang$ = "Italian - Italy": CP = 410: CP2 = 1252
306.         CASE "itch": lang$ = "Italian - Switzerland": CP = 810: CP2 = 1252
307.         CASE "ja": lang$ = "Japanese ": CP = 411
308.         CASE "kn": lang$ = "Kannada" ' CP unknown
309.         CASE "ks": lang$ = "Kashmiri": CP = 460
310.         CASE "kk": lang$ = "Kazakh": CP = 1251
311.         CASE "km": lang$ = "Khmer": CP = 453
312.         CASE "ko": lang$ = "Korean": CP = 412
313.         CASE "lo": lang$ = "Lao": CP = 454
314.         CASE "la": lang$ = "Latin": CP = 476
315.         CASE "lv": lang$ = "Latvian": CP = 426: CP2 = 1257
316.         CASE "lt": lang$ = "Lithuanian": CP = 427: CP2 = 1257
317.         CASE "msbn": lang$ = "Malay - Brunei": CP = 1252
318.         CASE "msmy": lang$ = "Malay - Malaysia": CP = 1252
319.         CASE "ml": lang$ = "Malayalam" 'unknown CP
320.         CASE "mt": lang$ = "Maltese" 'unknown CP
321.         CASE "mi": lang$ = "Maori": CP = 481
322.         CASE "mr": lang$ = "Marathi" 'unknown CP
323.         CASE "mn": lang$ = "Mongolian": CP = 450: CP2 = 1251
324.         CASE "ne": lang$ = "Nepali": CP = 461
325.         CASE "nono": lang$ = "Norwegian - Bokml": CP = 414: CP2 = 1252
326.         CASE "or": lang$ = "Oriya": CP = 448
327.         CASE "pl": lang$ = "Polish": CP = 415: CP2 = 1250
328.         CASE "ptbr": lang$ = "Portuguese - Brazil": CP = 416: CP2 = 1252
329.         CASE "ptpt": lang$ = "Portuguese - Portugal": CP = 816: CP2 = 1252
330.         CASE "pa": lang$ = "Punjabi": CP = 446
331.         CASE "rm": lang$ = "Raeto-Romance": CP = 417
332.         CASE "romo": lang$ = "Romanian - Moldova": CP = 818
333.         CASE "ro": lang$ = "Romanian - Romania": CP = 418: CP2 = 1250
334.         CASE "ru": lang$ = "Russian": CP = 419: CP2 = 1251
335.         CASE "rumo": lang$ = "Russian - Moldova": CP = 2073: CP2 = 819
336.         CASE "sa": lang$ = "Sanskrit" 'CP unknown
337.         CASE "srsp": lang$ = "Serbian - Cyrillic": CP = 1251
338.         CASE "tn": lang$ = "Setsuana": CP = 432
339.         CASE "sd": lang$ = "Sindhi": CP = 459
340.         CASE "si": lang$ = "Sinhala Sinhalese" ' cp unknown
341.         CASE "sk": lang$ = "Slovak": CP = 1250
342.         CASE "sl": lang$ = "Slovenian": CP = 424: CP2 = 1250
343.         CASE "so": lang$ = "Somali": CP = 477
344.         CASE "sb": lang$ = "Sorbian" 'unknown CP
345.         CASE "esar": lang$ = "Spanish - Argentina": CP = 1252
346.         CASE "esbo": lang$ = "Spanish - Bolivia": CP = 1252
347.         CASE "escl": lang$ = "Spanish - Chile": CP = 1252
348.         CASE "esco": lang$ = "Spanish - Colombia": CP = 1252
349.         CASE "escr": lang$ = "Spanish - Costa Rica": CP = 1252
350.         CASE "esdo": lang$ = "Spanish - Dominican Republic": CP = 1252
351.         CASE "esec": lang$ = "Spanish - Ecuador": CP = 1252
352.         CASE "essv": lang$ = "Spanish - El Salvador": CP = 1252
353.         CASE "esgt": lang$ = "Spanish - Guatemala": CP = 1252
354.         CASE "eshn": lang$ = "Spanish - Honduras": CP = 1252
355.         CASE "esmx": lang$ = "Spanish - Mexico": CP = 1252
356.         CASE "esni": lang$ = "Spanish - Nicaragua": CP = 1252
357.         CASE "espa": lang$ = "Spanish - Panama": CP = 1252
358.         CASE "espy": lang$ = "Spanish - Paraguay": CP = 1252
359.         CASE "espe": lang$ = "Spanish - Peru": CP = 1252
360.         CASE "espr": lang$ = "Spanish - Puerto Rico": CP = 1252
361.         CASE "eses": lang$ = "Spanish - Spain (Traditional)": CP = 1252
362.         CASE "esuy": lang$ = "Spanish - Uruguay": CP = 1252
363.         CASE "esve": lang$ = "Spanish - Venezuela": CP = 1252
364.         CASE "sw": lang$ = "Swahili": CP = 441: CP2 = 1252
365.         CASE "swfi": lang$ = "Swedish - Finland": CP = 1252
366.         CASE "svse": lang$ = "Swedish - Sweden": CP = 1252
367.         CASE "tg": lang$ = "Tajik": CP = 428
368.         CASE "ta": lang$ = "Tamil": CP = 449
369.         CASE "tr": lang$ = "Tatar": CP = 444: CP2 = 1251
370.         CASE "te": lang$ = "Telugu" 'CP unknown
371.         CASE "th": lang$ = "Thai" 'CP unkown
372.         CASE "bo": lang$ = "Tibetan": CP = 451
373.         CASE "ts": lang$ = "Tsonga": CP = 431
374.         CASE "tr": lang$ = "Turkish": CP = 1254
375.         CASE "tk": lang$ = "Turkmen": CP = 442
376.         CASE "uk": lang$ = "Ukrainian": CP = 422: CP2 = 1251
377.         CASE "utf8": lang$ = "Unicode": CP = -2 '    UTF-8
378.         CASE "ur": lang$ = "Urdu": CP = 420: CP2 = 1256
379.         CASE "uzuz": lang$ = "Uzbek - Cyrillic": CP = 843: CP2 = 1251
380.         CASE "vi": lang$ = "Vietnamese": CP = 1258
381.         CASE "cy": lang$ = "Welsh": CP = 452
382.         CASE "xh": lang$ = "Xhosa": CP = 434
383.         CASE "yi": lang$ = "Yiddish" 'unknown CP
384.         CASE "zu": lang$ = "Zulu": CP = 435
385.     END SELECT
386. END IF
387.  
388. IF CPW THEN CP2 = CPW
389. IF CP2 THEN language = CP2 ELSE language = CP
390. IF language = 0 THEN PRINT "Sorry, unknown Code Page for your country.": END
391.  
392.  
393. _FONT _LOADFONT("cyberbit.ttf", 15, "monospace")
394.  
395. SELECT CASE language '                                  set DATA READ to correct position (without it read READ first DATA block and ignore his name)
396.     CASE 437: RESTORE Microsoft_pc_cp437
397.     CASE 737: RESTORE Microsoft_pc_cp737
398.     CASE 775: RESTORE Microsoft_pc_cp775
399.     CASE 850: RESTORE Microsoft_pc_cp850
400.     CASE 852: RESTORE Microsoft_pc_cp852
401.     CASE 855: RESTORE Microsoft_pc_cp855
402.     CASE 857: RESTORE Microsoft_pc_cp857
403.     CASE 860: RESTORE Microsoft_pc_cp860
404.     CASE 861: RESTORE Microsoft_pc_cp861
405.     CASE 862: RESTORE Microsoft_pc_cp862
406.     CASE 863: RESTORE Microsoft_pc_cp863
407.     CASE 864: RESTORE Microsoft_pc_cp864
408.     CASE 865: RESTORE Microsoft_pc_cp865
409.     CASE 866: RESTORE Microsoft_pc_cp866
410.     CASE 869: RESTORE Microsoft_pc_cp869
411.     CASE 874: RESTORE Microsoft_pc_cp874
412.     CASE 1250: RESTORE Microsoft_windows_cp1250
413.     CASE 1251: RESTORE Microsoft_windows_cp1251
414.     CASE 1252: RESTORE Microsoft_windows_cp1252
415.     CASE 1253: RESTORE Microsoft_windows_cp1253
416.     CASE 1254: RESTORE Microsoft_windows_cp1254
417.     CASE 1255: RESTORE Microsoft_windows_cp1255
418.     CASE 1256: RESTORE Microsoft_windows_cp1256
419.     CASE 1257: RESTORE Microsoft_windows_cp1257
420.     CASE 1258: RESTORE Microsoft_windows_cp1258
421. END SELECT
422.  
423.  
424.  
425.  
426. FOR ASCIIcode = 128 TO 255
427.     SELECT CASE language
428.         CASE 437: READ Microsoft_pc_cp437: _MAPUNICODE Microsoft_pc_cp437 TO ASCIIcode
429.         CASE 737: READ Microsoft_pc_cp737: _MAPUNICODE Microsoft_pc_cp737 TO ASCIIcode
430.         CASE 775: READ Microsoft_pc_cp775: _MAPUNICODE Microsoft_pc_cp775 TO ASCIIcode
431.         CASE 850: READ Microsoft_pc_cp850: _MAPUNICODE Microsoft_pc_cp850 TO ASCIIcode
432.         CASE 852: READ Microsoft_pc_cp852: _MAPUNICODE Microsoft_pc_cp852 TO ASCIIcode
433.         CASE 855: READ Microsoft_pc_cp855: _MAPUNICODE Microsoft_pc_cp855 TO ASCIIcode
434.         CASE 857: READ Microsoft_pc_cp857: _MAPUNICODE Microsoft_pc_cp857 TO ASCIIcode
435.         CASE 860: READ Microsoft_pc_cp860: _MAPUNICODE Microsoft_pc_cp860 TO ASCIIcode
436.         CASE 861: READ Microsoft_pc_cp861: _MAPUNICODE Microsoft_pc_cp861 TO ASCIIcode
437.         CASE 862: READ Microsoft_pc_cp862: _MAPUNICODE Microsoft_pc_cp862 TO ASCIIcode
438.         CASE 863: READ Microsoft_pc_cp863: _MAPUNICODE Microsoft_pc_cp863 TO ASCIIcode
439.         CASE 864: READ Microsoft_pc_cp864: _MAPUNICODE Microsoft_pc_cp864 TO ASCIIcode
440.         CASE 865: READ Microsoft_pc_cp865: _MAPUNICODE Microsoft_pc_cp865 TO ASCIIcode
441.         CASE 866: READ Microsoft_pc_cp866: _MAPUNICODE Microsoft_pc_cp866 TO ASCIIcode
442.         CASE 869: READ Microsoft_pc_cp869: _MAPUNICODE Microsoft_pc_cp869 TO ASCIIcode
443.         CASE 874: READ Microsoft_pc_cp874: _MAPUNICODE Microsoft_pc_cp874 TO ASCIIcode
444.         CASE 1250: READ Microsoft_windows_cp1250: _MAPUNICODE Microsoft_windows_cp1250 TO ASCIIcode
445.         CASE 1251: READ Microsoft_windows_cp1251: _MAPUNICODE Microsoft_windows_cp1251 TO ASCIIcode
446.         CASE 1252: READ Microsoft_windows_cp1252: _MAPUNICODE Microsoft_windows_cp1252 TO ASCIIcode
447.         CASE 1253: READ Microsoft_windows_cp1253: _MAPUNICODE Microsoft_windows_cp1253 TO ASCIIcode
448.         CASE 1254: READ Microsoft_windows_cp1254: _MAPUNICODE Microsoft_windows_cp1254 TO ASCIIcode
449.         CASE 1255: READ Microsoft_windows_cp1255: _MAPUNICODE Microsoft_windows_cp1255 TO ASCIIcode
450.         CASE 1256: READ Microsoft_windows_cp1256: _MAPUNICODE Microsoft_windows_cp1256 TO ASCIIcode
451.         CASE 1257: READ Microsoft_windows_cp1257: _MAPUNICODE Microsoft_windows_cp1257 TO ASCIIcode
452.         CASE 1258: READ Microsoft_windows_cp1258: _MAPUNICODE Microsoft_windows_cp1258 TO ASCIIcode
453.     END SELECT
454. NEXT
455. KILL "nation.txt"
456.  
457. PRINT "Detected nation:"; lang$; ", code pages: "; CP; ", "; CP2
458. INPUT "input text with your national characters, if is displayed wrong, try other font (set it in line 392):"; text$
459.  
460. Microsoft_pc_cp437:
461. DATA 199,252,233,226,228,224,229,231,234,235,232,239,238,236,196,197
462. DATA 201,230,198,244,246,242,251,249,255,214,220,162,163,165,8359,402
463. DATA 225,237,243,250,241,209,170,186,191,8976,172,189,188,161,171,187
464. DATA 9617,9618,9619,9474,9508,9569,9570,9558,9557,9571,9553,9559,9565,9564,9563,9488
465. DATA 9492,9524,9516,9500,9472,9532,9566,9567,9562,9556,9577,9574,9568,9552,9580,9575
466. DATA 9576,9572,9573,9561,9560,9554,9555,9579,9578,9496,9484,9608,9604,9612,9616,9600
467. DATA 945,223,915,960,931,963,181,964,934,920,937,948,8734,966,949,8745
468. DATA 8801,177,8805,8804,8992,8993,247,8776,176,8729,183,8730,8319,178,9632,160
469.  
470. Microsoft_pc_cp737:
471. DATA 913,914,915,916,917,918,919,920,921,922,923,924,925,926,927,928
472. DATA 929,931,932,933,934,935,936,937,945,946,947,948,949,950,951,952
473. DATA 953,954,955,956,957,958,959,960,961,963,962,964,965,966,967,968
474. DATA 9617,9618,9619,9474,9508,9569,9570,9558,9557,9571,9553,9559,9565,9564,9563,9488
475. DATA 9492,9524,9516,9500,9472,9532,9566,9567,9562,9556,9577,9574,9568,9552,9580,9575
476. DATA 9576,9572,9573,9561,9560,9554,9555,9579,9578,9496,9484,9608,9604,9612,9616,9600
477. DATA 969,940,941,942,970,943,972,973,971,974,902,904,905,906,908,910
478. DATA 911,177,8805,8804,938,939,247,8776,176,8729,183,8730,8319,178,9632,160
479.  
480. Microsoft_pc_cp775:
481. DATA 262,252,233,257,228,291,229,263,322,275,342,343,299,377,196,197
482. DATA 201,230,198,333,246,290,162,346,347,214,220,248,163,216,215,164
483. DATA 256,298,243,379,380,378,8221,166,169,174,172,189,188,321,171,187
484. DATA 9617,9618,9619,9474,9508,260,268,280,278,9571,9553,9559,9565,302,352,9488
485. DATA 9492,9524,9516,9500,9472,9532,370,362,9562,9556,9577,9574,9568,9552,9580,381
486. DATA 261,269,281,279,303,353,371,363,382,9496,9484,9608,9604,9612,9616,9600
487. DATA 211,223,332,323,245,213,181,324,310,311,315,316,326,274,325,8217
488. DATA 173,177,8220,190,182,167,247,8222,176,8729,183,185,179,178,9632,160
489.  
490. Microsoft_pc_cp850:
491. DATA 199,252,233,226,228,224,229,231,234,235,232,239,238,236,196,197
492. DATA 201,230,198,244,246,242,251,249,255,214,220,248,163,216,215,402
493. DATA 225,237,243,250,241,209,170,186,191,174,172,189,188,161,171,187
494. DATA 9617,9618,9619,9474,9508,193,194,192,169,9571,9553,9559,9565,162,165,9488
495. DATA 9492,9524,9516,9500,9472,9532,227,195,9562,9556,9577,9574,9568,9552,9580,164
496. DATA 240,208,202,203,200,305,205,206,207,9496,9484,9608,9604,166,204,9600
497. DATA 211,223,212,210,245,213,181,254,222,218,219,217,253,221,175,180
498. DATA 173,177,8215,190,182,167,247,184,176,168,183,185,179,178,9632,160
499.  
500. Microsoft_pc_cp852:
501. DATA 199,252,233,226,228,367,263,231,322,235,336,337,238,377,196,262
502. DATA 201,313,314,244,246,317,318,346,347,214,220,356,357,321,215,269
503. DATA 225,237,243,250,260,261,381,382,280,281,172,378,268,351,171,187
504. DATA 9617,9618,9619,9474,9508,193,194,282,350,9571,9553,9559,9565,379,380,9488
505. DATA 9492,9524,9516,9500,9472,9532,258,259,9562,9556,9577,9574,9568,9552,9580,164
506. DATA 273,272,270,203,271,327,205,206,283,9496,9484,9608,9604,354,366,9600
507. DATA 211,223,212,323,324,328,352,353,340,218,341,368,253,221,355,180
508. DATA 173,733,731,711,728,167,247,184,176,168,729,369,344,345,9632,160
509.  
510. Microsoft_pc_cp855:
511. DATA 1106,1026,1107,1027,1105,1025,1108,1028,1109,1029,1110,1030,1111,1031,1112,1032
512. DATA 1113,1033,1114,1034,1115,1035,1116,1036,1118,1038,1119,1039,1102,1070,1098,1066
513. DATA 1072,1040,1073,1041,1094,1062,1076,1044,1077,1045,1092,1060,1075,1043,171,187
514. DATA 9617,9618,9619,9474,9508,1093,1061,1080,1048,9571,9553,9559,9565,1081,1049,9488
515. DATA 9492,9524,9516,9500,9472,9532,1082,1050,9562,9556,9577,9574,9568,9552,9580,164
516. DATA 1083,1051,1084,1052,1085,1053,1086,1054,1087,9496,9484,9608,9604,1055,1103,9600
517. DATA 1071,1088,1056,1089,1057,1090,1058,1091,1059,1078,1046,1074,1042,1100,1068,8470
518. DATA 173,1099,1067,1079,1047,1096,1064,1101,1069,1097,1065,1095,1063,167,9632,160
519.  
520. Microsoft_pc_cp857:
521. DATA 199,252,233,226,228,224,229,231,234,235,232,239,238,305,196,197
522. DATA 201,230,198,244,246,242,251,249,304,214,220,248,163,216,350,351
523. DATA 225,237,243,250,241,209,286,287,191,174,172,189,188,161,171,187
524. DATA 9617,9618,9619,9474,9508,193,194,192,169,9571,9553,9559,9565,162,165,9488
525. DATA 9492,9524,9516,9500,9472,9532,227,195,9562,9556,9577,9574,9568,9552,9580,164
526. DATA 186,170,202,203,200,0,205,206,207,9496,9484,9608,9604,166,204,9600
527. DATA 211,223,212,210,245,213,181,0,215,218,219,217,236,255,175,180
528. DATA 173,177,0,190,182,167,247,184,176,168,183,185,179,178,9632,160
529.  
530. Microsoft_pc_cp860:
531. DATA 199,252,233,226,227,224,193,231,234,202,232,205,212,236,195,194
532. DATA 201,192,200,244,245,242,218,249,204,213,220,162,163,217,8359,211
533. DATA 225,237,243,250,241,209,170,186,191,210,172,189,188,161,171,187
534. DATA 9617,9618,9619,9474,9508,9569,9570,9558,9557,9571,9553,9559,9565,9564,9563,9488
535. DATA 9492,9524,9516,9500,9472,9532,9566,9567,9562,9556,9577,9574,9568,9552,9580,9575
536. DATA 9576,9572,9573,9561,9560,9554,9555,9579,9578,9496,9484,9608,9604,9612,9616,9600
537. DATA 945,223,915,960,931,963,181,964,934,920,937,948,8734,966,949,8745
538. DATA 8801,177,8805,8804,8992,8993,247,8776,176,8729,183,8730,8319,178,9632,160
539.  
540. Microsoft_pc_cp861:
541. DATA 199,252,233,226,228,224,229,231,234,235,232,208,240,222,196,197
542. DATA 201,230,198,244,246,254,251,221,253,214,220,248,163,216,8359,402
543. DATA 225,237,243,250,193,205,211,218,191,8976,172,189,188,161,171,187
544. DATA 9617,9618,9619,9474,9508,9569,9570,9558,9557,9571,9553,9559,9565,9564,9563,9488
545. DATA 9492,9524,9516,9500,9472,9532,9566,9567,9562,9556,9577,9574,9568,9552,9580,9575
546. DATA 9576,9572,9573,9561,9560,9554,9555,9579,9578,9496,9484,9608,9604,9612,9616,9600
547. DATA 945,223,915,960,931,963,181,964,934,920,937,948,8734,966,949,8745
548. DATA 8801,177,8805,8804,8992,8993,247,8776,176,8729,183,8730,8319,178,9632,160
549.  
550. Microsoft_pc_cp862:
551. DATA 1488,1489,1490,1491,1492,1493,1494,1495,1496,1497,1498,1499,1500,1501,1502,1503
552. DATA 1504,1505,1506,1507,1508,1509,1510,1511,1512,1513,1514,162,163,165,8359,402
553. DATA 225,237,243,250,241,209,170,186,191,8976,172,189,188,161,171,187
554. DATA 9617,9618,9619,9474,9508,9569,9570,9558,9557,9571,9553,9559,9565,9564,9563,9488
555. DATA 9492,9524,9516,9500,9472,9532,9566,9567,9562,9556,9577,9574,9568,9552,9580,9575
556. DATA 9576,9572,9573,9561,9560,9554,9555,9579,9578,9496,9484,9608,9604,9612,9616,9600
557. DATA 945,223,915,960,931,963,181,964,934,920,937,948,8734,966,949,8745
558. DATA 8801,177,8805,8804,8992,8993,247,8776,176,8729,183,8730,8319,178,9632,160
559.  
560. Microsoft_pc_cp863:
561. DATA 199,252,233,226,194,224,182,231,234,235,232,239,238,8215,192,167
562. DATA 201,200,202,244,203,207,251,249,164,212,220,162,163,217,219,402
563. DATA 166,180,243,250,168,184,179,175,206,8976,172,189,188,190,171,187
564. DATA 9617,9618,9619,9474,9508,9569,9570,9558,9557,9571,9553,9559,9565,9564,9563,9488
565. DATA 9492,9524,9516,9500,9472,9532,9566,9567,9562,9556,9577,9574,9568,9552,9580,9575
566. DATA 9576,9572,9573,9561,9560,9554,9555,9579,9578,9496,9484,9608,9604,9612,9616,9600
567. DATA 4023,945,223,915,960,931,963,181,964,934,920,937,948,8734,966,949,8745
568. DATA 8801,177,8805,8804,8992,8993,247,8776,176,8729,183,8730,8319,178,9632,160
569.  
570. Microsoft_pc_cp864:
571. DATA 176,183,8729,8730,9618,9472,9474,9532,9508,9516,9500,9524,9488,9484,9492,9496
572. DATA 946,8734,966,177,189,188,8776,171,187,65271,65272,0,0,65275,65276,0
573. DATA 160,173,65154,163,164,65156,0,0,65166,65167,65173,65177,1548,65181,65185,65189
574. DATA 1632,1633,1634,1635,1636,1637,1638,1639,1640,1641,65233,1563,65201,65205,65209,1567
575. DATA 162,65152,65153,65155,65157,65226,65163,65165,65169,65171,65175,65179,65183,65187,65191,65193
576. DATA 65195,65197,65199,65203,65207,65211,65215,65217,65221,65227,65231,166,172,247,215,65225
577. DATA 1600,65235,65239,65243,65247,65251,65255,65259,65261,65263,65267,65213,65228,65230,65229,65249
578. DATA 65149,1617,65253,65257,65260,65264,65266,65232,65237,65269,65270,65245,65241,65265,9632,0
579.  
580. Microsoft_pc_cp865:
581. DATA 199,252,233,226,228,224,229,231,234,235,232,239,238,236,196,197
582. DATA 201,230,198,244,246,242,251,249,255,214,220,248,163,216,8359,402
583. DATA 225,237,243,250,241,209,170,186,191,8976,172,189,188,161,171,164
584. DATA 9617,9618,9619,9474,9508,9569,9570,9558,9557,9571,9553,9559,9565,9564,9563,9488
585. DATA 9492,9524,9516,9500,9472,9532,9566,9567,9562,9556,9577,9574,9568,9552,9580,9575
586. DATA 9576,9572,9573,9561,9560,9554,9555,9579,9578,9496,9484,9608,9604,9612,9616,9600
587. DATA 945,223,915,960,931,963,181,964,934,920,937,948,8734,966,949,8745
588. DATA 8801,177,8805,8804,8992,8993,247,8776,176,8729,183,8730,8319,178,9632,160
589.  
590. Microsoft_pc_cp866:
591. DATA 1040,1041,1042,1043,1044,1045,1046,1047,1048,1049,1050,1051,1052,1053,1054,1055
592. DATA 1056,1057,1058,1059,1060,1061,1062,1063,1064,1065,1066,1067,1068,1069,1070,1071
593. DATA 1072,1073,1074,1075,1076,1077,1078,1079,1080,1081,1082,1083,1084,1085,1086,1087
594. DATA 9617,9618,9619,9474,9508,9569,9570,9558,9557,9571,9553,9559,9565,9564,9563,9488
595. DATA 9492,9524,9516,9500,9472,9532,9566,9567,9562,9556,9577,9574,9568,9552,9580,9575
596. DATA 9576,9572,9573,9561,9560,9554,9555,9579,9578,9496,9484,9608,9604,9612,9616,9600
597. DATA 1088,1089,1090,1091,1092,1093,1094,1095,1096,1097,1098,1099,1100,1101,1102,1103
598. DATA 1025,1105,1028,1108,1031,1111,1038,1118,176,8729,183,8730,8470,164,9632,160
599.  
600. Microsoft_pc_cp869:
601. DATA 0,0,0,0,0,0,902,0,183,172,166,8216,8217,904,8213,905
602. DATA 906,938,908,0,0,910,939,169,911,178,179,940,163,941,942,943
603. DATA 970,912,972,973,913,914,915,916,917,918,919,189,920,921,171,187
604. DATA 9617,9618,9619,9474,9508,922,923,924,925,9571,9553,9559,9565,926,927,9488
605. DATA 9492,9524,9516,9500,9472,9532,928,929,9562,9556,9577,9574,9568,9552,9580,931
606. DATA 932,933,934,935,936,937,945,946,947,9496,9484,9608,9604,948,949,9600
607. DATA 950,951,952,953,954,955,956,957,958,959,960,961,963,962,964,900
608. DATA 173,177,965,966,967,167,968,901,176,168,969,971,944,974,9632,160
609.  
610. Microsoft_pc_cp874:
611. DATA 8364,0,0,0,0,8230,0,0,0,0,0,0,0,0,0,0
612. DATA 0,8216,8217,8220,8221,8226,8211,8212,0,0,0,0,0,0,0,0
613. DATA 160,3585,3586,3587,3588,3589,3590,3591,3592,3593,3594,3595,3596,3597,3598,3599
614. DATA 3600,3601,3602,3603,3604,3605,3606,3607,3608,3609,3610,3611,3612,3613,3614,3615
615. DATA 3616,3617,3618,3619,3620,3621,3622,3623,3624,3625,3626,3627,3628,3629,3630,3631
616. DATA 3632,3633,3634,3635,3636,3637,3638,3639,3640,3641,3642,0,0,0,0,3647
617. DATA 3648,3649,3650,3651,3652,3653,3654,3655,3656,3657,3658,3659,3660,3661,3662,3663
618. DATA 3664,3665,3666,3667,3668,3669,3670,3671,3672,3673,3674,3675,0,0,0,0
619.  
620. Microsoft_windows_cp1250:
621. DATA 8364,0,8218,0,8222,8230,8224,8225,0,8240,352,8249,346,356,381,377
622. DATA 0,8216,8217,8220,8221,8226,8211,8212,0,8482,353,8250,347,357,382,378
623. DATA 160,711,728,321,164,260,166,167,168,169,350,171,172,173,174,379
624. DATA 176,177,731,322,180,181,182,183,184,261,351,187,317,733,318,380
625. DATA 340,193,194,258,196,313,262,199,268,201,280,203,282,205,206,270
626. DATA 272,323,327,211,212,336,214,215,344,366,218,368,220,221,354,223
627. DATA 341,225,226,259,228,314,263,231,269,233,281,235,283,237,238,271
628. DATA 273,324,328,243,244,337,246,247,345,367,250,369,252,253,355,729
629.  
630. Microsoft_windows_cp1251:
631. DATA 1026,1027,8218,1107,8222,8230,8224,8225,8364,8240,1033,8249,1034,1036,1035,1039
632. DATA 1106,8216,8217,8220,8221,8226,8211,8212,0,8482,1113,8250,1114,1116,1115,1119
633. DATA 160,1038,1118,1032,164,1168,166,167,1025,169,1028,171,172,173,174,1031
634. DATA 176,177,1030,1110,1169,181,182,183,1105,8470,1108,187,1112,1029,1109,1111
635. DATA 1040,1041,1042,1043,1044,1045,1046,1047,1048,1049,1050,1051,1052,1053,1054,1055
636. DATA 1056,1057,1058,1059,1060,1061,1062,1063,1064,1065,1066,1067,1068,1069,1070,1071
637. DATA 1072,1073,1074,1075,1076,1077,1078,1079,1080,1081,1082,1083,1084,1085,1086,1087
638. DATA 1088,1089,1090,1091,1092,1093,1094,1095,1096,1097,1098,1099,1100,1101,1102,1103
639.  
640. Microsoft_windows_cp1252:
641. DATA 8364,0,8218,402,8222,8230,8224,8225,710,8240,352,8249,338,0,381,0
642. DATA 0,8216,8217,8220,8221,8226,8211,8212,732,8482,353,8250,339,0,382,376
643. DATA 160,161,162,163,164,165,166,167,168,169,170,171,172,173,174,175
644. DATA 176,177,178,179,180,181,182,183,184,185,186,187,188,189,190,191
645. DATA 192,193,194,195,196,197,198,199,200,201,202,203,204,205,206,207
646. DATA 208,209,210,211,212,213,214,215,216,217,218,219,220,221,222,223
647. DATA 224,225,226,227,228,229,230,231,232,233,234,235,236,237,238,239
648. DATA 240,241,242,243,244,245,246,247,248,249,250,251,252,253,254,255
649.  
650. Microsoft_windows_cp1253:
651. DATA 8364,0,8218,402,8222,8230,8224,8225,0,8240,0,8249,0,0,0,0
652. DATA 0,8216,8217,8220,8221,8226,8211,8212,0,8482,0,8250,0,0,0,0
653. DATA 160,901,902,163,164,165,166,167,168,169,0,171,172,173,174,8213
654. DATA 176,177,178,179,900,181,182,183,904,905,906,187,908,189,910,911
655. DATA 912,913,914,915,916,917,918,919,920,921,922,923,924,925,926,927
656. DATA 928,929,0,931,932,933,934,935,936,937,938,939,940,941,942,943
657. DATA 944,945,946,947,948,949,950,951,952,953,954,955,956,957,958,959
658. DATA 960,961,962,963,964,965,966,967,968,969,970,971,972,973,974,0
659.  
660. Microsoft_windows_cp1254:
661. DATA 8364,0,8218,402,8222,8230,8224,8225,710,8240,352,8249,338,0,0,0
662. DATA 0,8216,8217,8220,8221,8226,8211,8212,732,8482,353,8250,339,0,0,376
663. DATA 160,161,162,163,164,165,166,167,168,169,170,171,172,173,174,175
664. DATA 176,177,178,179,180,181,182,183,184,185,186,187,188,189,190,191
665. DATA 192,193,194,195,196,197,198,199,200,201,202,203,204,205,206,207
666. DATA 286,209,210,211,212,213,214,215,216,217,218,219,220,304,350,223
667. DATA 224,225,226,227,228,229,230,231,232,233,234,235,236,237,238,239
668. DATA 287,241,242,243,244,245,246,247,248,249,250,251,252,305,351,255
669.  
670. Microsoft_windows_cp1255:
671. DATA 8364,0,8218,402,8222,8230,8224,8225,710,8240,0,8249,0,0,0,0
672. DATA 0,8216,8217,8220,8221,8226,8211,8212,732,8482,0,8250,0,0,0,0
673. DATA 160,161,162,163,8362,165,166,167,168,169,215,171,172,173,174,175
674. DATA 176,177,178,179,180,181,182,183,184,185,247,187,188,189,190,191
675. DATA 1456,1457,1458,1459,1460,1461,1462,1463,1464,1465,0,1467,1468,1469,1470,1471
676. DATA 1472,1473,1474,1475,1520,1521,1522,1523,1524,0,0,0,0,0,0,0
677. DATA 1488,1489,1490,1491,1492,1493,1494,1495,1496,1497,1498,1499,1500,1501,1502,1503
678. DATA 1504,1505,1506,1507,1508,1509,1510,1511,1512,1513,1514,0,0,8206,8207,0
679.  
680. Microsoft_windows_cp1256:
681. DATA 8364,1662,8218,402,8222,8230,8224,8225,710,8240,1657,8249,338,1670,1688,1672
682. DATA 1711,8216,8217,8220,8221,8226,8211,8212,1705,8482,1681,8250,339,8204,8205,1722
683. DATA 160,1548,162,163,164,165,166,167,168,169,1726,171,172,173,174,175
684. DATA 176,177,178,179,180,181,182,183,184,185,1563,187,188,189,190,1567
685. DATA 1729,1569,1570,1571,1572,1573,1574,1575,1576,1577,1578,1579,1580,1581,1582,1583
686. DATA 1584,1585,1586,1587,1588,1589,1590,215,1591,1592,1593,1594,1600,1601,1602,1603
687. DATA 224,1604,226,1605,1606,1607,1608,231,232,233,234,235,1609,1610,238,239
688. DATA 1611,1612,1613,1614,244,1615,1616,247,1617,249,1618,251,252,8206,8207,1746
689.  
690. Microsoft_windows_cp1257:
691. DATA 8364,0,8218,0,8222,8230,8224,8225,0,8240,0,8249,0,168,711,184
692. DATA 0,8216,8217,8220,8221,8226,8211,8212,0,8482,0,8250,0,175,731,0
693. DATA 160,0,162,163,164,0,166,167,216,169,342,171,172,173,174,198
694. DATA 176,177,178,179,180,181,182,183,248,185,343,187,188,189,190,230
695. DATA 260,302,256,262,196,197,280,274,268,201,377,278,290,310,298,315
696. DATA 352,323,325,211,332,213,214,215,370,321,346,362,220,379,381,223
697. DATA 261,303,257,263,228,229,281,275,269,233,378,279,291,311,299,316
698. DATA 353,324,326,243,333,245,246,247,371,322,347,363,252,380,382,729
699.  
700. Microsoft_windows_cp1258:
701. DATA 8364,0,8218,402,8222,8230,8224,8225,710,8240,0,8249,338,0,0,0
702. DATA 0,8216,8217,8220,8221,8226,8211,8212,732,8482,0,8250,339,0,0,376
703. DATA 160,161,162,163,164,165,166,167,168,169,170,171,172,173,174,175
704. DATA 176,177,178,179,180,181,182,183,184,185,186,187,188,189,190,191
705. DATA 192,193,194,258,196,197,198,199,200,201,202,203,768,205,206,207
706. DATA 272,209,777,211,212,416,214,215,216,217,218,219,220,431,771,223
707. DATA 224,225,226,259,228,229,230,231,232,233,234,235,769,237,238,239
708. DATA 273,241,803,243,244,417,246,247,248,249,250,251,252,432,8363,255
709.  
710.  
711. FUNCTION WIN
712.     IF INSTR(_OS$, "WINDOWS") THEN WIN = 1 ELSE WIN = 0
713. END FUNCTION
714.  

Please reply, if this help you, or not.

oh, i forgot, comment also row 457 and 458 in nation.bi for your use!

[AndroPete]

Thanks a lot for this answer.
I have try something like that but that's not work for me.
I will try precisely this in few hours and I reply again...

[Petr]

OK. I try it with reading text from text file, it works correctly. Program read file test.txt, which contains Czech text.

Code: QB64: [Select]

1. 'nation.bm   my FIRST attempt for INTERNATIONAL QB64 language support.
2. 'function find code page need for correct text show on screen and set (if is right font used) unicode characters.
3.  
4.  
5.  
6.  
7. IF WIN THEN
8.     SHELL _HIDE "powershell get-culture > nation.txt"
9.     IF _FILEEXISTS("nation.txt") THEN
10.         c = FREEFILE
11.         OPEN "nation.txt" FOR BINARY AS #c
12.         LINE$ = SPACE$(LOF(c))
13.         GET #c, , LINE$
14.         REM            IF lin = 4 THEN LCID_DECIMAL = VAL(LEFT$(LINE$, 4)): EXIT DO
15.         CLOSE c
16.  
17.  
18.         FOR numbers = 1 TO LEN(LINE$)
19.             char = ASC(LINE$, numbers)
20.             IF char >= 47 AND char <= 58 THEN nr$ = nr$ + CHR$(char)
21.         NEXT
22.  
23.         LCID_DECIMAL = VAL(nr$)
24.     ELSE LCID_DECIMAL = 0 'english
25.     END IF
26. ELSE 'LINUX
27.     SHELL _HIDE ("echo $LANG |cut -c1,2,4,5 > nation.txt")
28.     ch = FREEFILE
29.     OPEN "nation.txt" FOR INPUT AS ch
30.     LINE INPUT #ch, nation$
31.     CLOSE ch
32. END IF
33.  
34. IF WIN THEN
35.     SELECT CASE LCID_DECIMAL
36.         '        language               code page
37.         REM        CASE 0: lang$ = "English"
38.         CASE 1078: lang$ = "Afrikaans": CP = 1252
39.         CASE 1052: lang$ = "Albanian": CP = 1250
40.         CASE 1118: lang$ = "Amharic": 'CP unknown
41.         CASE 5121: lang$ = "Arabic - Algeria": CP = 1401: CPW = 1256
42.         CASE 15361: lang$ = "Arabic - Bahrain": CP = 1256
43.         CASE 3073: lang$ = "Arabic - Egypt": CP = 1256
44.         CASE 2049: lang$ = "Arabic - Iraq": CP = 801: CPW = 1256
45.         CASE 11265: lang$ = "Arabic - Jordan": CP = 1256
46.         CASE 13313: lang$ = "Arabic - Kuwait": CP = 3401: CPW = 1256
47.         CASE 12289: lang$ = "Arabic - Lebanon": CP = 3001: CPW = 1256
48.         CASE 4097: lang$ = "Arabic - Libya": CP = 1001: CPW = 1256
49.         CASE 6145: lang$ = "Arabic - Morocco": CP = 1801: CPW = 1256
50.         CASE 8193: lang$ = "Arabic - Oman": CP = 2001: CP2 = 1256
51.         CASE 16385: lang$ = "Arabic - Qatar": CP = 4001: CP2 = 1256
52.         CASE 1025: lang$ = "Arabic - Saudi Arabia": CP = 401: CP2 = 1256
53.         CASE 10241: lang$ = "Arabic - Syria": CP = 2801: CP2 = 1256
54.         CASE 7169: lang$ = "Arabic - Tunisia": CP = 1256
55.         CASE 14337: lang$ = "Arabic - United Arab Emirates": CP = 3801: CP2 = 1256
56.         CASE 9217: lang$ = "Arabic - Yemen": CP = 2401: CP2 = 1256
57.         CASE 1067: lang$ = "Armenian" 'CP unknown
58.         CASE 1101: lang$ = "Assamese" 'CP uunknown
59.         CASE 2092: lang$ = "Azeri - Cyrillic": CP = 1251
60.         CASE 1068: lang$ = "Azeri - Latin": CP = 1254
61.         CASE 1069: lang$ = "Basque": CP = 1252
62.         CASE 1059: lang$ = "Belarusian": CP = 423: CP2 = 1251
63.         CASE 2117: lang$ = "Bengali - Bangladesh": CP = 2117: CP2 = 845
64.         CASE 1093: lang$ = "Bengali - India": CP = 445
65.         CASE 5146: lang$ = "Bosnian" 'CP unknown
66.         CASE 1026: lang$ = "Bulgarian": CP = 402: CP2 = 1251
67.         CASE 1109: lang$ = "Burmese": CP = 455
68.         CASE 1027: lang$ = "Catalan": CP = 403: CP2 = 1252
69.         CASE 2052: lang$ = "Chinese - China": CP = 804
70.         CASE 3076: lang$ = "Chinese - Hong Kong": 'CP unknown
71.         CASE 5124: lang$ = "Chinese - Macau": CP = 1404
72.         CASE 4100: lang$ = "Chinese - Singapore": CP = 1004
73.         CASE 1028: lang$ = "Chinese - Taiwan": CP = 404
74.         CASE 1050: lang$ = "Croatian": CP = 1250
75.         CASE 1029: lang$ = "Czech": CP = 405: CP2 = 1250
76.         CASE 1030: lang$ = "Danish": CP = 406: CP2 = 1252
77.             'Divehi  Dhivehi Maldivian   dv  dv unknown code and CP
78.         CASE 2067: lang$ = "Dutch - Belgium": CP = 813: CP2 = 1252
79.         CASE 1043: lang$ = "Dutch - Netherlands": CP = 413: CP2 = 1252
80.         CASE 1126: lang$ = "Edo": CP = 466
81.         CASE 3081: lang$ = "English - Australia": CP = 1252
82.         CASE 10249: lang$ = "English - Belize": CP = 2809: CP2 = 1252
83.         CASE 4105: lang$ = "English - Canada": CP = 1009: CP2 = 1252
84.         CASE 9225: lang$ = "English - Caribbean": CP = 2409: CP2 = 1252
85.         CASE 2057: lang$ = "English - Great Britain": CP = 809: CP2 = 1252
86.         CASE 16393: lang$ = "English - India": CP = 4009
87.         CASE 6153: lang$ = "English - Ireland": CP = 1809: CP2 = 1252
88.         CASE 8201: lang$ = "English - Jamaica": CP = 2009: CP2 = 1252
89.         CASE 5129: lang$ = "English - New Zealand": CP = 1409: CP2 = 1252
90.         CASE 13321: lang$ = "English - Phillippines": CP = 3409: CP2 = 1252
91.         CASE 7177: lang$ = "English - Southern Africa": CP = 1252
92.         CASE 11273: lang$ = "English - Trinidad": CP = 1252
93.         CASE 1033: lang$ = "English - United States": CP = 409: CP2 = 1252
94.         CASE 12297: lang$ = "English - Zimbabwe": CP = 3009: CP2 = 1252
95.         CASE 1061: lang$ = "Estonian": CP = 425: CP2 = 1257
96.         CASE 1071: lang$ = "FYRO Macedonia": CP = 1251
97.         CASE 1080: lang$ = "Faroese": CP = 438: CP2 = 1252
98.         CASE 1065: lang$ = "Farsi - Persian": CP = 429: CP2 = 1256
99.         CASE 1124: lang$ = "Filipino": CP = 464
100.         CASE 1035: lang$ = "Finnish": CP = 1252
101.         CASE 2060: lang$ = "French - Belgium": CP = 1252
102.         CASE 11276: lang$ = "French - Cameron": 'unknown CP
103.         CASE 3084: lang$ = "French - Canada": CP = 1252
104.         CASE 9228: lang$ = "French - Congo": 'unknown CP
105.         CASE 12300: lang$ = "French - Cote d'Ivoire" 'unknown CP
106.         CASE 1036: lang$ = "French - France": CP = 1252
107.         CASE 5132: lang$ = "French - Luxembourg": CP = 1252
108.         CASE 13324: lang$ = "French - Mali" 'unknown CP
109.         CASE 6156: lang$ = "French - Monaco": CP = 1252
110.         CASE 14348: lang$ = "French - Morocco" 'cp unknown
111.         CASE 10252: lang$ = "French - Senegal" 'cp unknown
112.         CASE 4108: lang$ = "French - Switzerland": CP = 1252
113.         CASE 7180: lang$ = "French - West Indies" 'CP unknown
114.         CASE 1122: lang$ = "Frisian - Netherlands": CP = 462
115.         CASE 2108: lang$ = "Gaelic - Ireland" 'CP unknown
116.         CASE 1084: lang$ = "Gaelic - Scotland" 'CP unknown
117.         CASE 1110: lang$ = "Galician": CP = 456: CP2 = 1252
118.         CASE 1079: lang$ = "Georgian": CP = 437
119.         CASE 3079: lang$ = "German - Austria": CP = 1252
120.         CASE 1031: lang$ = "German - Germany": CP = 407: CP2 = 1252
121.         CASE 5127: lang$ = "German - Liechtenstein": CP = 1407: CP2 = 1252
122.         CASE 4103: lang$ = "German - Luxembourg": CP = 1007: CP2 = 1252
123.         CASE 2055: lang$ = "German - Switzerland": CP = 807: CP2 = 1252
124.         CASE 1032: lang$ = "Greek": CP = 408: CP2 = 1253
125.         CASE 1140: lang$ = "Guarani - Paraguay": CP = 474
126.         CASE 1095: lang$ = "Gujarati": CP = 447
127.         CASE 1279: lang$ = "HID (Human Interface Device)": CP = -1
128.         CASE 1037: lang$ = "Hebrew": CP = 1255
129.         CASE 1081: lang$ = "Hindi": CP = 439
130.         CASE 1038: lang$ = "Hungarian": CP = 1250
131.         CASE 1039: lang$ = "Icelandic": CP = 1252
132.         CASE 1136: lang$ = "Igbo - Nigeria": CP = 470
133.         CASE 1057: lang$ = "Indonesian": CP = 421: CP2 = 1252
134.         CASE 1040: lang$ = "Italian - Italy": CP = 410: CP2 = 1252
135.         CASE 2064: lang$ = "Italian - Switzerland": CP = 810: CP2 = 1252
136.         CASE 1041: lang$ = "Japanese ": CP = 411
137.         CASE 1099: lang$ = "Kannada" ' CP unknown
138.         CASE 1120: lang$ = "Kashmiri": CP = 460
139.         CASE 1087: lang$ = "Kazakh": CP = 1251
140.         CASE 1107: lang$ = "Khmer": CP = 453
141.         CASE 1111: lang$ = "Konkani": CP = 457
142.         CASE 1042: lang$ = "Korean": CP = 412
143.         CASE 1088: lang$ = "Kyrgyz - Cyrillic": CP = 440: CP2 = 1251
144.         CASE 1108: lang$ = "Lao": CP = 454
145.         CASE 1142: lang$ = "Latin": CP = 476
146.         CASE 1062: lang$ = "Latvian": CP = 426: CP2 = 1257
147.         CASE 1063: lang$ = "Lithuanian": CP = 427: CP2 = 1257
148.         CASE 2110: lang$ = "Malay - Brunei": CP = 1252
149.         CASE 1086: lang$ = "Malay - Malaysia": CP = 1252
150.         CASE 1100: lang$ = "Malayalam" 'unknown CP
151.         CASE 1082: lang$ = "Maltese" 'unknown CP
152.         CASE 1112: lang$ = "Manipuri": CP = 458
153.         CASE 1153: lang$ = "Maori": CP = 481
154.         CASE 1102: lang$ = "Marathi" 'unknown CP
155.         CASE 2128: lang$ = "Mongolian": CP = 850
156.         CASE 1104: lang$ = "Mongolian": CP = 450: CP2 = 1251
157.         CASE 1121: lang$ = "Nepali": CP = 461
158.         CASE 1044: lang$ = "Norwegian - Bokml": CP = 414: CP2 = 1252
159.         CASE 2068: lang$ = "Norwegian - Nynorsk": CP = 814: CP2 = 1252
160.         CASE 1096: lang$ = "Oriya": CP = 448
161.         CASE 1045: lang$ = "Polish": CP = 415: CP2 = 1250
162.         CASE 1046: lang$ = "Portuguese - Brazil": CP = 416: CP2 = 1252
163.         CASE 2070: lang$ = "Portuguese - Portugal": CP = 816: CP2 = 1252
164.         CASE 1094: lang$ = "Punjabi": CP = 446
165.         CASE 1047: lang$ = "Raeto-Romance": CP = 417
166.         CASE 2072: lang$ = "Romanian - Moldova": CP = 818
167.         CASE 1048: lang$ = "Romanian - Romania": CP = 418: CP2 = 1250
168.         CASE 1049: lang$ = "Russian": CP = 419: CP2 = 1251
169.         CASE 2073: lang$ = "Russian - Moldova": CP = 2073: CP2 = 819
170.         CASE 1083: lang$ = "Sami Lappish" 'CP unknown
171.         CASE 1103: lang$ = "Sanskrit" 'CP unknown
172.         CASE 3098: lang$ = "Serbian - Cyrillic": CP = 1251
173.         CASE 2074: lang$ = "Serbian - Latin": CP = 1250
174.         CASE 1072: lang$ = "Sesotho (Sutu)": CP = 430
175.         CASE 1074: lang$ = "Setsuana": CP = 432
176.         CASE 1113: lang$ = "Sindhi": CP = 459
177.         CASE 1115: lang$ = "Sinhala Sinhalese" ' cp unknown
178.         CASE 1051: lang$ = "Slovak": CP = 1250
179.         CASE 1060: lang$ = "Slovenian": CP = 424: CP2 = 1250
180.         CASE 1143: lang$ = "Somali": CP = 477
181.         CASE 1070: lang$ = "Sorbian" 'unknown CP
182.         CASE 11274: lang$ = "Spanish - Argentina": CP = 1252
183.         CASE 16394: lang$ = "Spanish - Bolivia": CP = 1252
184.         CASE 13322: lang$ = "Spanish - Chile": CP = 1252
185.         CASE 9226: lang$ = "Spanish - Colombia": CP = 1252
186.         CASE 5130: lang$ = "Spanish - Costa Rica": CP = 1252
187.         CASE 7178: lang$ = "Spanish - Dominican Republic": CP = 1252
188.         CASE 12298: lang$ = "Spanish - Ecuador": CP = 1252
189.         CASE 17418: lang$ = "Spanish - El Salvador": CP = 1252
190.         CASE 4106: lang$ = "Spanish - Guatemala": CP = 1252
191.         CASE 18442: lang$ = "Spanish - Honduras": CP = 1252
192.         CASE 2058: lang$ = "Spanish - Mexico": CP = 1252
193.         CASE 19466: lang$ = "Spanish - Nicaragua": CP = 1252
194.         CASE 6154: lang$ = "Spanish - Panama": CP = 1252
195.         CASE 15370: lang$ = "Spanish - Paraguay": CP = 1252
196.         CASE 10250: lang$ = "Spanish - Peru": CP = 1252
197.         CASE 20490: lang$ = "Spanish - Puerto Rico": CP = 1252
198.         CASE 1034: lang$ = "Spanish - Spain (Traditional)": CP = 1252
199.         CASE 14346: lang$ = "Spanish - Uruguay": CP = 1252
200.         CASE 8202: lang$ = "Spanish - Venezuela": CP = 1252
201.         CASE 1089: lang$ = "Swahili": CP = 441: CP2 = 1252
202.         CASE 2077: lang$ = "Swedish - Finland": CP = 1252
203.         CASE 1053: lang$ = "Swedish - Sweden": CP = 1252
204.         CASE 1114: lang$ = "Syriac" 'unknown CP
205.         CASE 1064: lang$ = "Tajik": CP = 428
206.         CASE 1097: lang$ = "Tamil": CP = 449
207.         CASE 1092: lang$ = "Tatar": CP = 444: CP2 = 1251
208.         CASE 1098: lang$ = "Telugu" 'CP unknown
209.         CASE 1054: lang$ = "Thai" 'CP unkown
210.         CASE 1105: lang$ = "Tibetan": CP = 451
211.         CASE 1073: lang$ = "Tsonga": CP = 431
212.         CASE 1055: lang$ = "Turkish": CP = 1254
213.         CASE 1090: lang$ = "Turkmen": CP = 442
214.         CASE 1058: lang$ = "Ukrainian": CP = 422: CP2 = 1251
215.         CASE 8: lang$ = "Unicode": CP = -2 '    UTF-8
216.         CASE 1056: lang$ = "Urdu": CP = 420: CP2 = 1256
217.         CASE 2115: lang$ = "Uzbek - Cyrillic": CP = 843: CP2 = 1251
218.         CASE 1091: lang$ = "Uzbek - Latin": CP = 443: CP2 = 1254
219.         CASE 1075: lang$ = "Venda": CP = 433
220.         CASE 1066: lang$ = "Vietnamese": CP = 1258
221.         CASE 1106: lang$ = "Welsh": CP = 452
222.         CASE 1076: lang$ = "Xhosa": CP = 434
223.         CASE 1085: lang$ = "Yiddish" 'unknown CP
224.         CASE 1077: lang$ = "Zulu": CP = 435
225.     END SELECT
226. ELSE
227.     SELECT CASE LCASE$(nation$) '                     without warranty! Here are NOT all countries!
228.         CASE "af": lang$ = "Afrikaans": CP = 1252
229.         CASE "sq": lang$ = "Albanian": CP = 1250
230.         CASE "am": lang$ = "Amharic": 'CP unknown
231.         CASE "ardz": lang$ = "Arabic - Algeria": CP = 1401: CPW = 1256
232.         CASE "arbh": lang$ = "Arabic - Bahrain": CP = 1256
233.         CASE "areg": lang$ = "Arabic - Egypt": CP = 1256
234.         CASE "ariq": lang$ = "Arabic - Iraq": CP = 801: CPW = 1256
235.         CASE "arjo": lang$ = "Arabic - Jordan": CP = 1256
236.         CASE "arkw": lang$ = "Arabic - Kuwait": CP = 3401: CPW = 1256
237.         CASE "arlb": lang$ = "Arabic - Lebanon": CP = 3001: CPW = 1256
238.         CASE "arly": lang$ = "Arabic - Libya": CP = 1001: CPW = 1256
239.         CASE "arma": lang$ = "Arabic - Morocco": CP = 1801: CPW = 1256
240.         CASE "arom": lang$ = "Arabic - Oman": CP = 2001: CP2 = 1256
241.         CASE "arqa": lang$ = "Arabic - Qatar": CP = 4001: CP2 = 1256
242.         CASE "arsa": lang$ = "Arabic - Saudi Arabia": CP = 401: CP2 = 1256
243.         CASE "arsy": lang$ = "Arabic - Syria": CP = 2801: CP2 = 1256
244.         CASE "artn": lang$ = "Arabic - Tunisia": CP = 1256
245.         CASE "arae": lang$ = "Arabic - United Arab Emirates": CP = 3801: CP2 = 1256
246.         CASE "arye": lang$ = "Arabic - Yemen": CP = 2401: CP2 = 1256
247.         CASE "hy": lang$ = "Armenian" 'CP unknown
248.         CASE "as": lang$ = "Assamese" 'CP uunknown
249.         CASE "asaz": lang$ = "Azeri - Cyrillic": CP = 1251
250.         CASE "asaz": lang$ = "Azeri - Latin": CP = 1254
251.         CASE "eu": lang$ = "Basque": CP = 1252
252.         CASE "be": lang$ = "Belarusian": CP = 423: CP2 = 1251
253.         CASE "bn": lang$ = "Bengali - Bangladesh": CP = 2117: CP2 = 845
254.         CASE "bn": lang$ = "Bengali - India": CP = 445
255.         CASE "bs": lang$ = "Bosnian" 'CP unknown
256.         CASE "bg": lang$ = "Bulgarian": CP = 402: CP2 = 1251
257.         CASE "my": lang$ = "Burmese": CP = 455
258.         CASE "ca": lang$ = "Catalan": CP = 403: CP2 = 1252
259.         CASE "zhcn": lang$ = "Chinese - China": CP = 804
260.         CASE "zhhk": lang$ = "Chinese - Hong Kong": 'CP unknown
261.         CASE "zhmo": lang$ = "Chinese - Macau": CP = 1404
262.         CASE "zhsg": lang$ = "Chinese - Singapore": CP = 1004
263.         CASE "zhtw": lang$ = "Chinese - Taiwan": CP = 404
264.         CASE "hr": lang$ = "Croatian": CP = 1250
265.         CASE "cscz": lang$ = "Czech": CP = 405: CP2 = 1250
266.         CASE "da": lang$ = "Danish": CP = 406: CP2 = 1252
267.             'Divehi  Dhivehi Maldivian   dv  dv unknown code and CP
268.         CASE "nlbe": lang$ = "Dutch - Belgium": CP = 813: CP2 = 1252
269.         CASE "nlnl": lang$ = "Dutch - Netherlands": CP = 413: CP2 = 1252
270.         CASE "": lang$ = "Edo": CP = 466
271.         CASE "enau": lang$ = "English - Australia": CP = 1252
272.         CASE "enbz": lang$ = "English - Belize": CP = 2809: CP2 = 1252
273.         CASE "enca": lang$ = "English - Canada": CP = 1009: CP2 = 1252
274.         CASE "encb": lang$ = "English - Caribbean": CP = 2409: CP2 = 1252
275.         CASE "engb": lang$ = "English - Great Britain": CP = 809: CP2 = 1252
276.         CASE "enin": lang$ = "English - India": CP = 4009
277.         CASE "enie": lang$ = "English - Ireland": CP = 1809: CP2 = 1252
278.         CASE "enjm": lang$ = "English - Jamaica": CP = 2009: CP2 = 1252
279.         CASE "ennz": lang$ = "English - New Zealand": CP = 1409: CP2 = 1252
280.         CASE "enph": lang$ = "English - Phillippines": CP = 3409: CP2 = 1252
281.         CASE "enza": lang$ = "English - Southern Africa": CP = 1252
282.         CASE "entt": lang$ = "English - Trinidad": CP = 1252
283.         CASE "enus": lang$ = "English - United States": CP = 409: CP2 = 1252
284.         CASE "": lang$ = "English - Zimbabwe": CP = 3009: CP2 = 1252
285.         CASE "et": lang$ = "Estonian": CP = 425: CP2 = 1257
286.         CASE "fo": lang$ = "Faroese": CP = 438: CP2 = 1252
287.         CASE "fa": lang$ = "Farsi - Persian": CP = 429: CP2 = 1256
288.         CASE "": lang$ = "Filipino": CP = 464
289.         CASE "fi": lang$ = "Finnish": CP = 1252
290.         CASE "frbe", "frca", "frfr", "frlu", "frch": lang$ = "French": CP = 1252
291.         CASE "mk": lang$ = "FYRO Macedonia": CP = 1251
292.         CASE "gdie": lang$ = "Gaelic - Ireland" 'CP unknown
293.         CASE "gd": lang$ = "Gaelic - Scotland" 'CP unknown
294.         CASE "gl": lang$ = "Galician": CP = 456: CP2 = 1252
295.         CASE "ka": lang$ = "Georgian": CP = 437
296.         CASE "deat", "dede", "deli", "delu", "dech": lang$ = "German": CP = 1252
297.         CASE "el": lang$ = "Greek": CP = 408: CP2 = 1253
298.         CASE "gn": lang$ = "Guarani - Paraguay": CP = 474
299.         CASE "gu": lang$ = "Gujarati": CP = 447
300.         CASE "he": lang$ = "Hebrew": CP = 1255
301.         CASE "hi": lang$ = "Hindi": CP = 439
302.         CASE "hu": lang$ = "Hungarian": CP = 1250
303.         CASE "is": lang$ = "Icelandic": CP = 1252
304.         CASE "id": lang$ = "Indonesian": CP = 421: CP2 = 1252
305.         CASE "itit": lang$ = "Italian - Italy": CP = 410: CP2 = 1252
306.         CASE "itch": lang$ = "Italian - Switzerland": CP = 810: CP2 = 1252
307.         CASE "ja": lang$ = "Japanese ": CP = 411
308.         CASE "kn": lang$ = "Kannada" ' CP unknown
309.         CASE "ks": lang$ = "Kashmiri": CP = 460
310.         CASE "kk": lang$ = "Kazakh": CP = 1251
311.         CASE "km": lang$ = "Khmer": CP = 453
312.         CASE "ko": lang$ = "Korean": CP = 412
313.         CASE "lo": lang$ = "Lao": CP = 454
314.         CASE "la": lang$ = "Latin": CP = 476
315.         CASE "lv": lang$ = "Latvian": CP = 426: CP2 = 1257
316.         CASE "lt": lang$ = "Lithuanian": CP = 427: CP2 = 1257
317.         CASE "msbn": lang$ = "Malay - Brunei": CP = 1252
318.         CASE "msmy": lang$ = "Malay - Malaysia": CP = 1252
319.         CASE "ml": lang$ = "Malayalam" 'unknown CP
320.         CASE "mt": lang$ = "Maltese" 'unknown CP
321.         CASE "mi": lang$ = "Maori": CP = 481
322.         CASE "mr": lang$ = "Marathi" 'unknown CP
323.         CASE "mn": lang$ = "Mongolian": CP = 450: CP2 = 1251
324.         CASE "ne": lang$ = "Nepali": CP = 461
325.         CASE "nono": lang$ = "Norwegian - Bokml": CP = 414: CP2 = 1252
326.         CASE "or": lang$ = "Oriya": CP = 448
327.         CASE "pl": lang$ = "Polish": CP = 415: CP2 = 1250
328.         CASE "ptbr": lang$ = "Portuguese - Brazil": CP = 416: CP2 = 1252
329.         CASE "ptpt": lang$ = "Portuguese - Portugal": CP = 816: CP2 = 1252
330.         CASE "pa": lang$ = "Punjabi": CP = 446
331.         CASE "rm": lang$ = "Raeto-Romance": CP = 417
332.         CASE "romo": lang$ = "Romanian - Moldova": CP = 818
333.         CASE "ro": lang$ = "Romanian - Romania": CP = 418: CP2 = 1250
334.         CASE "ru": lang$ = "Russian": CP = 419: CP2 = 1251
335.         CASE "rumo": lang$ = "Russian - Moldova": CP = 2073: CP2 = 819
336.         CASE "sa": lang$ = "Sanskrit" 'CP unknown
337.         CASE "srsp": lang$ = "Serbian - Cyrillic": CP = 1251
338.         CASE "tn": lang$ = "Setsuana": CP = 432
339.         CASE "sd": lang$ = "Sindhi": CP = 459
340.         CASE "si": lang$ = "Sinhala Sinhalese" ' cp unknown
341.         CASE "sk": lang$ = "Slovak": CP = 1250
342.         CASE "sl": lang$ = "Slovenian": CP = 424: CP2 = 1250
343.         CASE "so": lang$ = "Somali": CP = 477
344.         CASE "sb": lang$ = "Sorbian" 'unknown CP
345.         CASE "esar": lang$ = "Spanish - Argentina": CP = 1252
346.         CASE "esbo": lang$ = "Spanish - Bolivia": CP = 1252
347.         CASE "escl": lang$ = "Spanish - Chile": CP = 1252
348.         CASE "esco": lang$ = "Spanish - Colombia": CP = 1252
349.         CASE "escr": lang$ = "Spanish - Costa Rica": CP = 1252
350.         CASE "esdo": lang$ = "Spanish - Dominican Republic": CP = 1252
351.         CASE "esec": lang$ = "Spanish - Ecuador": CP = 1252
352.         CASE "essv": lang$ = "Spanish - El Salvador": CP = 1252
353.         CASE "esgt": lang$ = "Spanish - Guatemala": CP = 1252
354.         CASE "eshn": lang$ = "Spanish - Honduras": CP = 1252
355.         CASE "esmx": lang$ = "Spanish - Mexico": CP = 1252
356.         CASE "esni": lang$ = "Spanish - Nicaragua": CP = 1252
357.         CASE "espa": lang$ = "Spanish - Panama": CP = 1252
358.         CASE "espy": lang$ = "Spanish - Paraguay": CP = 1252
359.         CASE "espe": lang$ = "Spanish - Peru": CP = 1252
360.         CASE "espr": lang$ = "Spanish - Puerto Rico": CP = 1252
361.         CASE "eses": lang$ = "Spanish - Spain (Traditional)": CP = 1252
362.         CASE "esuy": lang$ = "Spanish - Uruguay": CP = 1252
363.         CASE "esve": lang$ = "Spanish - Venezuela": CP = 1252
364.         CASE "sw": lang$ = "Swahili": CP = 441: CP2 = 1252
365.         CASE "swfi": lang$ = "Swedish - Finland": CP = 1252
366.         CASE "svse": lang$ = "Swedish - Sweden": CP = 1252
367.         CASE "tg": lang$ = "Tajik": CP = 428
368.         CASE "ta": lang$ = "Tamil": CP = 449
369.         CASE "tr": lang$ = "Tatar": CP = 444: CP2 = 1251
370.         CASE "te": lang$ = "Telugu" 'CP unknown
371.         CASE "th": lang$ = "Thai" 'CP unkown
372.         CASE "bo": lang$ = "Tibetan": CP = 451
373.         CASE "ts": lang$ = "Tsonga": CP = 431
374.         CASE "tr": lang$ = "Turkish": CP = 1254
375.         CASE "tk": lang$ = "Turkmen": CP = 442
376.         CASE "uk": lang$ = "Ukrainian": CP = 422: CP2 = 1251
377.         CASE "utf8": lang$ = "Unicode": CP = -2 '    UTF-8
378.         CASE "ur": lang$ = "Urdu": CP = 420: CP2 = 1256
379.         CASE "uzuz": lang$ = "Uzbek - Cyrillic": CP = 843: CP2 = 1251
380.         CASE "vi": lang$ = "Vietnamese": CP = 1258
381.         CASE "cy": lang$ = "Welsh": CP = 452
382.         CASE "xh": lang$ = "Xhosa": CP = 434
383.         CASE "yi": lang$ = "Yiddish" 'unknown CP
384.         CASE "zu": lang$ = "Zulu": CP = 435
385.     END SELECT
386. END IF
387.  
388. IF CPW THEN CP2 = CPW
389. IF CP2 THEN language = CP2 ELSE language = CP
390. IF language = 0 THEN PRINT "Sorry, unknown Code Page for your country.": END
391.  
392.  
393. _FONT _LOADFONT("cyberbit.ttf", 15, "monospace")
394.  
395. SELECT CASE language '                                  set DATA READ to correct position (without it read READ first DATA block and ignore his name)
396.     CASE 437: RESTORE Microsoft_pc_cp437
397.     CASE 737: RESTORE Microsoft_pc_cp737
398.     CASE 775: RESTORE Microsoft_pc_cp775
399.     CASE 850: RESTORE Microsoft_pc_cp850
400.     CASE 852: RESTORE Microsoft_pc_cp852
401.     CASE 855: RESTORE Microsoft_pc_cp855
402.     CASE 857: RESTORE Microsoft_pc_cp857
403.     CASE 860: RESTORE Microsoft_pc_cp860
404.     CASE 861: RESTORE Microsoft_pc_cp861
405.     CASE 862: RESTORE Microsoft_pc_cp862
406.     CASE 863: RESTORE Microsoft_pc_cp863
407.     CASE 864: RESTORE Microsoft_pc_cp864
408.     CASE 865: RESTORE Microsoft_pc_cp865
409.     CASE 866: RESTORE Microsoft_pc_cp866
410.     CASE 869: RESTORE Microsoft_pc_cp869
411.     CASE 874: RESTORE Microsoft_pc_cp874
412.     CASE 1250: RESTORE Microsoft_windows_cp1250
413.     CASE 1251: RESTORE Microsoft_windows_cp1251
414.     CASE 1252: RESTORE Microsoft_windows_cp1252
415.     CASE 1253: RESTORE Microsoft_windows_cp1253
416.     CASE 1254: RESTORE Microsoft_windows_cp1254
417.     CASE 1255: RESTORE Microsoft_windows_cp1255
418.     CASE 1256: RESTORE Microsoft_windows_cp1256
419.     CASE 1257: RESTORE Microsoft_windows_cp1257
420.     CASE 1258: RESTORE Microsoft_windows_cp1258
421. END SELECT
422.  
423.  
424.  
425.  
426. FOR ASCIIcode = 128 TO 255
427.     SELECT CASE language
428.         CASE 437: READ Microsoft_pc_cp437: _MAPUNICODE Microsoft_pc_cp437 TO ASCIIcode
429.         CASE 737: READ Microsoft_pc_cp737: _MAPUNICODE Microsoft_pc_cp737 TO ASCIIcode
430.         CASE 775: READ Microsoft_pc_cp775: _MAPUNICODE Microsoft_pc_cp775 TO ASCIIcode
431.         CASE 850: READ Microsoft_pc_cp850: _MAPUNICODE Microsoft_pc_cp850 TO ASCIIcode
432.         CASE 852: READ Microsoft_pc_cp852: _MAPUNICODE Microsoft_pc_cp852 TO ASCIIcode
433.         CASE 855: READ Microsoft_pc_cp855: _MAPUNICODE Microsoft_pc_cp855 TO ASCIIcode
434.         CASE 857: READ Microsoft_pc_cp857: _MAPUNICODE Microsoft_pc_cp857 TO ASCIIcode
435.         CASE 860: READ Microsoft_pc_cp860: _MAPUNICODE Microsoft_pc_cp860 TO ASCIIcode
436.         CASE 861: READ Microsoft_pc_cp861: _MAPUNICODE Microsoft_pc_cp861 TO ASCIIcode
437.         CASE 862: READ Microsoft_pc_cp862: _MAPUNICODE Microsoft_pc_cp862 TO ASCIIcode
438.         CASE 863: READ Microsoft_pc_cp863: _MAPUNICODE Microsoft_pc_cp863 TO ASCIIcode
439.         CASE 864: READ Microsoft_pc_cp864: _MAPUNICODE Microsoft_pc_cp864 TO ASCIIcode
440.         CASE 865: READ Microsoft_pc_cp865: _MAPUNICODE Microsoft_pc_cp865 TO ASCIIcode
441.         CASE 866: READ Microsoft_pc_cp866: _MAPUNICODE Microsoft_pc_cp866 TO ASCIIcode
442.         CASE 869: READ Microsoft_pc_cp869: _MAPUNICODE Microsoft_pc_cp869 TO ASCIIcode
443.         CASE 874: READ Microsoft_pc_cp874: _MAPUNICODE Microsoft_pc_cp874 TO ASCIIcode
444.         CASE 1250: READ Microsoft_windows_cp1250: _MAPUNICODE Microsoft_windows_cp1250 TO ASCIIcode
445.         CASE 1251: READ Microsoft_windows_cp1251: _MAPUNICODE Microsoft_windows_cp1251 TO ASCIIcode
446.         CASE 1252: READ Microsoft_windows_cp1252: _MAPUNICODE Microsoft_windows_cp1252 TO ASCIIcode
447.         CASE 1253: READ Microsoft_windows_cp1253: _MAPUNICODE Microsoft_windows_cp1253 TO ASCIIcode
448.         CASE 1254: READ Microsoft_windows_cp1254: _MAPUNICODE Microsoft_windows_cp1254 TO ASCIIcode
449.         CASE 1255: READ Microsoft_windows_cp1255: _MAPUNICODE Microsoft_windows_cp1255 TO ASCIIcode
450.         CASE 1256: READ Microsoft_windows_cp1256: _MAPUNICODE Microsoft_windows_cp1256 TO ASCIIcode
451.         CASE 1257: READ Microsoft_windows_cp1257: _MAPUNICODE Microsoft_windows_cp1257 TO ASCIIcode
452.         CASE 1258: READ Microsoft_windows_cp1258: _MAPUNICODE Microsoft_windows_cp1258 TO ASCIIcode
453.     END SELECT
454. NEXT
455. KILL "nation.txt"
456.  
457. PRINT "Detected nation:"; lang$; ", code pages: "; CP; ", "; CP2
458. 'INPUT "input text with your national characters, if is displayed wrong, try other font (set it in line 392):"; text$
459.  
460.  
461. f2 = FREEFILE
462. OPEN "test.txt" FOR INPUT AS #f2
463. WHILE NOT EOF(f2)
464.     LINE INPUT #f2, text$
465.     PRINT text$
466. WEND
467. CLOSE f2
468.  
469.  
470.  
471.  
472.  
473.  
474.  
475.  
476.  
477. Microsoft_pc_cp437:
478. DATA 199,252,233,226,228,224,229,231,234,235,232,239,238,236,196,197
479. DATA 201,230,198,244,246,242,251,249,255,214,220,162,163,165,8359,402
480. DATA 225,237,243,250,241,209,170,186,191,8976,172,189,188,161,171,187
481. DATA 9617,9618,9619,9474,9508,9569,9570,9558,9557,9571,9553,9559,9565,9564,9563,9488
482. DATA 9492,9524,9516,9500,9472,9532,9566,9567,9562,9556,9577,9574,9568,9552,9580,9575
483. DATA 9576,9572,9573,9561,9560,9554,9555,9579,9578,9496,9484,9608,9604,9612,9616,9600
484. DATA 945,223,915,960,931,963,181,964,934,920,937,948,8734,966,949,8745
485. DATA 8801,177,8805,8804,8992,8993,247,8776,176,8729,183,8730,8319,178,9632,160
486.  
487. Microsoft_pc_cp737:
488. DATA 913,914,915,916,917,918,919,920,921,922,923,924,925,926,927,928
489. DATA 929,931,932,933,934,935,936,937,945,946,947,948,949,950,951,952
490. DATA 953,954,955,956,957,958,959,960,961,963,962,964,965,966,967,968
491. DATA 9617,9618,9619,9474,9508,9569,9570,9558,9557,9571,9553,9559,9565,9564,9563,9488
492. DATA 9492,9524,9516,9500,9472,9532,9566,9567,9562,9556,9577,9574,9568,9552,9580,9575
493. DATA 9576,9572,9573,9561,9560,9554,9555,9579,9578,9496,9484,9608,9604,9612,9616,9600
494. DATA 969,940,941,942,970,943,972,973,971,974,902,904,905,906,908,910
495. DATA 911,177,8805,8804,938,939,247,8776,176,8729,183,8730,8319,178,9632,160
496.  
497. Microsoft_pc_cp775:
498. DATA 262,252,233,257,228,291,229,263,322,275,342,343,299,377,196,197
499. DATA 201,230,198,333,246,290,162,346,347,214,220,248,163,216,215,164
500. DATA 256,298,243,379,380,378,8221,166,169,174,172,189,188,321,171,187
501. DATA 9617,9618,9619,9474,9508,260,268,280,278,9571,9553,9559,9565,302,352,9488
502. DATA 9492,9524,9516,9500,9472,9532,370,362,9562,9556,9577,9574,9568,9552,9580,381
503. DATA 261,269,281,279,303,353,371,363,382,9496,9484,9608,9604,9612,9616,9600
504. DATA 211,223,332,323,245,213,181,324,310,311,315,316,326,274,325,8217
505. DATA 173,177,8220,190,182,167,247,8222,176,8729,183,185,179,178,9632,160
506.  
507. Microsoft_pc_cp850:
508. DATA 199,252,233,226,228,224,229,231,234,235,232,239,238,236,196,197
509. DATA 201,230,198,244,246,242,251,249,255,214,220,248,163,216,215,402
510. DATA 225,237,243,250,241,209,170,186,191,174,172,189,188,161,171,187
511. DATA 9617,9618,9619,9474,9508,193,194,192,169,9571,9553,9559,9565,162,165,9488
512. DATA 9492,9524,9516,9500,9472,9532,227,195,9562,9556,9577,9574,9568,9552,9580,164
513. DATA 240,208,202,203,200,305,205,206,207,9496,9484,9608,9604,166,204,9600
514. DATA 211,223,212,210,245,213,181,254,222,218,219,217,253,221,175,180
515. DATA 173,177,8215,190,182,167,247,184,176,168,183,185,179,178,9632,160
516.  
517. Microsoft_pc_cp852:
518. DATA 199,252,233,226,228,367,263,231,322,235,336,337,238,377,196,262
519. DATA 201,313,314,244,246,317,318,346,347,214,220,356,357,321,215,269
520. DATA 225,237,243,250,260,261,381,382,280,281,172,378,268,351,171,187
521. DATA 9617,9618,9619,9474,9508,193,194,282,350,9571,9553,9559,9565,379,380,9488
522. DATA 9492,9524,9516,9500,9472,9532,258,259,9562,9556,9577,9574,9568,9552,9580,164
523. DATA 273,272,270,203,271,327,205,206,283,9496,9484,9608,9604,354,366,9600
524. DATA 211,223,212,323,324,328,352,353,340,218,341,368,253,221,355,180
525. DATA 173,733,731,711,728,167,247,184,176,168,729,369,344,345,9632,160
526.  
527. Microsoft_pc_cp855:
528. DATA 1106,1026,1107,1027,1105,1025,1108,1028,1109,1029,1110,1030,1111,1031,1112,1032
529. DATA 1113,1033,1114,1034,1115,1035,1116,1036,1118,1038,1119,1039,1102,1070,1098,1066
530. DATA 1072,1040,1073,1041,1094,1062,1076,1044,1077,1045,1092,1060,1075,1043,171,187
531. DATA 9617,9618,9619,9474,9508,1093,1061,1080,1048,9571,9553,9559,9565,1081,1049,9488
532. DATA 9492,9524,9516,9500,9472,9532,1082,1050,9562,9556,9577,9574,9568,9552,9580,164
533. DATA 1083,1051,1084,1052,1085,1053,1086,1054,1087,9496,9484,9608,9604,1055,1103,9600
534. DATA 1071,1088,1056,1089,1057,1090,1058,1091,1059,1078,1046,1074,1042,1100,1068,8470
535. DATA 173,1099,1067,1079,1047,1096,1064,1101,1069,1097,1065,1095,1063,167,9632,160
536.  
537. Microsoft_pc_cp857:
538. DATA 199,252,233,226,228,224,229,231,234,235,232,239,238,305,196,197
539. DATA 201,230,198,244,246,242,251,249,304,214,220,248,163,216,350,351
540. DATA 225,237,243,250,241,209,286,287,191,174,172,189,188,161,171,187
541. DATA 9617,9618,9619,9474,9508,193,194,192,169,9571,9553,9559,9565,162,165,9488
542. DATA 9492,9524,9516,9500,9472,9532,227,195,9562,9556,9577,9574,9568,9552,9580,164
543. DATA 186,170,202,203,200,0,205,206,207,9496,9484,9608,9604,166,204,9600
544. DATA 211,223,212,210,245,213,181,0,215,218,219,217,236,255,175,180
545. DATA 173,177,0,190,182,167,247,184,176,168,183,185,179,178,9632,160
546.  
547. Microsoft_pc_cp860:
548. DATA 199,252,233,226,227,224,193,231,234,202,232,205,212,236,195,194
549. DATA 201,192,200,244,245,242,218,249,204,213,220,162,163,217,8359,211
550. DATA 225,237,243,250,241,209,170,186,191,210,172,189,188,161,171,187
551. DATA 9617,9618,9619,9474,9508,9569,9570,9558,9557,9571,9553,9559,9565,9564,9563,9488
552. DATA 9492,9524,9516,9500,9472,9532,9566,9567,9562,9556,9577,9574,9568,9552,9580,9575
553. DATA 9576,9572,9573,9561,9560,9554,9555,9579,9578,9496,9484,9608,9604,9612,9616,9600
554. DATA 945,223,915,960,931,963,181,964,934,920,937,948,8734,966,949,8745
555. DATA 8801,177,8805,8804,8992,8993,247,8776,176,8729,183,8730,8319,178,9632,160
556.  
557. Microsoft_pc_cp861:
558. DATA 199,252,233,226,228,224,229,231,234,235,232,208,240,222,196,197
559. DATA 201,230,198,244,246,254,251,221,253,214,220,248,163,216,8359,402
560. DATA 225,237,243,250,193,205,211,218,191,8976,172,189,188,161,171,187
561. DATA 9617,9618,9619,9474,9508,9569,9570,9558,9557,9571,9553,9559,9565,9564,9563,9488
562. DATA 9492,9524,9516,9500,9472,9532,9566,9567,9562,9556,9577,9574,9568,9552,9580,9575
563. DATA 9576,9572,9573,9561,9560,9554,9555,9579,9578,9496,9484,9608,9604,9612,9616,9600
564. DATA 945,223,915,960,931,963,181,964,934,920,937,948,8734,966,949,8745
565. DATA 8801,177,8805,8804,8992,8993,247,8776,176,8729,183,8730,8319,178,9632,160
566.  
567. Microsoft_pc_cp862:
568. DATA 1488,1489,1490,1491,1492,1493,1494,1495,1496,1497,1498,1499,1500,1501,1502,1503
569. DATA 1504,1505,1506,1507,1508,1509,1510,1511,1512,1513,1514,162,163,165,8359,402
570. DATA 225,237,243,250,241,209,170,186,191,8976,172,189,188,161,171,187
571. DATA 9617,9618,9619,9474,9508,9569,9570,9558,9557,9571,9553,9559,9565,9564,9563,9488
572. DATA 9492,9524,9516,9500,9472,9532,9566,9567,9562,9556,9577,9574,9568,9552,9580,9575
573. DATA 9576,9572,9573,9561,9560,9554,9555,9579,9578,9496,9484,9608,9604,9612,9616,9600
574. DATA 945,223,915,960,931,963,181,964,934,920,937,948,8734,966,949,8745
575. DATA 8801,177,8805,8804,8992,8993,247,8776,176,8729,183,8730,8319,178,9632,160
576.  
577. Microsoft_pc_cp863:
578. DATA 199,252,233,226,194,224,182,231,234,235,232,239,238,8215,192,167
579. DATA 201,200,202,244,203,207,251,249,164,212,220,162,163,217,219,402
580. DATA 166,180,243,250,168,184,179,175,206,8976,172,189,188,190,171,187
581. DATA 9617,9618,9619,9474,9508,9569,9570,9558,9557,9571,9553,9559,9565,9564,9563,9488
582. DATA 9492,9524,9516,9500,9472,9532,9566,9567,9562,9556,9577,9574,9568,9552,9580,9575
583. DATA 9576,9572,9573,9561,9560,9554,9555,9579,9578,9496,9484,9608,9604,9612,9616,9600
584. DATA 4023,945,223,915,960,931,963,181,964,934,920,937,948,8734,966,949,8745
585. DATA 8801,177,8805,8804,8992,8993,247,8776,176,8729,183,8730,8319,178,9632,160
586.  
587. Microsoft_pc_cp864:
588. DATA 176,183,8729,8730,9618,9472,9474,9532,9508,9516,9500,9524,9488,9484,9492,9496
589. DATA 946,8734,966,177,189,188,8776,171,187,65271,65272,0,0,65275,65276,0
590. DATA 160,173,65154,163,164,65156,0,0,65166,65167,65173,65177,1548,65181,65185,65189
591. DATA 1632,1633,1634,1635,1636,1637,1638,1639,1640,1641,65233,1563,65201,65205,65209,1567
592. DATA 162,65152,65153,65155,65157,65226,65163,65165,65169,65171,65175,65179,65183,65187,65191,65193
593. DATA 65195,65197,65199,65203,65207,65211,65215,65217,65221,65227,65231,166,172,247,215,65225
594. DATA 1600,65235,65239,65243,65247,65251,65255,65259,65261,65263,65267,65213,65228,65230,65229,65249
595. DATA 65149,1617,65253,65257,65260,65264,65266,65232,65237,65269,65270,65245,65241,65265,9632,0
596.  
597. Microsoft_pc_cp865:
598. DATA 199,252,233,226,228,224,229,231,234,235,232,239,238,236,196,197
599. DATA 201,230,198,244,246,242,251,249,255,214,220,248,163,216,8359,402
600. DATA 225,237,243,250,241,209,170,186,191,8976,172,189,188,161,171,164
601. DATA 9617,9618,9619,9474,9508,9569,9570,9558,9557,9571,9553,9559,9565,9564,9563,9488
602. DATA 9492,9524,9516,9500,9472,9532,9566,9567,9562,9556,9577,9574,9568,9552,9580,9575
603. DATA 9576,9572,9573,9561,9560,9554,9555,9579,9578,9496,9484,9608,9604,9612,9616,9600
604. DATA 945,223,915,960,931,963,181,964,934,920,937,948,8734,966,949,8745
605. DATA 8801,177,8805,8804,8992,8993,247,8776,176,8729,183,8730,8319,178,9632,160
606.  
607. Microsoft_pc_cp866:
608. DATA 1040,1041,1042,1043,1044,1045,1046,1047,1048,1049,1050,1051,1052,1053,1054,1055
609. DATA 1056,1057,1058,1059,1060,1061,1062,1063,1064,1065,1066,1067,1068,1069,1070,1071
610. DATA 1072,1073,1074,1075,1076,1077,1078,1079,1080,1081,1082,1083,1084,1085,1086,1087
611. DATA 9617,9618,9619,9474,9508,9569,9570,9558,9557,9571,9553,9559,9565,9564,9563,9488
612. DATA 9492,9524,9516,9500,9472,9532,9566,9567,9562,9556,9577,9574,9568,9552,9580,9575
613. DATA 9576,9572,9573,9561,9560,9554,9555,9579,9578,9496,9484,9608,9604,9612,9616,9600
614. DATA 1088,1089,1090,1091,1092,1093,1094,1095,1096,1097,1098,1099,1100,1101,1102,1103
615. DATA 1025,1105,1028,1108,1031,1111,1038,1118,176,8729,183,8730,8470,164,9632,160
616.  
617. Microsoft_pc_cp869:
618. DATA 0,0,0,0,0,0,902,0,183,172,166,8216,8217,904,8213,905
619. DATA 906,938,908,0,0,910,939,169,911,178,179,940,163,941,942,943
620. DATA 970,912,972,973,913,914,915,916,917,918,919,189,920,921,171,187
621. DATA 9617,9618,9619,9474,9508,922,923,924,925,9571,9553,9559,9565,926,927,9488
622. DATA 9492,9524,9516,9500,9472,9532,928,929,9562,9556,9577,9574,9568,9552,9580,931
623. DATA 932,933,934,935,936,937,945,946,947,9496,9484,9608,9604,948,949,9600
624. DATA 950,951,952,953,954,955,956,957,958,959,960,961,963,962,964,900
625. DATA 173,177,965,966,967,167,968,901,176,168,969,971,944,974,9632,160
626.  
627. Microsoft_pc_cp874:
628. DATA 8364,0,0,0,0,8230,0,0,0,0,0,0,0,0,0,0
629. DATA 0,8216,8217,8220,8221,8226,8211,8212,0,0,0,0,0,0,0,0
630. DATA 160,3585,3586,3587,3588,3589,3590,3591,3592,3593,3594,3595,3596,3597,3598,3599
631. DATA 3600,3601,3602,3603,3604,3605,3606,3607,3608,3609,3610,3611,3612,3613,3614,3615
632. DATA 3616,3617,3618,3619,3620,3621,3622,3623,3624,3625,3626,3627,3628,3629,3630,3631
633. DATA 3632,3633,3634,3635,3636,3637,3638,3639,3640,3641,3642,0,0,0,0,3647
634. DATA 3648,3649,3650,3651,3652,3653,3654,3655,3656,3657,3658,3659,3660,3661,3662,3663
635. DATA 3664,3665,3666,3667,3668,3669,3670,3671,3672,3673,3674,3675,0,0,0,0
636.  
637. Microsoft_windows_cp1250:
638. DATA 8364,0,8218,0,8222,8230,8224,8225,0,8240,352,8249,346,356,381,377
639. DATA 0,8216,8217,8220,8221,8226,8211,8212,0,8482,353,8250,347,357,382,378
640. DATA 160,711,728,321,164,260,166,167,168,169,350,171,172,173,174,379
641. DATA 176,177,731,322,180,181,182,183,184,261,351,187,317,733,318,380
642. DATA 340,193,194,258,196,313,262,199,268,201,280,203,282,205,206,270
643. DATA 272,323,327,211,212,336,214,215,344,366,218,368,220,221,354,223
644. DATA 341,225,226,259,228,314,263,231,269,233,281,235,283,237,238,271
645. DATA 273,324,328,243,244,337,246,247,345,367,250,369,252,253,355,729
646.  
647. Microsoft_windows_cp1251:
648. DATA 1026,1027,8218,1107,8222,8230,8224,8225,8364,8240,1033,8249,1034,1036,1035,1039
649. DATA 1106,8216,8217,8220,8221,8226,8211,8212,0,8482,1113,8250,1114,1116,1115,1119
650. DATA 160,1038,1118,1032,164,1168,166,167,1025,169,1028,171,172,173,174,1031
651. DATA 176,177,1030,1110,1169,181,182,183,1105,8470,1108,187,1112,1029,1109,1111
652. DATA 1040,1041,1042,1043,1044,1045,1046,1047,1048,1049,1050,1051,1052,1053,1054,1055
653. DATA 1056,1057,1058,1059,1060,1061,1062,1063,1064,1065,1066,1067,1068,1069,1070,1071
654. DATA 1072,1073,1074,1075,1076,1077,1078,1079,1080,1081,1082,1083,1084,1085,1086,1087
655. DATA 1088,1089,1090,1091,1092,1093,1094,1095,1096,1097,1098,1099,1100,1101,1102,1103
656.  
657. Microsoft_windows_cp1252:
658. DATA 8364,0,8218,402,8222,8230,8224,8225,710,8240,352,8249,338,0,381,0
659. DATA 0,8216,8217,8220,8221,8226,8211,8212,732,8482,353,8250,339,0,382,376
660. DATA 160,161,162,163,164,165,166,167,168,169,170,171,172,173,174,175
661. DATA 176,177,178,179,180,181,182,183,184,185,186,187,188,189,190,191
662. DATA 192,193,194,195,196,197,198,199,200,201,202,203,204,205,206,207
663. DATA 208,209,210,211,212,213,214,215,216,217,218,219,220,221,222,223
664. DATA 224,225,226,227,228,229,230,231,232,233,234,235,236,237,238,239
665. DATA 240,241,242,243,244,245,246,247,248,249,250,251,252,253,254,255
666.  
667. Microsoft_windows_cp1253:
668. DATA 8364,0,8218,402,8222,8230,8224,8225,0,8240,0,8249,0,0,0,0
669. DATA 0,8216,8217,8220,8221,8226,8211,8212,0,8482,0,8250,0,0,0,0
670. DATA 160,901,902,163,164,165,166,167,168,169,0,171,172,173,174,8213
671. DATA 176,177,178,179,900,181,182,183,904,905,906,187,908,189,910,911
672. DATA 912,913,914,915,916,917,918,919,920,921,922,923,924,925,926,927
673. DATA 928,929,0,931,932,933,934,935,936,937,938,939,940,941,942,943
674. DATA 944,945,946,947,948,949,950,951,952,953,954,955,956,957,958,959
675. DATA 960,961,962,963,964,965,966,967,968,969,970,971,972,973,974,0
676.  
677. Microsoft_windows_cp1254:
678. DATA 8364,0,8218,402,8222,8230,8224,8225,710,8240,352,8249,338,0,0,0
679. DATA 0,8216,8217,8220,8221,8226,8211,8212,732,8482,353,8250,339,0,0,376
680. DATA 160,161,162,163,164,165,166,167,168,169,170,171,172,173,174,175
681. DATA 176,177,178,179,180,181,182,183,184,185,186,187,188,189,190,191
682. DATA 192,193,194,195,196,197,198,199,200,201,202,203,204,205,206,207
683. DATA 286,209,210,211,212,213,214,215,216,217,218,219,220,304,350,223
684. DATA 224,225,226,227,228,229,230,231,232,233,234,235,236,237,238,239
685. DATA 287,241,242,243,244,245,246,247,248,249,250,251,252,305,351,255
686.  
687. Microsoft_windows_cp1255:
688. DATA 8364,0,8218,402,8222,8230,8224,8225,710,8240,0,8249,0,0,0,0
689. DATA 0,8216,8217,8220,8221,8226,8211,8212,732,8482,0,8250,0,0,0,0
690. DATA 160,161,162,163,8362,165,166,167,168,169,215,171,172,173,174,175
691. DATA 176,177,178,179,180,181,182,183,184,185,247,187,188,189,190,191
692. DATA 1456,1457,1458,1459,1460,1461,1462,1463,1464,1465,0,1467,1468,1469,1470,1471
693. DATA 1472,1473,1474,1475,1520,1521,1522,1523,1524,0,0,0,0,0,0,0
694. DATA 1488,1489,1490,1491,1492,1493,1494,1495,1496,1497,1498,1499,1500,1501,1502,1503
695. DATA 1504,1505,1506,1507,1508,1509,1510,1511,1512,1513,1514,0,0,8206,8207,0
696.  
697. Microsoft_windows_cp1256:
698. DATA 8364,1662,8218,402,8222,8230,8224,8225,710,8240,1657,8249,338,1670,1688,1672
699. DATA 1711,8216,8217,8220,8221,8226,8211,8212,1705,8482,1681,8250,339,8204,8205,1722
700. DATA 160,1548,162,163,164,165,166,167,168,169,1726,171,172,173,174,175
701. DATA 176,177,178,179,180,181,182,183,184,185,1563,187,188,189,190,1567
702. DATA 1729,1569,1570,1571,1572,1573,1574,1575,1576,1577,1578,1579,1580,1581,1582,1583
703. DATA 1584,1585,1586,1587,1588,1589,1590,215,1591,1592,1593,1594,1600,1601,1602,1603
704. DATA 224,1604,226,1605,1606,1607,1608,231,232,233,234,235,1609,1610,238,239
705. DATA 1611,1612,1613,1614,244,1615,1616,247,1617,249,1618,251,252,8206,8207,1746
706.  
707. Microsoft_windows_cp1257:
708. DATA 8364,0,8218,0,8222,8230,8224,8225,0,8240,0,8249,0,168,711,184
709. DATA 0,8216,8217,8220,8221,8226,8211,8212,0,8482,0,8250,0,175,731,0
710. DATA 160,0,162,163,164,0,166,167,216,169,342,171,172,173,174,198
711. DATA 176,177,178,179,180,181,182,183,248,185,343,187,188,189,190,230
712. DATA 260,302,256,262,196,197,280,274,268,201,377,278,290,310,298,315
713. DATA 352,323,325,211,332,213,214,215,370,321,346,362,220,379,381,223
714. DATA 261,303,257,263,228,229,281,275,269,233,378,279,291,311,299,316
715. DATA 353,324,326,243,333,245,246,247,371,322,347,363,252,380,382,729
716.  
717. Microsoft_windows_cp1258:
718. DATA 8364,0,8218,402,8222,8230,8224,8225,710,8240,0,8249,338,0,0,0
719. DATA 0,8216,8217,8220,8221,8226,8211,8212,732,8482,0,8250,339,0,0,376
720. DATA 160,161,162,163,164,165,166,167,168,169,170,171,172,173,174,175
721. DATA 176,177,178,179,180,181,182,183,184,185,186,187,188,189,190,191
722. DATA 192,193,194,258,196,197,198,199,200,201,202,203,768,205,206,207
723. DATA 272,209,777,211,212,416,214,215,216,217,218,219,220,431,771,223
724. DATA 224,225,226,259,228,229,230,231,232,233,234,235,769,237,238,239
725. DATA 273,241,803,243,244,417,246,247,248,249,250,251,252,432,8363,255
726.  
727.  
728. FUNCTION WIN
729.     IF INSTR(_OS$, "WINDOWS") THEN WIN = 1 ELSE WIN = 0
730. END FUNCTION
731.  

  [ You are not allowed to view this attachment ]  

[Pete]

Oh great, just what this community needs... Another "Pete" on androids! :D

Petr's solution should work, and welcome to the forum.

Pete

[AndroPete]

Perfect !
I have ever seen your code in this forum, Petr, but I didnot understand how it works.
With your detailed explanations I understand that and it works !
Thanks a lot for your quick and efficient response.
And thanks for your welcome...

And for Pete : yes I'm a Pete coding also in android...

[Pete]

Hi Pete,

I'm glad Petr solution worked for you. He's a great asset to have around here, and a hell of a nice guy. Gee, I hope this all translates to French OK. Anyway, we'll get Fifi on it, if it doesn't. He's another coder here from France.

OK, so I'm taking this a bit off-topic, but I'm curious, what program language are you coding for Android devices?

I always wished QB64 would have fully developed to work in Android but after having no luck with the early attempts, I switched to SmallBasic. (Not the one by Microsoft, another one, by the same name, but by a private developer.)

The download:
https://play.google.com/store/apps/details?id=net.sourceforge.smallbasic   

About:
https://smallbasic.github.io/

I have to confess, I haven't coded with it in a few years. What I do remember is, at that time, you couldn't install an app you made directly, but you could run your programs emulated through the software. There was also a neat feature that allowed you to create a run-time icon, so you could bypass starting SB and entering the name of the program you wanted to run. It reminded me of the old QBasic trick to make a .pif file to do the same in Windows. Anyway, if you like BASIC and want to try it on Android, I'd recommend it highly. Actually, Chris, the SB developer, developed one of the best alternatives to QB I've seen. He really maintained the "BASIC" structure. I should also mention BPlus is the most experienced one here in SB coding. He pointed me to it years ago.

Pete

[AndroPete]

I didn't know smallbasic...
I use RFO-basic, very powerfull ! Also called "Basic!" very well documented.
You will not found it on play store anymore... because Google doesn't like it. The last release (1.92) is the same that 1.91 but, for been pleased to Google, SMS features have been removed ...

https://bintray.com/rfo-basic/android/RFO-BASIC/v01.91
This release is old (2017) and will not updated... But another coder goes on the show with OliBasic !

I use Olibasic XXIV , very stable.
https://gitlab.com/OliBasic/Main/tree/master/OliBasicXXIV

For editing, I use Notepad++
Here, you will found RFO-BASIC! Launcher (PC) (a special version of Notepad++ for RFO-Basic)
http://mougino.free.fr/rfo-basic/

For compiling source into APK, I use RFO-BASIC! Quick APK (PC) founded in the same page. But if you don't want to compile, no problem, Olibasic can emulate it.

And for help, there is a very cool forum :
https://www.tapatalk.com/groups/rfobasic/

I hope you will be enjoy using it.

[Petr]

AndroPete, I'm glad this code is useful to you.

[Ryster]

https://www.dropbox.com/s/6md4wr6apttslz7/France.jpg?dl=1

[_vince]

The more androgenic of the Petes

[AndroPete]

Yes, Vince, I'm a androgenic Pete, but I love QB64 too !  :))
And the more I love is coding project with Android AND QB64 (windows)...