aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy dot Net 2024-04-19 16:56:29 -07:00
parent 0df55f9f24
commit aec8ed51b6
1045 changed files with 18889 additions and 2777 deletions
Download patch file Download diff file Expand all files Collapse all files

9
Task/Morse-code/EasyLang/morse-code.easy
View file

@ -1,14 +1,11 @@
txt$ = "sos sos"
#
chars$[] = strchars "abcdefghijklmnopqrstuvwxyz "
chars$ = "abcdefghijklmnopqrstuvwxyz "
code$[] = [ ".-" "-..." "-.-." "-.." "." "..-." "--." "...." ".." ".---" "-.-" ".-.." "--" "-." "---" ".--." "--.-" ".-." "..." "-" "..-" "...-" ".--" "-..-" "-.--" "--.." " " ]
#
proc morse ch$ . .
ind = 1
while ind <= len chars$[] and chars$[ind] <> ch$
ind += 1
.
if ind <= len chars$[]
ind = strpos chars$ ch$
if ind > 0
write ch$ & " "
sleep 0.4
for c$ in strchars code$[ind]