Text and numbers to Morse code, and back again

[Bert22306]

An ASCII string is split up into individual characters, including spaces, and converted to Morse code. Including audio.

One subroutine converts to Morse, and another one decodes the dots and dashes back to text and numerals.

(Oh shucks. The accented u is meant to be a dot, character 249, in the IBM extended character set. It's a dot at the same elevation as the - sign. I use character 249 as dit, and the - symbol as dah. It shows up fine in QB64.)

Code: QB64: [Select]

1. Rem  Program converts text to Morse code, including sound, then decodes.
2. Rem -------
3. _Title "Morse code encoder/decoder"
4. Rem Screen _NewImage(120, 43, 0)
5. Rem Color 1, 7
6. $Console:Only
7. _Dest _Console
8. $ScreenHide
9. Cls
10. Dim Shared char(500), MorseChar$(500), Astring$, NumBytes
11. 1 Input "Continue or exit (x exits) -> ", cont$
12. If cont$ = "x" Then End
13. Print
14. Call InputCharacters
15. Call MorseEncode
16. Print
17. Input "Press <enter> to decode -> ", cont$
18. Call MorseDecode
19. Print
20. GoTo 1
21. End
22.  
23. Sub InputCharacters
24.     Input "Enter string of letters and numbers to convert to Morse code -> ", Astring$
25.     Print Astring$
26.     NumBytes = Len(Astring$)
27.     For i = 1 To NumBytes
28.         char(i) = Asc(Astring$, i)
29.     Next i
30.     If NumBytes < 1 Then
31.         Beep
32.         Print
33.         Color 4, 7
34.         Print "There was no input data identified. At least one input byte required."
35.         Color 1, 7
36.         End
37.     End If
38.     Print "Number of bytes ="; NumBytes
39. End Sub
40.  
41. Sub MorseEncode
42.     Print
43.     For i = 1 To NumBytes
44.         Rem -------
45.         Rem  control codes
46.         Rem -------
47.         If char(i) < 32 Then
48.             MorseChar$(i) = "*"
49.             Print MorseChar$(i), "No Morse equivalent"
50.             Call NoCode
51.         End If
52.         Rem -------
53.         Rem  parentheses, slash, + and - signs
54.         Rem -------
55.         If char(i) > 33 And char(i) < 48 Then
56.             MorseChar$(i) = "*"
57.             Print MorseChar$(i), "No Morse equivalent"
58.             Call NoCode
59.         End If
60.         Rem -------
61.         Rem  colon, semicolon, >, <, ?, etc.
62.         Rem -------
63.         If char(i) > 57 And char(i) < 65 Then
64.             MorseChar$(i) = "*"
65.             Print MorseChar$(i), "No Morse equivalent"
66.             Call NoCode
67.         End If
68.         Rem -------
69.         Rem  brackets, backslash, etc.
70.         Rem -------
71.         If char(i) > 90 And char(i) < 97 Then
72.             MorseChar$(i) = "*"
73.             Print MorseChar$(i), "No Morse equivalent"
74.             Call NoCode
75.         End If
76.         Rem -------
77.         Rem  more brackets, extended ASCII set
78.         Rem -------
79.         If char(i) > 122 Then
80.             MorseChar$(i) = "*"
81.             Print MorseChar$(i), "No Morse equivalent"
82.             Call NoCode
83.         End If
84.         Rem -------
85.         Rem  Space between words
86.         Rem -------
87.         If char(i) = 32 Then
88.             MorseChar$(i) = " "
89.             Print MorseChar$(i)
90.             _Delay .8
91.         End If
92.         Rem -------
93.         Rem  Letter A
94.         Rem -------
95.         If char(i) = 97 Or char(i) = 65 Then
96.             MorseChar$(i) = "ù-"
97.             Print MorseChar$(i), Chr$(65)
98.             Call dit: Call dah
99.             _Delay .45
100.         End If
101.         Rem -------
102.         Rem  Letter B
103.         Rem -------
104.         If char(i) = 98 Or char(i) = 66 Then
105.             MorseChar$(i) = "-ùùù"
106.             Print MorseChar$(i), Chr$(66)
107.             Call dah: Call dit: Call dit: Call dit
108.             _Delay .45
109.         End If
110.         Rem -------
111.         Rem  Letter C
112.         Rem -------
113.         If char(i) = 99 Or char(i) = 67 Then
114.             MorseChar$(i) = "-ù-ù"
115.             Print MorseChar$(i), Chr$(67)
116.             Call dah: Call dit: Call dah: Call dit
117.             _Delay .45
118.         End If
119.         Rem -------
120.         Rem  Letter D
121.         Rem -------
122.         If char(i) = 100 Or char(i) = 68 Then
123.             MorseChar$(i) = "-ùù"
124.             Print MorseChar$(i), Chr$(68)
125.             Call dah: Call dit: Call dit
126.             _Delay .45
127.         End If
128.         Rem -------
129.         Rem  Letter E
130.         Rem -------
131.         If char(i) = 101 Or char(i) = 69 Then
132.             MorseChar$(i) = "ù"
133.             Print MorseChar$(i), Chr$(69)
134.             Call dit
135.             _Delay .45
136.         End If
137.         Rem -------
138.         Rem  Letter F
139.         Rem -------
140.         If char(i) = 102 Or char(i) = 70 Then
141.             MorseChar$(i) = "ùù-ù"
142.             Print MorseChar$(i), Chr$(70)
143.             Call dit: Call dit: Call dah: Call dit
144.             _Delay .45
145.         End If
146.         Rem -------
147.         Rem  Letter G
148.         Rem -------
149.         If char(i) = 103 Or char(i) = 71 Then
150.             MorseChar$(i) = "--ù"
151.             Print MorseChar$(i), Chr$(71)
152.             Call dah: Call dah: Call dit
153.             _Delay .45
154.         End If
155.         Rem -------
156.         Rem  Letter H
157.         Rem -------
158.         If char(i) = 104 Or char(i) = 72 Then
159.             MorseChar$(i) = "ùùùù"
160.             Print MorseChar$(i), Chr$(72)
161.             Call dit: Call dit: Call dit: Call dit
162.             _Delay .45
163.         End If
164.         Rem -------
165.         Rem  Letter I
166.         Rem -------
167.         If char(i) = 105 Or char(i) = 73 Then
168.             MorseChar$(i) = "ùù"
169.             Print MorseChar$(i), Chr$(73)
170.             Call dit: Call dit
171.             _Delay .45
172.         End If
173.         Rem -------
174.         Rem  Letter J
175.         Rem -------
176.         If char(i) = 106 Or char(i) = 74 Then
177.             MorseChar$(i) = "ù---"
178.             Print MorseChar$(i), Chr$(74)
179.             Call dit: Call dah: Call dah: Call dah
180.             _Delay .45
181.         End If
182.         Rem -------
183.         Rem  Letter K
184.         Rem -------
185.         If char(i) = 107 Or char(i) = 75 Then
186.             MorseChar$(i) = "-ù-"
187.             Print MorseChar$(i), Chr$(75)
188.             Call dah: Call dit: Call dah
189.             _Delay .45
190.         End If
191.         Rem -------
192.         Rem  Letter L
193.         Rem -------
194.         If char(i) = 108 Or char(i) = 76 Then
195.             MorseChar$(i) = "ù-ùù"
196.             Print MorseChar$(i), Chr$(76)
197.             Call dit: Call dah: Call dit: Call dit
198.             _Delay .45
199.         End If
200.         Rem -------
201.         Rem  Letter M
202.         Rem -------
203.         If char(i) = 109 Or char(i) = 77 Then
204.             MorseChar$(i) = "--"
205.             Print MorseChar$(i), Chr$(77)
206.             Call dah: Call dah
207.             _Delay .45
208.         End If
209.         Rem -------
210.         Rem  Letter N
211.         Rem -------
212.         If char(i) = 110 Or char(i) = 78 Then
213.             MorseChar$(i) = "-ù"
214.             Print MorseChar$(i), Chr$(78)
215.             Call dah: Call dit
216.             _Delay .45
217.         End If
218.         Rem -------
219.         Rem  Letter O
220.         Rem -------
221.         If char(i) = 111 Or char(i) = 79 Then
222.             MorseChar$(i) = "---"
223.             Print MorseChar$(i), Chr$(79)
224.             Call dah: Call dah: Call dah
225.             _Delay .45
226.         End If
227.         Rem -------
228.         Rem  Letter P
229.         Rem -------
230.         If char(i) = 112 Or char(i) = 80 Then
231.             MorseChar$(i) = "ù--ù"
232.             Print MorseChar$(i), Chr$(80)
233.             Call dit: Call dah: Call dah: Call dit
234.             _Delay .45
235.         End If
236.         Rem -------
237.         Rem  Letter Q
238.         Rem -------
239.         If char(i) = 113 Or char(i) = 81 Then
240.             MorseChar$(i) = "--ù-"
241.             Print MorseChar$(i), Chr$(81)
242.             Call dah: Call dah: Call dit: Call dah
243.             _Delay .45
244.         End If
245.         Rem -------
246.         Rem  Letter R
247.         Rem -------
248.         If char(i) = 114 Or char(i) = 82 Then
249.             MorseChar$(i) = "ù-ù"
250.             Print MorseChar$(i), Chr$(82)
251.             Call dit: Call dah: Call dit
252.             _Delay .45
253.         End If
254.         Rem -------
255.         Rem  Letter S
256.         Rem -------
257.         If char(i) = 115 Or char(i) = 83 Then
258.             MorseChar$(i) = "ùùù"
259.             Print MorseChar$(i), Chr$(83)
260.             Call dit: Call dit: Call dit
261.             _Delay .45
262.         End If
263.         Rem -------
264.         Rem  Letter T
265.         Rem -------
266.         If char(i) = 116 Or char(i) = 84 Then
267.             MorseChar$(i) = "-"
268.             Print MorseChar$(i), Chr$(84)
269.             Call dah
270.             _Delay .45
271.         End If
272.         Rem -------
273.         Rem  Letter U
274.         Rem -------
275.         If char(i) = 117 Or char(i) = 85 Then
276.             MorseChar$(i) = "ùù-"
277.             Print MorseChar$(i), Chr$(85)
278.             Call dit: Call dit: Call dah
279.             _Delay .45
280.         End If
281.         Rem -------
282.         Rem  Letter V
283.         Rem -------
284.         If char(i) = 118 Or char(i) = 86 Then
285.             MorseChar$(i) = "ùùù-"
286.             Print MorseChar$(i), Chr$(86)
287.             Call dit: Call dit: Call dit: Call dah
288.             _Delay .45
289.         End If
290.         Rem -------
291.         Rem  Letter W
292.         Rem -------
293.         If char(i) = 119 Or char(i) = 87 Then
294.             MorseChar$(i) = "ù--"
295.             Print MorseChar$(i), Chr$(87)
296.             Call dit: Call dah: Call dah
297.             _Delay .45
298.         End If
299.         Rem -------
300.         Rem  Letter X
301.         Rem -------
302.         If char(i) = 120 Or char(i) = 88 Then
303.             MorseChar$(i) = "-ùù-"
304.             Print MorseChar$(i), Chr$(88)
305.             Call dah: Call dit: Call dit: Call dah
306.             _Delay .45
307.         End If
308.         Rem -------
309.         Rem  Letter Y
310.         Rem -------
311.         If char(i) = 121 Or char(i) = 89 Then
312.             MorseChar$(i) = "-ù--"
313.             Print MorseChar$(i), Chr$(89)
314.             Call dah: Call dit: Call dah: Call dah
315.             _Delay .45
316.         End If
317.         Rem -------
318.         Rem  Letter Z
319.         Rem -------
320.         If char(i) = 122 Or char(i) = 90 Then
321.             MorseChar$(i) = "--ùù"
322.             Print MorseChar$(i), Chr$(90)
323.             Call dah: Call dah: Call dit: Call dit
324.             _Delay .45
325.         End If
326.         Rem -------
327.         Rem  Numeral 0
328.         Rem -------
329.         If char(i) = 48 Then
330.             MorseChar$(i) = "-----"
331.             Print MorseChar$(i), Chr$(48)
332.             Call dah: Call dah: Call dah: Call dah: Call dah
333.             _Delay .6
334.         End If
335.         Rem -------
336.         Rem  Numeral 1
337.         Rem -------
338.         If char(i) = 49 Then
339.             MorseChar$(i) = "ù----"
340.             Print MorseChar$(i), Chr$(49)
341.             Call dit: Call dah: Call dah: Call dah: Call dah
342.             _Delay .6
343.         End If
344.         Rem -------
345.         Rem  Numeral 2
346.         Rem -------
347.         If char(i) = 50 Then
348.             MorseChar$(i) = "ùù---"
349.             Print MorseChar$(i), Chr$(50)
350.             Call dit: Call dit: Call dah: Call dah: Call dah
351.             _Delay .6
352.         End If
353.         Rem -------
354.         Rem  Numeral 3
355.         Rem -------
356.         If char(i) = 51 Then
357.             MorseChar$(i) = "ùùù--"
358.             Print MorseChar$(i), Chr$(51)
359.             Call dit: Call dit: Call dit: Call dah: Call dah
360.             _Delay .6
361.         End If
362.         Rem -------
363.         Rem  Numeral 4
364.         Rem -------
365.         If char(i) = 52 Then
366.             MorseChar$(i) = "ùùùù-"
367.             Print MorseChar$(i), Chr$(52)
368.             Call dit: Call dit: Call dit: Call dit: Call dah
369.             _Delay .6
370.         End If
371.         Rem -------
372.         Rem  Numeral 5
373.         Rem -------
374.         If char(i) = 53 Then
375.             MorseChar$(i) = "ùùùùù"
376.             Print MorseChar$(i), Chr$(53)
377.             Call dit: Call dit: Call dit: Call dit: Call dit
378.             _Delay .6
379.         End If
380.         Rem -------
381.         Rem  Numeral 6
382.         Rem -------
383.         If char(i) = 54 Then
384.             MorseChar$(i) = "-ùùùù"
385.             Print MorseChar$(i), Chr$(54)
386.             Call dah: Call dit: Call dit: Call dit: Call dit
387.             _Delay .6
388.         End If
389.         Rem -------
390.         Rem  Numeral 7
391.         Rem -------
392.         If char(i) = 55 Then
393.             MorseChar$(i) = "--ùùù"
394.             Print MorseChar$(i), Chr$(55)
395.             Call dah: Call dah: Call dit: Call dit: Call dit
396.             _Delay .6
397.         End If
398.         Rem -------
399.         Rem  Numeral 8
400.         Rem -------
401.         If char(i) = 56 Then
402.             MorseChar$(i) = "---ùù"
403.             Print MorseChar$(i), Chr$(56)
404.             Call dah: Call dah: Call dah: Call dit: Call dit
405.             _Delay .6
406.         End If
407.         Rem -------
408.         Rem  Numeral 9
409.         Rem -------
410.         If char(i) = 57 Then
411.             MorseChar$(i) = "----ù"
412.             Print MorseChar$(i), Chr$(57)
413.             Call dah: Call dah: Call dah: Call dah: Call dit
414.             _Delay .6
415.         End If
416.     Next i
417. End Sub
418.  
419. Sub MorseDecode
420.     Print
421.     For i = 1 To NumBytes
422.         Rem -------
423.         Rem  control codes, punctuation, slashes, extended ASCII
424.         Rem -------
425.         If MorseChar$(i) = "*" Then Print MorseChar$(i); " decoded", "InvalidCode"
426.         Rem -------
427.         Rem  Space between words
428.         Rem -------
429.         If MorseChar$(i) = " " Then Print
430.         Rem -------
431.         Rem  Letter A
432.         Rem -------
433.         If MorseChar$(i) = "ù-" Then Print MorseChar$(i); " decoded", "A"
434.         Rem -------
435.         Rem  Letter B
436.         Rem -------
437.         If MorseChar$(i) = "-ùùù" Then Print MorseChar$(i); " decoded", "B"
438.         Rem -------
439.         Rem  Letter C
440.         Rem -------
441.         If MorseChar$(i) = "-ù-ù" Then Print MorseChar$(i); " decoded", "C"
442.         Rem -------
443.         Rem  Letter D
444.         Rem -------
445.         If MorseChar$(i) = "-ùù" Then Print MorseChar$(i); " decoded", "D"
446.         Rem -------
447.         Rem  Letter E
448.         Rem -------
449.         If MorseChar$(i) = "ù" Then Print MorseChar$(i); " decoded", "E"
450.         Rem -------
451.         Rem  Letter F
452.         Rem -------
453.         If MorseChar$(i) = "ùù-ù" Then Print MorseChar$(i); " decoded", "F"
454.         Rem -------
455.         Rem  Letter G
456.         Rem -------
457.         If MorseChar$(i) = "--ù" Then Print MorseChar$(i); " decoded", "G"
458.         Rem -------
459.         Rem  Letter H
460.         Rem -------
461.         If MorseChar$(i) = "ùùùù" Then Print MorseChar$(i); " decoded", "H"
462.         Rem -------
463.         Rem  Letter I
464.         Rem -------
465.         If MorseChar$(i) = "ùù" Then Print MorseChar$(i); " decoded", "I"
466.         Rem -------
467.         Rem  Letter J
468.         Rem -------
469.         If MorseChar$(i) = "ù---" Then Print MorseChar$(i); " decoded", "J"
470.         Rem -------
471.         Rem  Letter K
472.         Rem -------
473.         If MorseChar$(i) = "-ù-" Then Print MorseChar$(i); " decoded", "K"
474.         Rem -------
475.         Rem  Letter L
476.         Rem -------
477.         If MorseChar$(i) = "ù-ùù" Then Print MorseChar$(i); " decoded", "L"
478.         Rem -------
479.         Rem  Letter M
480.         Rem -------
481.         If MorseChar$(i) = "--" Then Print MorseChar$(i); " decoded", "M"
482.         Rem -------
483.         Rem  Letter N
484.         Rem -------
485.         If MorseChar$(i) = "-ù" Then Print MorseChar$(i); " decoded", "N"
486.         Rem -------
487.         Rem  Letter O
488.         Rem -------
489.         If MorseChar$(i) = "---" Then Print MorseChar$(i); " decoded", "O"
490.         Rem -------
491.         Rem  Letter P
492.         Rem -------
493.         If MorseChar$(i) = "ù--ù" Then Print MorseChar$(i); " decoded", "P"
494.         Rem -------
495.         Rem  Letter Q
496.         Rem -------
497.         If MorseChar$(i) = "--ù-" Then Print MorseChar$(i); " decoded", "Q"
498.         Rem -------
499.         Rem  Letter R
500.         Rem -------
501.         If MorseChar$(i) = "ù-ù" Then Print MorseChar$(i); " decoded", "R"
502.         Rem -------
503.         Rem  Letter S
504.         Rem -------
505.         If MorseChar$(i) = "ùùù" Then Print MorseChar$(i); " decoded", "S"
506.         Rem -------
507.         Rem  Letter T
508.         Rem -------
509.         If MorseChar$(i) = "-" Then Print MorseChar$(i); " decoded", "T"
510.         Rem -------
511.         Rem  Letter U
512.         Rem -------
513.         If MorseChar$(i) = "ùù-" Then Print MorseChar$(i); " decoded", "U"
514.         Rem -------
515.         Rem  Letter V
516.         Rem -------
517.         If MorseChar$(i) = "ùùù-" Then Print MorseChar$(i); " decoded", "V"
518.         Rem -------
519.         Rem  Letter W
520.         Rem -------
521.         If MorseChar$(i) = "ù--" Then Print MorseChar$(i); " decoded", "W"
522.         Rem -------
523.         Rem  Letter X
524.         Rem -------
525.         If MorseChar$(i) = "-ùù-" Then Print MorseChar$(i); " decoded", "X"
526.         Rem -------
527.         Rem  Letter Y
528.         Rem -------
529.         If MorseChar$(i) = "-ù--" Then Print MorseChar$(i); " decoded", "Y"
530.         Rem -------
531.         Rem  Letter Z
532.         Rem -------
533.         If MorseChar$(i) = "--ùù" Then Print MorseChar$(i); " decoded", "Z"
534.         Rem -------
535.         Rem  Numeral 0
536.         Rem -------
537.         If MorseChar$(i) = "-----" Then Print MorseChar$(i); " decoded", "0"
538.         Rem -------
539.         Rem  Numeral 1
540.         Rem -------
541.         If MorseChar$(i) = "ù----" Then Print MorseChar$(i); " decoded", "1"
542.         Rem -------
543.         Rem  Numeral 2
544.         Rem -------
545.         If MorseChar$(i) = "ùù---" Then Print MorseChar$(i); " decoded", "2"
546.         Rem -------
547.         Rem  Numeral 3
548.         Rem -------
549.         If MorseChar$(i) = "ùùù--" Then Print MorseChar$(i); " decoded", "3"
550.         Rem -------
551.         Rem  Numeral 4
552.         Rem -------
553.         If MorseChar$(i) = "ùùùù-" Then Print MorseChar$(i); " decoded", "4"
554.         Rem -------
555.         Rem  Numeral 5
556.         Rem -------
557.         If MorseChar$(i) = "ùùùùù" Then Print MorseChar$(i); " decoded", "5"
558.         Rem -------
559.         Rem  Numeral 6
560.         Rem -------
561.         If MorseChar$(i) = "-ùùùù" Then Print MorseChar$(i); " decoded", "6"
562.         Rem -------
563.         Rem  Numeral 7
564.         Rem -------
565.         If MorseChar$(i) = "--ùùù" Then Print MorseChar$(i); " decoded", "7"
566.         Rem -------
567.         Rem  Numeral 8
568.         Rem -------
569.         If MorseChar$(i) = "---ùù" Then Print MorseChar$(i); " decoded", "8"
570.         Rem -------
571.         Rem  Numeral 9
572.         Rem -------
573.         If MorseChar$(i) = "----ù" Then Print MorseChar$(i); " decoded", "9"
574.     Next i
575. End Sub
576.  
577. Sub NoCode
578.     Sound 400, 2
579.     _Delay .5
580. End Sub
581.  
582. Sub dit
583.     Sound 650, 2
584.     _Delay .2
585. End Sub
586.  
587. Sub dah
588.     Sound 650, 6
589.     _Delay .2
590. End Sub
591.  

[madscijr]

An ASCII string is split up into individual characters, including spaces, and converted to Morse code. Including audio.

This is really cool!

Here's an idea for v2, related to @SMcNeill 's suggestion for @SpriggsySpriggs 's API project
https://www.qb64.org/forum/index.php?topic=4468.0, of getting input from a microphone:
have it be able to decode actual Morse audio by listening with the microphone!
Theoretically we could get 2 PCs sitting side by side beeping away and "talking" to each other in Morse. :-D

[Bert22306]

Yes, that's exactly what I wanted to do next, but first I need a mic. I'll look to see what Steve and Spriggsy concocted. And to work right, it would have to accommodate a certain amount of slop in length, spacing, and frequencies of the tone.

[madscijr]

Yes, that's exactly what I wanted to do next, but first I need a mic. I'll look to see what Steve and Spriggsy concocted. And to work right, it would have to accommodate a certain amount of slop in length, spacing, and frequencies of the tone.

Sounds good. Maybe make the program generate Morse code _with_ a certain amount of "slop" to simulate a human sending a message.

Maybe have it display a text window showing a scrolling feed of messages sent & received (in 2 different colors).

Will it know any special codes for protocol, like "over" telling the other system it's done sending and will now listen?

This could be a great learning tool also, you can drill on one letter a day, or review & it will test you on what you've learned.

Back to the demo of 2 PCs beeping back and forth, I'm reminded of stuff like this where 2 chatbots hold a conversation:
https://youtu.be/PTUY16CkS-k

It would be a funny demo for the 2 PCs communicating in Morse code to be chatbots or Eliza programs trying to hold a conversation. You would hear beeping back & forth but could follow the conversation in the text window.

Just some ideas... Just a program that can listen and interpret Morse code from audio would be pretty cool!

[DANILIN]

word compatible macros is more logical for mass replacement

and macro includes constructions:

dim data read for to next replace

[madscijr]

Yes, that's exactly what I wanted to do next, but first I need a mic. I'll look to see what Steve and Spriggsy concocted. And to work right, it would have to accommodate a certain amount of slop in length, spacing, and frequencies of the tone.

I just thought I would follow up and see if you ever got around to enabling the program to "hear" Morse code through a mic?