Morse rev2

   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