CLEAR
WIDTH 40
COLOR 0, 3
CLS
PRINT "            THE KEYER v.5   "
PRINT :
PRINT "  morse code by Matt Gilbert, WB5GKN"
REM PRINT "  www.mattgilbert.iscool.net"
PRINT : PRINT : PRINT
PRINT "          press the % key to exit"
PRINT : PRINT : PRINT
PRINT "SELECT SPEED  1-SLOW  thru  0-FAST"
DO
spd$ = INKEY$

IF spd$ = "1" THEN PLAY "t30"
IF spd$ = "2" THEN PLAY "t40"
IF spd$ = "3" THEN PLAY "t60"
IF spd$ = "4" THEN PLAY "t80"
IF spd$ = "5" THEN PLAY "t100"
IF spd$ = "6" THEN PLAY "t125"
IF spd$ = "7" THEN PLAY "t150"
IF spd$ = "8" THEN PLAY "t170"
IF spd$ = "9" THEN PLAY "t200"
IF spd$ = "0" THEN PLAY "t240"
LOOP UNTIL spd$ <> ""
PRINT "begin typing now"
COLOR 3, 0


REM SET DITS,DAHS, SPACES NEXT 3 LINES

di$ = " l30cl30n0"
dah$ = " l10cl30n0"
sp$ = " l10n0"

REM THIS DEFINES CHARACTER VALUES
a$ = di$ + dah$
b$ = dah$ + di$ + di$ + di$
c$ = dah$ + di$ + dah$ + di$
d$ = dah$ + di$ + di$
e$ = di$
f$ = di$ + di$ + dah$ + di$
g$ = dah$ + dah$ + di$
h$ = di$ + di$ + di$ + di$
i$ = di$ + di$
j$ = di$ + dah$ + dah$ + dah$
k$ = dah$ + di$ + dah$
l$ = di$ + dah$ + di$ + di$
m$ = dah$ + dah$
n$ = dah$ + di$
o$ = dah$ + dah$ + dah$
p$ = di$ + dah$ + dah$ + di$
q$ = dah$ + dah$ + di$ + dah$
r$ = di$ + dah$ + di$
s$ = di$ + di$ + di$
t$ = dah$
u$ = di$ + di$ + dah$
v$ = di$ + di$ + di$ + dah$
w$ = di$ + dah$ + dah$
x$ = dah$ + di$ + di$ + dah$
y$ = dah$ + di$ + dah$ + dah$
z$ = dah$ + dah$ + di$ + di$
on$ = di$ + dah$ + dah$ + dah$ + dah$
tw$ = di$ + di$ + dah$ + dah$ + dah$
th$ = di$ + di$ + di$ + dah$ + dah$
fo$ = di$ + di$ + di$ + di$ + dah$
fi$ = di$ + di$ + di$ + di$ + di$
si$ = dah$ + di$ + di$ + di$ + di$
se$ = dah$ + dah$ + di$ + di$ + di$
ei$ = dah$ + dah$ + dah$ + di$ + di$
ni$ = dah$ + dah$ + dah$ + dah$ + di$
ze$ = dah$ + dah$ + dah$ + dah$ + dah$


REM THIS RESPONDS TO KEYBOARD
DO
aa$ = INKEY$
IF aa$ = "a" THEN PLAY a$
IF aa$ = "a" THEN PRINT "a";

IF aa$ = "b" THEN PLAY b$
IF aa$ = "b" THEN PRINT "b";

IF aa$ = "c" THEN PLAY c$
IF aa$ = "c" THEN PRINT "c";

IF aa$ = "d" THEN PLAY d$
IF aa$ = "d" THEN PRINT "d";

IF aa$ = "e" THEN PLAY e$
IF aa$ = "e" THEN PRINT "e";

IF aa$ = "f" THEN PRINT "f";
IF aa$ = "f" THEN PLAY f$

IF aa$ = "g" THEN PLAY g$
IF aa$ = "g" THEN PRINT "g";

IF aa$ = "h" THEN PLAY h$
IF aa$ = "h" THEN PRINT "h";

IF aa$ = "i" THEN PLAY i$
IF aa$ = "i" THEN PRINT "i";

IF aa$ = "j" THEN PLAY j$
IF aa$ = "j" THEN PRINT "j";

IF aa$ = "k" THEN PLAY k$
IF aa$ = "k" THEN PRINT "k";

IF aa$ = "l" THEN PLAY l$
IF aa$ = "l" THEN PRINT "l";

IF aa$ = "m" THEN PLAY m$
IF aa$ = "m" THEN PRINT "m";

IF aa$ = "n" THEN PLAY n$
IF aa$ = "n" THEN PRINT "n";

IF aa$ = "o" THEN PLAY o$
IF aa$ = "o" THEN PRINT "o";

IF aa$ = "p" THEN PLAY p$
IF aa$ = "p" THEN PRINT "p";

IF aa$ = "q" THEN PLAY q$
IF aa$ = "q" THEN PRINT "q";

IF aa$ = "r" THEN PLAY r$
IF aa$ = "r" THEN PRINT "r";

IF aa$ = "s" THEN PLAY s$
IF aa$ = "s" THEN PRINT "s";

IF aa$ = "t" THEN PLAY t$
IF aa$ = "t" THEN PRINT "t";

IF aa$ = "u" THEN PLAY u$
IF aa$ = "u" THEN PRINT "u";

IF aa$ = "v" THEN PLAY v$
IF aa$ = "v" THEN PRINT "v";

IF aa$ = "w" THEN PLAY w$
IF aa$ = "w" THEN PRINT "w";

IF aa$ = "x" THEN PLAY x$
IF aa$ = "x" THEN PRINT "x";

IF aa$ = "y" THEN PLAY y$
IF aa$ = "y" THEN PRINT "y";

IF aa$ = "z" THEN PLAY z$
IF aa$ = "z" THEN PRINT "z";

REM now the numbers

IF aa$ = "1" THEN PLAY on$
IF aa$ = "1" THEN PRINT "1";

IF aa$ = "2" THEN PLAY tw$
IF aa$ = "2" THEN PRINT "2";

IF aa$ = "3" THEN PLAY th$
IF aa$ = "3" THEN PRINT "3";

IF aa$ = "4" THEN PLAY fo$
IF aa$ = "4" THEN PRINT "4";

IF aa$ = "5" THEN PLAY fi$
IF aa$ = "5" THEN PRINT "5";

IF aa$ = "6" THEN PLAY si$
IF aa$ = "6" THEN PRINT "6";

IF aa$ = "7" THEN PLAY se$
IF aa$ = "7" THEN PRINT "7";

IF aa$ = "8" THEN PLAY ei$
IF aa$ = "8" THEN PRINT "8";

IF aa$ = "9" THEN PLAY ni$
IF aa$ = "9" THEN PRINT "9";

IF aa$ = "0" THEN PLAY ze$
IF aa$ = "0" THEN PRINT "0";

REM now the space bar
IF aa$ <> "" THEN PLAY sp$
IF aa$ = " " THEN PRINT " ";


LOOP UNTIL aa$ = "%"

COLOR 3, 8
CLS
PRINT "It is hoped that this program will"
PRINT "help you not only learn the morse code"
PRINT "but also learn what correctly sent and"
PRINT "spaced code is supposed to sound like"
PRINT "of course you can also use it to key your"
PRINT "transmitter"
PRINT
PRINT
PRINT "let me know if you like the program "
PRINT "and what features you would like to "
PRINT "see in the future"
PRINT
PRINT
PRINT "           ";
COLOR 1, 15
PRINT ""
SLEEP

COLOR 3, 8
CLS
PRINT "This program is freeware but feel free"
PRINT "to acknowledge the effort that went into"
PRINT "all my work by sending donations to"
PRINT
PRINT
PRINT "Matt Gilbert"
PRINT "5822 Cartagena"
PRINT "Houston, TX 77035"
PRINT
PRINT
PRINT "and visit me at"
PRINT "www.mattgilbert.iscool.net"
PRINT
PRINT
PRINT "See ya . . . ."
SLEEP

PRINT : PRINT : PRINT
PRINT "73's from W B 5 G K N"

cq$ = c$ + sp$ + q$ + sp$
gkn$ = w$ + sp$ + b$ + sp$ + fi$ + sp$ + g$ + sp$ + k$ + sp$ + n$ + sp$
de$ = d$ + sp$ + e$ + sp$


PLAY "t155"
PLAY cq$
PLAY de$ + sp$ + gkn$

REM SHELL "type mcode6.bas"
REM SHELL "type mcode6.exe"
COLOR 18, 1
PRINT "c 1999 Matt Gilbert"
SLEEP 4
END