September Morn Update

Task/Morse-code/BASIC/morse-code-2.basic

@@ -0,0 +1,26 @@
+      *TEMPO 8
+      DIM morse$(63)
+      FOR char% = 0 TO 63 : READ morse$(char%) : NEXT char%
+
+      PROCmorse("The five boxing wizards jump quickly.")
+      END
+
+      DEF PROCmorse(text$)
+      LOCAL element%, index%, char&, morse$
+      FOR index% = 1 TO LEN(text$)
+        char& = ASC(MID$(text$,index%)) AND &7F
+        IF char& < 32 char& = 32
+        IF char& > 95 char& -= 32
+        morse$ = morse$(char&-32)
+        FOR element% = 1 TO LEN(morse$)
+          SOUND 1, -15, 148, VAL(MID$(morse$,element%,1))
+          SOUND 1, -15, 0, 1
+        NEXT element%
+        SOUND 1, -15, 0, 2
+      NEXT index%
+      ENDPROC
+
+      DATA 00,313133,131131,6,1113113,6,13111,133331,31331,313313,6,13131,331133,311113,131313,31131
+      DATA 33333,13333,11333,11133,11113,11111,31111,33111,33311,33331,333111,313131,6,31113,6,113311
+      DATA 133131,13,3111,3131,311,1,1131,331,1111,11,1333,313,1311,33,31,333
+      DATA 1331,3313,131,111,3,113,1113,133,3113,3133,3311,6,6,6,6,113313