Morse code: Difference between revisions
m
→{{header|Delphi}}
(→=={{header|Visual Basic}}==: added Visual Basic) |
|||
Line 986:
end;
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}}==
| |||