!Ard-Text Reader Version3 03.03.2022 url$="https://www.ard-text.de/mobil/" p$="104105106107108109110111112113114115116117" p$=p$+"136137138139140141142143144145146147148149" WAKELOCK 2:CLS PRINT "Videotext für Morser" m$="cq cq " : GOSUB MORSEN FOR Seite = 1 TO LEN(p$) STEP 3 !CLS M$=MID$(p$,Seite,3): GOSUB MORSEN GRABURL a$,url$+M$ x=IS_IN("

",a$) a$=MID$(a$,x+4) y=IS_IN("

",a$) h$=LEFT$(a$,y-1) ELSE x=IS_IN("

",a$) a$=MID$(a$,x+7) y=IS_IN("",a$) h$=LEFT$(a$,y-1) ENDIF IF x+y>0 THEN !PRINT h$ M$=h$ GOSUB morsen f$="
" x=IS_IN(f$,a$) a$=MID$(a$,x+LEN(f$)) f$="
" y=IS_IN(f$,a$) T$=LEFT$(a$,y-1) T$=REPLACE$(T$,"

","") T$=REPLACE$(T$,"

","") T$=REPLACE$(T$,CHR$(10)," ") T$=REPLACE$(T$," "," ") T$=REPLACE$(T$," "," ") T$=REPLACE$(T$," "," ") !PRINT T$ ! TTS.INIT ! TTS.SPEAK h$ ! TTS.SPEAK T$ PAUSE 2000 ENDIF NEXT Seite m$="ende ard-text. qrt" GOSUB morsen END MORSEN: dit = 85 :! etwa 12 wpm dah = 3*dit f = 880 REM Morsetabelle L$= "ABCDEFGHIJKLM" L$=L$+"NOPQRSTUVWXYZ" L$=L$+"1234567890" L$=L$+".,?!'\"()&:;/_=+-$@" n =LEN(L$) READ.FROM 1 READ.DATA ".-","-...","-.-.","-..",".","..-.","--.","....","..",".---","-.-",".-..","--" READ.DATA "-.","---",".--.","--.-",".-.","...","-","..-","...-",".--","-..-","-.--","--.." READ.DATA ".----","..---","...--","....-",".....","-....","--...","---..","----.","-----" READ.DATA ".-.-.-","--..--","..--..","-.-.--",".----.",".-..-.","-.--.","-.--.-",".-..." READ.DATA "---...","-.-.-.","-..-.","..--.-","-...-",".-.-.","-....-","...-..-",".--.-." DIM c$[n] FOR i=1 TO n READ.NEXT c$[i] NEXT i REM Ausgabe Zeichenkette M$ M$=UPPER$(M$) M$=REPLACE$(M$,"Ä","AE") M$=REPLACE$(M$,"Ö","OE") M$=REPLACE$(M$,"Ü","UE") M$=REPLACE$(M$,"ß","SS") M$=REPLACE$(M$,"ß","SS") M$=REPLACE$(M$,"ä","AE") M$=REPLACE$(M$,"ü","UE") M$=REPLACE$(M$,"ö","OE") PRINT M$ FOR i = 1 TO LEN(M$) z$=MID$(M$,i,1) IF z$=" " THEN PAUSE 7*dit: REM Worttrenner ELSE REM print c$[IS_IN(z$,l$)] REM L$ ist Buchstabe, C$ ist Code REM suche aktuellen Buchstabe ix=IS_IN(z$,l$) IF ix>=1 THEN REM Morse Buchstabe PRINT Z$+" "+c$[ix] FOR j = 1 TO LEN(c$[ix]) b$=MID$(c$[ix],j,1) IF b$="." THEN TONE f,dit ELSE TONE f,dah ENDIF PAUSE dit NEXT j REM cw(c$[IS_IN(z$,l$)]) ENDIF PAUSE 3*dit: REM Zeichentrenner ENDIF NEXT i RETURN