XProfan

Windowtitle "Mors Mors":Windowstyle 24:cls:font 2:declare mc$,m$[],n&,words$,c$
mc$="A .- B -... C -.-. D -.. E . F .-. G --. H .... I .. J .--- K -.- L .-.. M -- "+\
"N -. O --- P .--. Q --.- R .-. S ... T - U ..- V ...- W .-- X -..- Y -.-- Z --.. "+\
"1 .---- 2 ..--- 3 ...-- 4 ....- 5 ..... 6 -.... 7 --... 8 ---.. 9 ----. 0 ----- "+\
"À .--.- Å .--.- Ä .-.- È .-..- É ..-.. Ö(OE) ---. Ü ..-- ß(SZ) ...--.. CH ---- "+\
"Ñ --.-- .(AAA) .-.-.- ,(MIM) --..-- :(OS) ---... ;(NNN) -.-.-. ?(IMI) ..--.. "+\
"- -....- _(UK) ..--.- ((KN) -.--. )(KK) -.--.- ' .----. = -...- +(AR) .-.-. "+\
"/(DN) -..-. @(AC) .--.-. KA(Spruchanfang) -.-.- BT(récréation) -...- "+\
"AR(Spruchende) .-.-. VE(verstanden) ...-. SK(Verkehrsende) ...-.- "+\
"SOS(internationalerNotruf) ...---... HH(WhlgAbLetztVollständWort) ........"
m$[]=explode(mc$," "):nochma:
usepen 0,1,0:usebrush 1,rgb(255,250,205):rectangle 0,0-width(%hwnd),height(%hwnd)\8
locate 2,2:imprimer "Text:";:locate 2,10:input words$
usebrush 1,rgb(205,255,205):rectangle 0,height(%hwnd)\8-width(%hwnd),height(%hwnd)
clearclip:locate 10,2:whileloop len(words$):c$=upper$(Mid $(Words$,&Boucle,1))

si c$<>" ":whileloop 0,sizeof(m$[])\2-1:si c$=m$[2*&Boucle]

    imprimer m$[2*&Boucle+1]+" ";:putclip m$[2*&Boucle+1]+" ":endif
    endwhile:d'autre : imprimer "    ";:endif:endwhile:goto "nochma"

Titre de la fenêtre "Morse-Hörtrainer: NumPad +/- ClipBd:Text=*  ESC=Reset"
Fenêtre Style 1048
Fenêtre 400,200
Font 2
Var m$=\
"A§.-#B§-...#C§-.-.#D§-..#E§.#F§..-.#G§--.#H§....#I§..#J§.---#K§-.-#L§.-..#"+\
"M§--#N§-.#O§---#P§.--.#Q§--.-#R§.-.#S§...#T§-#U§..-#V§...-#W§.--#X§-..-#"+\
"Y§-.--#Z§--..#0§-----#1§.----#2§..---#3§...--#4§....-#5§.....#6§-....#"+\
"7§--...#8§---..#9§----.#À§.--.-#ŧ.--.-#ħ.-.-#ȧ.-..-#ɧ..-..#Ö§---.#ܧ..--#"+\
"ߧ...--..#ѧ--.--#.§.-.-.-§(AAA)#,§--..--§(MIM)#:§---...§(OS)#"+\
";§-.-.-.§(NNN)#?§..--..§(IMI)#-§-....-#_§..--.-§(UK)#(§-.--.§(KN)#"+\
")§-.--.-§(KK)#'§.----.#=§-...-#+§.-.-.§(AR)Ende#/§-..-.§(DN)#@§.--.-.§(AC)#"+\
"[§-.--. -.--.#]§-.--.- -.--.-#{§---... -.--.#}§-.--.- ---...#!§.-.-.- -..-.#"+\
" §  #<§-..-. ..--.-#>§..--.- -..-.#*§.-.-.-#"+chr$(34)+"§.-..-.#$§.-.-.  .-.-."
Déclarer brk%,b!,a$,g$,s$,k&,j&,b$[],c$[],z$[],mc$[]
b$[]=explode(m$,"#")
Claire m$

WhileLoop 0,SizeOf(b$[])-1

    Claire c$[]
    c$[]=Explode(b$[&Boucle],"§")
    z$[&Boucle]=c$[0]
    Cas SizeOf(c$[])>1:mc$[&Boucle]=c$[1]

Endwhile

Claire c$[],b$[]
b!=0.666
rept:
locate 2,1
Imprimer "Text = ";
Contribution a$

si a$="*"

    a$="°"+GetClip$()
    cas len(a$)<4:a$="°"+"Das Clipboard était vide. Ersatztext: The quick brown fox jumps over le lazy dog. "

endif

a$=upper$(a$)

WhileLoop len(a$)

    g$=mid$(a$,&Boucle,1)

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

        j&=&Boucle

        si g$=z$[j&]

            cas left$(a$,1)<>"°":imprimer mc$[j&]+" ",

            whileloop len(mc$[j&]+" §")

                sélectionner mid$(mc$[j&]+" §",&Boucle,1)

                    caseof "§"

                    waitinput 100
                    continue

                    caseof " "

                    waitinput 330*b!+120
                    k&=%clé

                    si k&=27:brk%=1:pause:cls:endif

                        si k&=45:b!=1.1*b!:imprimer int(2000-b!*1000),:endif

                            si k&=43:b!=b!*0.9:imprimer int(2000-b!*1000),:endif

                                continue

                                caseof "."

                                waitinput 40*b!
                                sound 880,60*b!
                                waitinput 30
                                continue

                                caseof "-"

                                waitinput 20*b!
                                sound 880,190*b!
                                waitinput 20
                                continue

                            endselect

                        endwhile

                    endif

                    cas brk%:pause

                endwhile

                cas brk%:pause

            Endwhile

            brk%=0

            si left$(a$,1)="°":imprimer:imprimer right$(a$,len(a$)-1);:waitinput 7000:endif

                waitinput 2200
                cls
                Goto "rept"