MENU:
CLS
COLOR 4
PRINT "********************"
PRINT "*MORSE CODE DELUXE3*"
PRINT "*1 MORSE CODE      *"
PRINT "*2 LEARN MORSE CODE*"
PRINT "*3 LEARN ABOUT M C *"
PRINT "*4 EXIT            *"
PRINT "*5 MAKE YOUR OWN MC*"
PRINT "*                  *"
PRINT "*   HAVE FUN!      *"
PRINT "********************"
COLOR 7
INPUT I$
IF I$ = "3" THEN GOTO LEARN
IF I$ = "4" THEN END
IF I$ = "1" THEN GOTO START
IF I$ = "2" THEN GOTO ABC
IF I$ = "5" THEN GOTO MAKE
LEARN: PRINT " MORSE CODE WAS INVENTED BY SAMUEL MORSE."
PRINT "HE WAS AN INVENTOR AND A PAINTER. HE WAS BORN IN "
PRINT "CHARLSETOWN IN MASSACHUSETTS. MORSE CODE WAS USED FOR SENDING"
PRINT "TELEGRAPHS. MORSE CODE IS USED FOR OTHER THINGS AS WELL,"
PRINT "AND IS GOOD FOR SENDING SECRET MESSAGES."
PRINT "IF YOU WANT TO GO BACK TO THE MENU THEN TYPE IN MENU OR TYPE IN END TO EXIT"
INPUT J$
IF J$ = "MENU" THEN GOTO MENU
IF J$ = "END" THEN END
START:
CLS
PRINT "TYPE IN A LETTER (OR NUMBER 1234567890) THEN LOOK AT IT IN MORSE CODE! TYPE IN  BACK TO RETURN"
INPUT NV$
W$ = UCASE$(NV$)
IF W$ = "A" THEN PRINT "._"
IF W$ = "B" THEN PRINT "_..."
IF W$ = "C" THEN PRINT "_._."
IF W$ = "D" THEN PRINT "_.."
IF W$ = "E" THEN PRINT "."
IF W$ = "F" THEN PRINT ".._."
IF W$ = "G" THEN PRINT "__."
IF W$ = "H" THEN PRINT "...."
IF W$ = "I" THEN PRINT ".."
IF W$ = "J" THEN PRINT ".___"
IF W$ = "K" THEN PRINT "_._"
IF W$ = "L" THEN PRINT "._.."
IF W$ = "M" THEN PRINT "__"
IF W$ = "N" THEN PRINT "_."
IF W$ = "O" THEN PRINT "___"
IF W$ = "P" THEN PRINT ".__._"
IF W$ = "Q" THEN PRINT "__._"
IF W$ = "R" THEN PRINT "._."
IF W$ = "S" THEN PRINT "..."
IF W$ = "T" THEN PRINT "_"
IF W$ = "U" THEN PRINT ".._"
IF W$ = "V" THEN PRINT "...._"
IF W$ = "W" THEN PRINT ".__"
IF W$ = "X" THEN PRINT "_.._"
IF W$ = "Y" THEN PRINT "_.__"
IF W$ = "Z" THEN PRINT "__.."
IF W$ = "1" THEN PRINT ".____"
IF W$ = "2" THEN PRINT "..___"
IF W$ = "3" THEN PRINT "...__"
IF W$ = "4" THEN PRINT "...._"
IF W$ = "5" THEN PRINT "....."
IF W$ = "6" THEN PRINT "_...."
IF W$ = "7" THEN PRINT "__..."
IF W$ = "8" THEN PRINT "___.."
IF W$ = "9" THEN PRINT "____."
IF W$ = "0" THEN PRINT "_____"
IF W$ = "BACK" THEN GOTO MENU
SLEEP 10
GOTO START
ABC: PRINT "A._B_...C_._.D_..E.F.._G__.H....I..J.___K_._L._..M__N_.O___P.__.Q__._R._.S..."
PRINT
PRINT "T_U.._V...._W.__X_.._Y_.__Z__.. TYPE IN BACK TO GO BACK"
PRINT
PRINT "TYPE IN END TO END"
INPUT R$
IF R$ = "BACK" THEN GOTO MENU
IF R$ = "END" THEN END
MAKE: PRINT "CREATE YOUR OWN MORSE CODE! MORSE CODE USES DOTS AND"
PRINT "DASHES. DOTS LOOK LIKE THIS: . AND DASHES LOOK LIKE THIS: _"
PRINT "TYPE IN DOTS AND DASHES AND MAKE YOUR OWN CODE!"
INPUT "WHAT IS A IN YOUR CODE"; CODE$
INPUT "WHAT IS B IN YOUR CODE"; C$
INPUT "WHAT IS C IN YOUR CODE"; NC$
INPUT "WHAT IS D IN YOUR CODE"; NNC$
INPUT "WHAT IS E IN YOUR CODE"; Y$
INPUT "WHAT IS F IN YOUR CODE"; T$
INPUT "WHAT IS G IN YOUR CODE"; P$
INPUT "WHAT IS H IN YOUR CODE"; TT$
INPUT "WHAT IS I IN YOUR CODE"; PO$
INPUT "WHAT IS J IN YOUR CODE"; YI$
INPUT "WHAT IS K IN YOUR CODE"; UJ$
INPUT "WHAT IS L IN YOUR CODE"; TGB$
INPUT "WHAT IS M IN YOUR CODE"; INT$
INPUT "WHAT IS N IN YOUR CODE"; UKH$
INPUT "WHAT IS O IN YOUR CODE"; ERT$
INPUT "WHAT IS P IN YOUR CODE"; NB$
INPUT "WHAT IS Q IN YOUR CODE"; FV$
INPUT "WHAT IS R IN YOUR CODE"; JM$
INPUT "WHAT IS S IN YOUR CODE"; EQW$
INPUT "WHAT IS T IN YOUR CODE"; TYZ$
INPUT "WHAT IS U IN YOUR CODE"; AX$
INPUT "WHAT IS V IN YOUR CODE"; XZ$
INPUT "WHAT IS W IN YOUR CODE"; RH$
INPUT "WHAT IS X IN YOUR CODE"; GBR$
INPUT "WHAT IS Y IN YOUR CODE"; MZ$
INPUT "WHAT IS Z IN YOUR CODE"; TZA$
PRINT "HERE IS WHAT YOUR CODE LOOKS LIKE: "; CODE$; " "; C$; " "; NC$; " "; NNC$; " "; Y$; " "; T$; " "; P$; " "; TT$; " "; PO$; " "; YI$; " "; UG$; " "; TGB$; " "; INT$; " "; UKH$; " "; ERT$; " "; NB$; " "; FV$; " "; JM$; " "; EQW$; " "; TYZ$; " "; AX$; " "; XZ$; " "; RH$; " "; GBR$; " "; MZ$; " "; TZA$; " "; " WOW! TYPE IN BACK TO RETURN"
INPUT "1 BACK 2 END"; BACK$
IF BACK$ = "1" THEN GOTO MENU
IF BACK$ = "2" THEN END