Short program that converts text to Morse code

....

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    HIDE MOUSE
Print "Press Downkey to begin"
DO
IF DOWNKEY()=1 THEN GOTO 2
LOOP
function code
2:
cls
PRINT
input "print>",a$
d=LEN(a$)
FOR i= 1 TO d
b$=LEFT$(a$, i)
c$=RIGHT$(b$, 1)
IF c$="a" THEN PRINT "char";i;" = .- "
IF c$="b" THEN PRINT "char";i;" = -... "
IF c$="c" THEN PRINT "char";i;" = -.-. "
IF c$="d" THEN PRINT "char";i;" = -.. "
IF c$="e" THEN PRINT "char";i;" = . "
IF c$="f" THEN PRINT "char";i;" = ..-. "
IF c$="g" THEN PRINT "char";i;" = --. "
IF c$="h" THEN PRINT "char";i;" = .... "
IF c$="i" THEN PRINT "char";i;" = .. "
IF c$="j" THEN PRINT "char";i;" = .--- "
IF c$="k" THEN PRINT "char";i;" = -.- "
IF c$="l" THEN PRINT "char";i;" = .-.. "
IF c$="m" THEN PRINT "char";i;" = -- "
IF c$="n" THEN PRINT "char";i;" = -. "
IF c$="o" THEN PRINT "char";i;" = --- "
IF c$="p" THEN PRINT "char";i;" = .--. "
IF c$="q" THEN PRINT "char";i;" = --.- "
IF c$="r" THEN PRINT "char";i;" = .-. "
IF c$="s" THEN PRINT "char";i;" = ... "
IF c$="t" THEN PRINT "char";i;" = - "
IF c$="u" THEN PRINT "char";i;" = ..- "
IF c$="v" THEN PRINT "char";i;" = ...- "
IF c$="w" THEN PRINT "char";i;" = .-- "
IF c$="x" THEN PRINT "char";i;" = -..- "
IF c$="y" THEN PRINT "char";i;" = -.-- "
IF c$="z" THEN PRINT "char";i;" = --.. "
IF c$="1" THEN PRINT "char";i;" = .---- "
IF c$="2" THEN PRINT "char";i;" = ..--- "
IF c$="3" THEN PRINT "char";i;" = ...-- "
IF c$="4" THEN PRINT "char";i;" = ....- "
IF c$="5" THEN PRINT "char";i;" = ..... "
IF c$="6" THEN PRINT "char";i;" = -.... "
IF c$="7" THEN PRINT "char";i;" = --... "
IF c$="8" THEN PRINT "char";i;" = ---.. "
IF c$="9" THEN PRINT "char";i;" = ----. "
IF c$="0" THEN PRINT "char";i;" = ----- "
NEXT i
do
IF DOWNKEY()=1 THEN
print "end program"
SET TEXT TO BOLD
loop
endfunction code