Morse code: Difference between revisions
Content deleted Content added
→=={{header|Visual Basic}}==: added Visual Basic |
|||
Line 986: | Line 986: | ||
end; |
end; |
||
end.</lang> |
end.</lang> |
||
=={{header|Easyprog.online}}== |
|||
<lang easyprog.online>abc$[] = str_split "abcdefghijklmnopqrstuvwxyz " |
|||
mc$[] = [ ".-" "-..." "-.-." "-.." "." "..-." |
|||
"--." "...." ".---" ".---" "-.-" |
|||
".-.." "--" "-." "---" ".--." "--.-" |
|||
".-." "..." "-" "..-" "...-" ".--" |
|||
"-..-" "-.--" "--.." " " ] |
|||
# |
|||
func letter c$ . . |
|||
j = 0 |
|||
while j < len abc$[] and abc$[j] <> c$ |
|||
j += 1 |
|||
. |
|||
if j < len abc$[] |
|||
m$ = mc$[j] |
|||
else |
|||
m$ = "x" |
|||
. |
|||
print c$ & " " & m$ |
|||
m$[] = str_split m$ |
|||
for j range len m$[] |
|||
if m$[j] = "." |
|||
sound [ 440 0.2 ] |
|||
sleep 0.4 |
|||
elif m$[j] = "-" |
|||
sound [ 440 0.6 ] |
|||
sleep 0.8 |
|||
elif m$[j] = " " |
|||
sleep 0.8 |
|||
else |
|||
# error |
|||
sound [ 880 0.6 ] |
|||
sleep 0.8 |
|||
. |
|||
. |
|||
sleep 0.4 |
|||
. |
|||
# |
|||
txt$[] = str_split "sos sos" |
|||
for i range len txt$[] |
|||
call letter txt$[i] |
|||
.</lang> |
|||
=={{header|EchoLisp}}== |
=={{header|EchoLisp}}== |