    $ filename "Alphabets.exe"
    'use rtl32
    'use rtl64
     
    extern lib "User32.dll"
    ! CharUpper "CharUpperW"                        '1
    ! CharLower "CharLowerW"                        '1
    ! MessageBox            "MessageBoxW"           '1
    end extern
     
    wstring tab=wchr(9)
    wstring sep
     
    function setup_alphabet(int length_U, wstring lang_U, lang_L) as wstring
       int n=0, x
       int le=length_U
       wstring lang
       wstring capital=space 1, small=space 1
       wstring capital2=space 1, small2=space 1   
      
       for x=1 to le
          n+=1
          sep=") " : if n<10 then sep=")  "
    '      lang &= n & sep & mid(lang_U,n,1) & tab & mid(lang_L,n,1) & tab
     
          'Testing CharUpper and CharLower, ucase and lcase functions
          capital=mid(lang_L,n,1) : CharUpper(capital)
          small=mid(lang_U,n,1) : CharLower(small)
          capital2=mid(lang_L,n,1) : capital2=ucase(capital2)
          small2=mid(lang_U,n,1) : small2=lcase(small2)
          lang &= n & sep & mid(lang_U,n,1) & capital & capital2 & tab & mid(lang_L,n,1) & small & small2 & tab      
       next
       return lang
    end function
     
    wstring English_U="ABCDEFGHIJKLMNOPQRSTUVWXYZ"
    wstring English_L="abcdefghijklmnopqrstuvwxyz"
     
    wstring English=setup_alphabet(len(English_U), English_U, English_L)
    MessageBox 0, English ,wstring("English Alphabet"),0
     
     
    wstring French_U=
    wchr( 65)+wchr(192)+wchr(194)+wchr(198)+wchr( 66)+wchr( 67)+wchr(199)+wchr( 68)+wchr( 69)+wchr(200)+
    wchr(201)+wchr(202)+wchr(203)+wchr( 70)+wchr( 71)+wchr( 72)+wchr( 73)+wchr(206)+wchr(207)+wchr( 74)+
    wchr( 75)+wchr( 76)+wchr( 77)+wchr( 78)+wchr( 79)+wchr(212)+wchr(338)+wchr( 80)+wchr( 81)+wchr( 82)+
    wchr( 83)+wchr( 84)+wchr( 85)+wchr(217)+wchr(219)+wchr(220)+wchr( 86)+wchr( 87)+wchr( 88)+wchr( 89)+
    wchr(376)+wchr( 90)
    wstring French_L=  
    wchr( 97)+wchr(224)+wchr(226)+wchr(230)+wchr( 98)+wchr( 99)+wchr(231)+wchr(100)+wchr(101)+wchr(232)+
    wchr(233)+wchr(234)+wchr(235)+wchr(102)+wchr(103)+wchr(104)+wchr(105)+wchr(238)+wchr(239)+wchr(106)+
    wchr(107)+wchr(108)+wchr(109)+wchr(110)+wchr(111)+wchr(244)+wchr(339)+wchr(112)+wchr(113)+wchr(114)+
    wchr(115)+wchr(116)+wchr(117)+wchr(249)+wchr(251)+wchr(252)+wchr(118)+wchr(119)+wchr(120)+wchr(121)+
    wchr(255)+wchr(122)
     
    wstring French=setup_alphabet(len(French_U), French_U, French_L)
    MessageBox 0, French ,wstring("French Alphabet"),0
     
     
    wstring Grecian_U=
    wchr(913)+wchr(914)+wchr(915)+wchr(916)+wchr(917)+wchr(918)+wchr(919)+wchr(920)+wchr(921)+wchr(922)+
    wchr(923)+wchr(924)+wchr(925)+wchr(926)+wchr(927)+wchr(928)+wchr(929)+wchr(931)+wchr(932)+wchr(933)+
    wchr(934)+wchr(935)+wchr(936)+wchr(937)+wchr(938)+wchr(939)
    wstring Grecian_L=
    wchr(945)+wchr(946)+wchr(947)+wchr(948)+wchr(949)+wchr(950)+wchr(951)+wchr(952)+wchr(953)+wchr(954)+
    wchr(955)+wchr(956)+wchr(957)+wchr(958)+wchr(959)+wchr(960)+wchr(961)+wchr(963)+wchr(964)+wchr(965)+
    wchr(966)+wchr(967)+wchr(968)+wchr(969)+wchr(970)+wchr(971)
     
    wstring Grecian=setup_alphabet(len(Grecian_U), Grecian_U, Grecian_L)
    MessageBox 0, Grecian ,wstring("Grecian Alphabet"),0
     
     
    wstring Russian_U=
    wchr(1040)+wchr(1041)+wchr(1042)+wchr(1043)+wchr(1044)+wchr(1045)+wchr(1025)+wchr(1046)+
    wchr(1047)+wchr(1048)+wchr(1049)+wchr(1050)+wchr(1051)+wchr(1052)+wchr(1053)+wchr(1054)+
    wchr(1055)+wchr(1056)+wchr(1057)+wchr(1058)+wchr(1059)+wchr(1060)+wchr(1061)+wchr(1062)+
    wchr(1063)+wchr(1064)+wchr(1065)+wchr(1066)+wchr(1067)+wchr(1068)+wchr(1069)+wchr(1070)+wchr(1071)
    wstring Russian_L=
    wchr(1072)+wchr(1073)+wchr(1074)+wchr(1075)+wchr(1076)+wchr(1077)+wchr(1105)+wchr(1078)+
    wchr(1079)+wchr(1080)+wchr(1081)+wchr(1082)+wchr(1083)+wchr(1084)+wchr(1085)+wchr(1086)+
    wchr(1087)+wchr(1088)+wchr(1089)+wchr(1090)+wchr(1091)+wchr(1092)+wchr(1093)+wchr(1094)+
    wchr(1095)+wchr(1096)+wchr(1097)+wchr(1098)+wchr(1099)+wchr(1100)+wchr(1101)+wchr(1102)+wchr(1103)
     
    wstring Russian=setup_alphabet(len(Russian_U), Russian_U, Russian_L)
    MessageBox 0, Russian ,wstring("Russian Alphabet"),0
     
    ==============================================================
     
    'This is for testing the own keyboard
    wstring MyAlphabet_U="ABCDEFGHIJKLMNOPQRSTUVWXYZÄÖÜß"
    wstring MyAlphabet_L="abcdefghijklmnopqrstuvwxyzäöüß"
     
    wstring MyAlphabet=setup_alphabet(len(MyAlphabet_U), MyAlphabet_U, MyAlphabet_L)
    MessageBox 0, MyAlphabet ,wstring("My Alphabet - Testing the own keyboard"),0
     