Morse Tutor
This has to be the definitive Morse Code tutor. The program offers you a comprehensive menu with a full listing of letters and numbers (in both text and Morse), a facility to convert your own messages into the code and a challenging tester section.
10 REM MORSE TUTOR
20 REM @ R.ERSKINE
30 MODE 1:BORDER 0:INK 0,0:INK 1,24:INK 2,20:INK 3,6:WINDOW #1,1,40,1,25:PAPER # 1,0:CLS #1
40 WINDOW #0,5,36,1,25:PAPER #0,0:PEN #0 ,1:CLS #0
50 DIM C(36,5): DIM C$(36)
.60 GOSUB 1100
70 CLS
BO LOCATE 12,1:PRINT CHR$(24);" MENU ";C HR$(24);
90 PEN 3:LOCATE 6,5:PRINT "1— HEAR A MES SAGE":PEN 1
100 PEN 2:LOCATE 6,7:PRINT"2— MESSAGE WI TH TEXT ":PEN 1
110 LOCATE 6,9:PRINT"3— CREATE YOUR OWN MESSAGE"
120 PEN 3:LOCATE 6,11:PRINT"4— TEST SECT ION":PEN 1
130 LOCATE 6,13:PRINT"5— THE MORSE CODE" :PEN 1
140 PEN 2:LOCATE 2,18:PRINT CHR$(24);" S ELECT OPTION (1 TO 5) ";CHR$(24):PEN 1 150 IF INKEY$<>"" THEN 150
160 X$=INKEY$:IF X$=" THEN 160 ELSE LOC ATE 27,18:PRINT CHR$(18);:LOCATE 27,16:P RINT X$;:IF X$<"1" OR X$>"5" THEN 150