Revision as of 17:42, 31 March 2020 (view source) rosettacode>Frederik m (→‎{{header\|Forth}}) ← Older edit		Revision as of 07:16, 10 July 2020 (view source) Chkas (talk \| contribs) m (→‎{{header\|EasyLang}}) Newer edit →
Line 1,098: =={{header\|EasyLang}}== <lang>intvars <lang>abc$[] = str_split "abcdefghijklmnopqrstuvwxyz "▼ txt$[] = ~~str_split~~ "sos sos"▼ ~~mc$[] = [ ".-" "-..." "-.-." "-.." "." "..-."~~ ~~"--." "...." ".---" ".---" "-.-"~~ ~~".-.." "--" "-." "---" ".--." "--.-"~~ ~~".-." "..." "-" "..-" "...-" ".--"~~ ~~"-..-" "-.--" "--.." " " ]~~ # subr morse ~~func letter c$ . .~~ j = 0 while j < len abc$[] and abc$[j] <> c$ Line 1,115 ⟶ 1,111: m$ = "x" . ~~print~~write c$ & " " ~~& m$~~ sleep 0.4 m$[] = ~~str_split~~str_chars m$ for j range len m$[] write m$[j] if m$[j] = "." sound [ 440 0.2 ] Line 1,132 ⟶ 1,130: . . ~~sleep~~print ~~0.4~~"" . ▲~~<lang>~~abc$[] = ~~str_split~~str_chars "abcdefghijklmnopqrstuvwxyz " # mc$[] = [ ".-" "-..." "-.-." "-.." "." "..-." "--." "...." ".---" ".---" "-.-" ".-.." "--" "-." "---" ".--." "--.-" ".-." "..." "-" "..-" "...-" ".--" "-..-" "-.--" "--.." " " ] ▲txt$[] = str_split "sos sos" txt$[] = str_chars txt$ for i range len txt$[] ~~call~~c$ ~~letter~~= txt$[i] call morse .</lang>

Morse code: Difference between revisions

Morse code (view source)