:Variable-speed Morse code :program modified by Andrew Baumanis VK6WB :5 : ,"": ,"": ,"": SEG: j,::S:FO ,"CQ CQ de VK6WB " : F=1000:LOCATE 5,11:MSG$="Morse Code Generator":GOSUB 500:F=900:LOCATE 10,6:MSG$="Written by Dick Conklin, N4AT":GOSUB 500:F=800:LOCATE 15,9:MSG$="Variable Speed and Pitch":GOSUB 500C: ,:"Select Code Speed in words per minute"]  ,: "5 Slow"p(  ,: "13"2 ,: "25"< ,: "40 Fast"A ,: "99 EXIT PROGRAM"F ,(: "(Press ENTER)"P ,: "",W: W W Q Wc RSWaW "Do you want to convert a file into code";Q$: Q$"y"  : Z: ,: "F1=Restart F3=Lower Tone, F4=Higher ";: ,: "Text typed below sent at ";W;" WPM:": ,,dI$: I$"" dn x d&:<:Message SenderQ I (MSG$)kI$(MSG$,I,): s I :to Sender::Code GeneratorC$((I$)  ) C$"a" B$".-":  C$"b" B$"-...": 9 C$"c" B$"-.-.": W C$"d" B$"-..": s C$"e" B$".": $ C$"f" B$"..-.": . C$"g" B$"--.": 8 C$"h" B$"....": B C$"i" B$"..":  L C$"j" B$".---": )V C$"k" B$"-.-": H` C$"l" B$".-..": ej C$"m" B$"--": t C$"n" B$"-.": ~ C$"o" B$"---":  C$"p" B$".--.":  C$"q" B$"--.-":  C$"r" B$".-.":  C$"s" B$"...": 6 C$"t" B$"-": T C$"u" B$"..-": s C$"v" B$"...-":  C$"w" B$".--":  C$"x" B$"-..-":  C$"y" B$"-.--":  C$"z" B$"--..":  C$"1" B$".----": . C$"2" B$"..---": N  C$"3" B$"...--": n C$"4" B$"....-":  C$"5" B$".....": ( C$"6" B$"-....": 2 C$"7" B$"--...": < C$"8" B$"---..": F C$"9" B$"----.": .P C$"0" B$"-----": OZ C$"." B$".-.-.-": pd C$"?" B$"..--..": n C$"'" B$"--..--": x C$"-" B$"-...-":  C$"/" B$"-..-.":  I$" " B$" ": rFK(I$,,)() : F1(I$,,)(;) : F3(I$,,)(=) : F4(I$,,)(>) FK F3 FF : FK F4 FF : FK F1 ! I$() B$"........": ,(): " ";: ,():C$"": N I$":" B$"-.-.-": { I$";" B$".-.-.":  I$"(" C$")" B$"-.--.-":  I$"+" I$"&" B$". ...": C$"" :B$"":I$"" I$; :Display while sending- C (B$) (B$,C,)"." F,S : (B$,C,)"-" F,S : ,S ,S :Space after Dot/Dash C :Get the next Dot or Dash ,S :Space after letter  :Get the next letter/ :Convert text file into code`  : "Current files: ";: "*. ": "Enter file name: ",CODEFILE$ CODEFILE$". " AS # : ,: "Reading from file ";CODEFILE$: ,: "Text typed below sent at ";W;" WPM": , () :5 #,MSG$: ::  ; rom file ";CODEFILE$: ,: "Text typed below s