« previous next »
Pages: [1]   Go Down

Author Topic: problem read file  (Read 2081 times)

0 Members and 1 Guest are viewing this topic.

This topic contains a post which is marked as Best Answer. Press here if you would like to see it.

Offline AndroPete

  • Newbie
  • Posts: 5
problem read file
« on: December 22, 2019, 07:26:49 am »
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
Logged
I'm French, so excuse my poor english

Offline Petr

  • Forum Resident
  • Posts: 1720
  • The best code is the DNA of the hops.
Re: problem read file
« Reply #1 on: December 22, 2019, 07:41:49 am »
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
  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
  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
  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
  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
  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.  
  712.     IF INSTR(_OS$, "WINDOWS") THEN WIN = 1 ELSE WIN = 0
  714.  

Please reply, if this help you, or not.

oh, i forgot, comment also row 457 and 458 in nation.bi for your use!
« Last Edit: December 22, 2019, 07:49:52 am by Petr »
Logged

Offline AndroPete

  • Newbie
  • Posts: 5
Re: problem read file
« Reply #2 on: December 22, 2019, 07:47:09 am »
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...
Logged
I'm French, so excuse my poor english
Marked as best answer by AndroPete on December 22, 2019, 04:50:46 am

Offline Petr

  • Forum Resident
  • Posts: 1720
  • The best code is the DNA of the hops.
Re: problem read file
« Reply #3 on: December 22, 2019, 08:02:56 am »
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
  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
  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
  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
  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
  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.  
  462. OPEN "test.txt" FOR INPUT AS #f2
  464.     LINE INPUT #f2, text$
  465.     PRINT text$
  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.  
  729.     IF INSTR(_OS$, "WINDOWS") THEN WIN = 1 ELSE WIN = 0
  731.  

  [ You are not allowed to view this attachment ]  
Logged

Offline Pete

  • Forum Resident
  • Posts: 2361
  • Cuz I sez so, varmint!
Re: problem read file
« Reply #4 on: December 22, 2019, 08:40:53 am »
Oh great, just what this community needs... Another "Pete" on androids! :D

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

Pete
Logged
Want to learn how to write code on cave walls? https://www.tapatalk.com/groups/qbasic/qbasic-f1/

Offline AndroPete

  • Newbie
  • Posts: 5
Re: problem read file
« Reply #5 on: December 22, 2019, 09:49:18 am »
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...
Logged
I'm French, so excuse my poor english

Offline Pete

  • Forum Resident
  • Posts: 2361
  • Cuz I sez so, varmint!
Re: problem read file
« Reply #6 on: December 22, 2019, 11:53:48 am »
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
« Last Edit: December 22, 2019, 02:30:31 pm by Pete »
Logged
Want to learn how to write code on cave walls? https://www.tapatalk.com/groups/qbasic/qbasic-f1/

Offline AndroPete

  • Newbie
  • Posts: 5
Re: problem read file
« Reply #7 on: December 22, 2019, 12:58:07 pm »
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.
Logged
I'm French, so excuse my poor english

Offline Petr

  • Forum Resident
  • Posts: 1720
  • The best code is the DNA of the hops.
Re: problem read file
« Reply #8 on: December 22, 2019, 01:56:15 pm »
AndroPete, I'm glad this code is useful to you.
Logged

Offline Ryster

  • Newbie
  • Posts: 77
Re: problem read file
« Reply #9 on: December 22, 2019, 02:01:32 pm »
« Last Edit: December 22, 2019, 02:19:31 pm by Ryster »
Logged

Offline _vince

  • Seasoned Forum Regular
  • Posts: 422
Re: problem read file
« Reply #10 on: December 22, 2019, 06:46:13 pm »
The more androgenic of the Petes
Logged

Offline AndroPete

  • Newbie
  • Posts: 5
Re: problem read file
« Reply #11 on: December 23, 2019, 03:58:45 am »
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)...
Logged
I'm French, so excuse my poor english
Pages: [1]   Go Up
« previous next »