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

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

@@ -0,0 +1,28 @@
+100 PROGRAM "Morse.bas"
+110 STRING TONE$(48 TO 90)*5,ST$*254
+120 SET CHARACTER 46,0,0,0,0,24,24,0,0,0:SET CHARACTER 47,0,0,0,0,126,126,0,0,0
+130 FOR I=48 TO 90
+140   READ TONE$(I)
+150 NEXT
+160 DO
+170   PRINT :PRINT "String to convert to Morse code: ":INPUT PROMPT ">":ST$
+180   LET ST$=LTRIM$(RTRIM$(UCASE$(ST$)))
+190   FOR I=1 TO LEN(ST$)
+200     LET C=ORD(ST$(I:I))
+210     IF C>47 AND C<91 THEN
+220       PRINT TONE$(C);" ";
+230       FOR J=1 TO LEN(TONE$(C))
+240         SOUND PITCH 48,DURATION(ORD(TONE$(C)(J))-45)^3+4
+250         SOUND PITCH 126,DURATION 8
+260       NEXT
+270     ELSE
+280       PRINT
+290       SOUND PITCH 126,DURATION 16
+300     END IF
+310     SOUND PITCH 126,DURATION 16
+320   NEXT
+330   PRINT
+340 LOOP UNTIL ST$=""
+350 CLEAR FONT
+360 DATA .////,..///,...//,..../,.....,/....,//...,///..,////.,/////,"","","","","","",""
+370 DATA ./,/...,/./.,/..,.,../.,//.,....,..,.///,/./,./..,//,/.,///,.//.,//./,./.,...,/,../,.../,.//,/../,/.//,//..