XProfan

WindowTitle "  ´Hallo Welt´ in verschiedenen Sprachen"
'HWInternational.pdf v0.0.1 early alpha.
'(CL) CopyLeft 2016-10 by P.Specht, Vienna/Austria
'Ohne jede Gewähr! No warranty whatsoever!
'Daten sind nicht komplett, Workaround im Versuchsstatdium
WindowStyle 24:Window 500,100:font 2
var HalloWelt$=\
"Afrikaans;Hu-llo#af:Afrikaans;wêreld|"+\
"Alibamu;chíkmÃa#:;|"+\
"Amharisch;Selam#:;|"+\
"Albanisch;c´kemi#sq:;botë|"+\
"A´Leamona;tehl-neye-doe#:;|"+\
"Amharisch; #am:Amharisch;‘alemi|"+\
"Arabisch;mArHAbAN#ar:Arabisch;ealim|"+\
"Armenisch;barev#hy:Armenisch;ashkharh|"+\
"Aserbaidschanisch;salam#az:Aserbaidschanisch;dünya|"+\
"Bahamaisch-Englisch;heyello#:;|"+\
"Baskisch;kaixshow#eu:Baskisch;mundu|"+\
"Bengalisch;namaskar#bn:Bengalisch;Bisba|"+\
"Birmanisch;mingalarba#my:Birmanisch;kambhar|"+\
"Bodo;Oye#:;|"+\
"Bremnisch;koWali#:;|"+\
"Bretonisch;Degemer Mad#:;|"+\
"Bosnisch;Cao#bs:Bosnisch;svijet|"+\
"Bulgarisch;zdrasti#bg:Bulgarisch;svyat|"+\
"Cebuano; #ceb:Cebuano;kalibutan|"+\
"Cayuga (Irokesenstamm);sga-noh#:;|"+\
"Chamorro;hafa?#:;|"+\
"Chichewa;Muribwanji#ny:Chichewa;dziko|"+\
"Chubby;Shabe Yabebabe Yeshe#:;|"+\
"Chinesisch;nee how#zh-CN:Chinesisch;Shìjiè|"+\
"Taiwan-Chinesisch;zao#zh-CN:Chinesisch;Shìjiè|"+\
"Maorisch;Kia orana#:;|"+\
"Cree;Tawnsay#:;|"+\
"Deutsch;Hallo#de:Deutsch;Welt|"+\
"Deutsch - Bayerisch;Servus#de:Deutsch;Welt|"+\
"Deutsch - Österreichisch;Serwas#de:Deutsch;Wöd|"+\
"Deutsch - Norddeutsch;moinsen#de:Deutsch;Welt|"+\
"Deutsch - Schweizerdeutsch;Grüezi#ch:Schweiz;Weld|"+\
"Dänisch;hej#da:Dänisch;verden|"+\
"Elfenbeinküste-Dioula;in-i-che#:;|"+\
"Burkina Faso-Dioula;in-i-che#:;|"+\
"D´ni;shorah#:;|"+\
"Dzongkha (Bhutan);kuzu-zangpo#:;|"+\
"Edo (Nigeria);Kóyo#:;|"+\
"Englisch-Amerikanisch;hello#en:Englisch;world|"+\
"Englisch-England;hello#en:Englisch;world|"+\
"Englisch-Irland;Hiya#en:Englisch;world|"+\
"Englisch-Schottland;Howzitgaun#en:Englisch;world|"+\
"Esperanto;sal#eo:Esperanto;mondo|"+\
"Estonisch;tere päevast#et:Estnisch;maailm|"+\
"Egyptisch-Arabisch;Ma Sulama#:;|"+\
"Fidschianisch;Bula Vinaka#:;|"+\
";#tl:Filipino;mondo|"+\
"Finnisch;hyvää päivää#fi:Finnisch;maailma|"+\
"Französisch;allo#fr:Französisch;la monde|"+\
"Friesisch;Goeie#fy:Friesisch;wrâld|"+\
"Gälisch;dia duit#:;|"+\
";#gl:Galizisch;mundo|"+\
"Georgisch;gamardjoba#ka:Georgisch;?????????|"+\
"Griechisch;YAH-soo#el:Griechisch;kósmos|"+\
"Gujarati - Namaste#gu:Gujarati;Visva|"+\
"Haida;Kii-te-daas a#:;|"+\
";#ht:Haitianisch;mond|"+\
"Hausa;Ina uni?#ha:Hausa;duniya|"+\
"Hawaiianisch;aloha#haw:Hawaiisch;ao|"+\
"Hebräisch;shalom#iw:Hebräisch;ulam|"+\
"Hindi;namaste#hi:Hindi;duniya|"+\
";#hmn:Hmong;ntiaj teb no|"+\
"Hopi;ha´u#:;|"+\
"Isländisch;hai#:;|"+\
"Igbo;enday-ewo#ig:Igbo;u.wa|"+\
"Indonesisch;halo#id:Indonesisch;dunia|"+\
"Irisch;Die-ah ghwit#ga:Irisch;domhan|"+\
";#is:Isländisch;heimurinn|"+\
"Islamischer Gruß;Assalamou Alykoum#:;|"+\
"Italienisch;ciÃo#it:Italienisch;mondo|"+\
"Japanisch;ohayoou gozaimasu#ja:Japanisch;Sekai|"+\
";#jw:Javanisch;donya|"+\
"Jamaikanischer Dialekt;Yow Wah gAwaan#:;|"+\
"Kambodschanisch(Khmer);Lea Hoy#:;|"+\
"Kapverdisches Kreolisch;olÃ	#:;|"+\
"Kanien´kéha (Mohawk);kwe kwe#:;|"+\
"Kannada;namaskara#kn:Kannada;Visvada|"+\
"Kasachisch;Salem#kk:Kasachisch;älem|"+\
"Katalanisch;hola#ca:Katalanisch;món|"+\
";#km:Khmer;piphoplok|"+\
";#ky:Kirgisisch;düynö|"+\
"Klingonisch;nuqnehK?#:;|"+\
"Kongolesisch;mambo#:;|"+\
"Konkani;Namaskar#:;|"+\
"Koreanisch;ahn nyeong#ko:Koreanisch;segye|"+\
";#co:Korsisch;mondu|"+\
"Kroatisch;bok#hr:Kroatisch;svijet|"+\
"Kurdisch;roSHIj bahsh#ku:Kurdisch(Kurmandschi);dinya|"+\
"Laotisch;sabai_dee#lo:Lao;olk|"+\
"Lateinisch;salve#la:Lateinisch;orbis/orbe|"+\
"Lettisch;chau#lv:Lettisch;pasaule|"+\
"Lingala;mbote#:;|"+\
"Litauisch;laba diena#lt:Litauisch;pasaulis|"+\
"Lojban;coi#:;|"+\
"Luxemburgisch;moIïen#lb:Luxemburgisch;Welt|"+\
"Malayalam;namaskkaram#ml:Malayalam;leaka.m|"+\
";#mg:Malagasy;izao tontolo izao|"+\
"Malaysisch;Selamat datang#ms:Malaysisch;dunia|"+\
"Maledivisch(Dhivehi);kihineth#:;|"+\
"Maltesisch;merhba#mt:Maltesisch;dinja|"+\
"Maori;kia ora#mi:Maori;ao|"+\
"Marathi;namaskar#mr:Marathi;Jaga|"+\
"Marshallisch;iakwe#:;|"+\
"Slavo-mazedonisch;Zdravo#mk:Mazedonisch;svetot|"+\
"Mongolisch;sain baina uu?#mn:Mongolisch;delkhiin|"+\
"Nahuatl;niltze, hao#:;|"+\
"Naokien;Atetgrealot#:;|"+\
"Navajo;ya´at´eeh#na:Na´vi;kaltxì|"+\
"Niederländisch;hallo#nl:Niederländisch;wereld|"+\
"Niueianisch;fakalofa#:;|"+\
"Neapolitanisch;cia#:;|"+\
"Nepalbhasha;Jwajalapa#:;|"+\
"Nepalesisch;namaskar#ne:Nepalesisch;Visva|"+\
"Nord-Sami;Buorre beaivi#:;|"+\
"Nord-Sotho;dumelang#:;|"+\
"Norwegisch;hei#no:Norwegisch;verden|"+\
"Österreichisch;Serwas#at:Österreichisch,Wöd|"+\
"Oshikwanyama;wa uhala po, meme?#:;|"+\
"Oromo (Afan Oromo);asham (hi)akkam?#:;|"+\
"Palausich;alii#:;|"+\
";#ps:Paschtu;dajinai|"+\
"Persisch; do-rood#fa:Persisch;jiahaun|"+\
";#pi:Piemontesisch;mond|"+\
"Polnisch;witaj#pl:Polnisch;swiat|"+\
"Portugiesisch;alô#pt:Portugiesisch;mundo|"+\
"Punjabi;sat sri akal#pa:Punjabi;Sasara|"+\
"Rajasthani (Marwari);Ram Ram sa#:;|"+\
"Rumänisch;salut#ro:Rumänisch;lume|"+\
"Russisch;Privet#ru:Russisch;mir|"+\
"Samoanisch;malo#sm:Samoanisch;lalolagi|"+\
";#gd:Schottisch-Gälisch;t-saoghail|"+\
"Schonisch;hallå#:;|"+\
"Senegal;salamaleikum#:;|"+\
"Serbisch;zdravo#sr:Serbisch;svet|"+\
";#st:Sesotho;lefatÅ	e|"+\
"Sinhala;a'yubowan#:;|"+\
";#sd:Sindhi;duniaa|"+\
";#sn:Shona;nyika|"+\
";#si:Singhalesisch;loka|"+\
"Slowakisch;ahoj#sk:Slowakisch;svet|"+\
"Slovenisch;živjo#sl:Slowenisch;svet|"+\
";#so:Somali;adduunka|"+\
"Südafrikanisches Englisch;hoezit#:;|"+\
"Süd-Samisch;buaregh#:;|"+\
"Spanisch;hola#es:Spanisch;mundo|"+\
"Sulka;marot#:;|"+\
";#su:Sundanesisch;dunya|"+\
"Suaheli;jambo?#sw:Suaheli;dunia|"+\
"Schwedisch;StHja#sv:Schwedisch;material|"+\
";#tg:Tadschikisch;çahon|"+\
"Tagalog (Filipino - Philippinen);Kumusta ka?#:;|"+\
"Tahitisch;ia orana#:;|"+\
"Taiwanesisch (Hokkien);Li-ho#:;|"+\
"Tamil;vanakkam#ta:Tamil;Ulaka|"+\
"Telugu;namaskaram#te:Telugu;Prapan¯ca|"+\
"Tetum (Osttimor);bondia#:;|"+\
"Thailändisch;sawa dee-krap#th:Thailändisch;Lok|"+\
"Tibetanisch - Lhasa Dialekt;Tashi delek#:;|"+\
"Tibetanisch - Amdo Dialekt;Cho demo#:;|"+\
"Tigrinya (Ethiopien und Eritrea);selam#:;|"+\
"Tongaisch;malo e lelei#:;|"+\
"Tschechisch;dobré rÃ	no#cs:Tschechisch;s^vet|"+\
"Tshiluba;moyo#:;|"+\
"Tsonga (Südafrika);minjhani#:;|"+\
"Türkisch;merhaba#tr:Türkisch;Dünya|"+\
"Ukrainisch;dobriy ranok#uk:Ukrainisch;svit|"+\
"Ungarisch, madjarisch;szervusz#hu:Ungarisch;vilÃ	g|"+\
"Uzbekisch;Salom#uz:Usbekisch;dunya|"+\
"Urdu;adaab#ur:Urdu;donya|"+\
"Vietnamesisch;xin chÃo#vi:Vietnamesisch;thesoi|"+\
"Walisisch;shwmae#cy:Walisisch;byd|"+\
"Weißrussisch;pryvitannie#be:Weißrussisch;sviet|"+\
"Jiddish;sholem aleikhem#yi:Jiddisch;velt|"+\
";#xh:Xhosa;ihlabathi|"+\
"Yoruba;E kaasan#yo:Yoruba;aye|"+\
"Zulu;sawubona#zu:Zulu;izwe"
Declare tmp$[],z$[]
tmp$[]=explode(HalloWelt$,"|")

Whileloop 0,sizeof(tmp$[])-1

    Clear z$[]
    z$[]=explode(translate$(tmp$[&Loop],"#",";"),";")
    Cls rgb(200,200,220)
    locate 3,4

    whileloop 0,sizeof(z$[])-1

        case (&Loop=0) and (z$[0]=""):print z$[2];
        case &Loop=2:continue
        case &Loop=1:print ": ";
        case (z$[&Loop]="") and not(&Loop=0):print "(?)";
        print z$[&Loop];" ";

    endwhile

    print "!"
    sound 100,22
    waitinput 3000

EndWhile

Beep
Waitinput 10000
END