Use your TS2068 to send Morse code as BEEPs.
Appears on
Library tape of the Indiana Sinclair Timex User’s Group.
Source Code
10 CLS : CLEAR 20 BORDER 2: PAPER PI: CLS 30 PRINT " ENTER YOUR TONE FREQUENCY." 40 PRINT " ****** 0 TO 69 ******" 50 INPUT b 60 LET short=460: LET long=450: PRINT AT 9,0;"Press any key to hear it's code" 70 INPUT INKEY$: PAUSE 10 80 IF INKEY$="a" THEN GO SUB short: BEEP .5,b 90 IF INKEY$="b" THEN GO SUB long: GO SUB short: GO SUB short: BEEP .05,b 100 IF INKEY$="c" THEN GO SUB long: GO SUB short: GO SUB long: BEEP .05,b 110 IF INKEY$="d" THEN GO SUB long: GO SUB short: BEEP .05,b 120 IF INKEY$="e" THEN BEEP .05,b 130 IF INKEY$="f" THEN GO SUB short: GO SUB short: GO SUB long: BEEP .05,b 140 IF INKEY$="g" THEN GO SUB long: GO SUB long: BEEP .05,b 150 IF INKEY$="h" THEN GO SUB short: GO SUB short: GO SUB short: BEEP .05,b 160 IF INKEY$="i" THEN GO SUB short: BEEP .05,b 170 IF INKEY$="j" THEN GO SUB short: GO SUB long: GO SUB long: BEEP .5,b 180 IF INKEY$="k" THEN GO SUB long: GO SUB short: BEEP .5,b 190 IF INKEY$="l" THEN GO SUB short: GO SUB long: GO SUB short: BEEP .05,b 200 IF INKEY$="m" THEN GO SUB long: BEEP .5,b 210 IF INKEY$="n" THEN GO SUB long: BEEP .05,b 220 IF INKEY$="o" THEN GO SUB long: GO SUB long: BEEP .5,b 230 IF INKEY$="p" THEN GO SUB short: GO SUB long: GO SUB long: BEEP .05,b 240 IF INKEY$="q" THEN GO SUB long: GO SUB long: GO SUB short: BEEP .5,b 250 IF INKEY$="r" THEN GO SUB short: GO SUB long: BEEP .05,b 260 IF INKEY$="s" THEN GO SUB short: GO SUB short: BEEP .05,b 270 IF INKEY$="t" THEN BEEP .5,b 280 IF INKEY$="u" THEN GO SUB short: GO SUB short: BEEP .5,b 290 IF INKEY$="v" THEN GO SUB short: GO SUB short: GO SUB short: BEEP .5,b 300 IF INKEY$="w" THEN GO SUB short: GO SUB long: BEEP .5,b 310 IF INKEY$="x" THEN GO SUB long: GO SUB short: GO SUB short: BEEP .5,b 320 IF INKEY$="y" THEN GO SUB long: GO SUB short: GO SUB long: BEEP .5,b 330 IF INKEY$="z" THEN GO SUB long: GO SUB long: GO SUB short: BEEP .05,b 340 IF INKEY$="0" THEN GO SUB long: GO SUB long: GO SUB long: GO SUB long: BEEP .5,b 350 IF INKEY$="1" THEN GO SUB short: GO SUB long: GO SUB long: GO SUB long: BEEP .5,b 360 IF INKEY$="2" THEN GO SUB short: BEEP .05,b: GO SUB long: GO SUB long: BEEP .5,b 370 IF INKEY$="3" THEN GO SUB short: GO SUB short: GO SUB short: GO SUB long: BEEP .5,b 380 IF INKEY$="4" THEN GO SUB short: GO SUB short: GO SUB short: GO SUB short: BEEP .5,b 390 IF INKEY$="5" THEN GO SUB short: GO SUB short: GO SUB short: GO SUB short: BEEP .05,b 400 IF INKEY$="6" THEN GO SUB long: GO SUB short: GO SUB short: GO SUB short: BEEP .05,b 410 IF INKEY$="7" THEN GO SUB long: GO SUB long: GO SUB short: GO SUB short: BEEP .05,b 420 IF INKEY$="8" THEN GO SUB long: GO SUB long: GO SUB long: GO SUB short: BEEP .05,b 430 IF INKEY$="9" THEN GO SUB long: GO SUB long: GO SUB long: GO SUB long: BEEP .05,b 440 GO TO 70 450 BEEP .5,b: PAUSE 2: RETURN : REM long 460 BEEP .05,b: PAUSE 2: RETURN : REM short 470 SAVE "MORSE rev2" LINE 1