ZX Computings - OpenLibra

16K program
Dot-dot-dot, dash
dash-dash
Master Morse code with the help
of this 16K ZX81 program from
John Knight of Cheshire.
One of the conditions for getting
an amateur radio licence
(Class A UK (is a degree of proficiency
in Morse code. This program
may help you attain the
required level of skill.
When you run the program a
menu will appear giving you the
option of entering an English
message, and having it
reprinted in Morse, of having
the program generate a Morse
symbol at random and give you
three tries at entering its
* *
10
30
40
4 1
42
4 4
45
46
47
48
50
55
60
70
7*5
80
y@
100
110
1000
1002
1003
1005
1010
1015
1017
1020
THEN"
1025
1030
1040
1045
1C50
1055
0
1060
1065
1070
1OS0
109©
1100
1120
1130
H000
2002
2005
2007
2010
TTER
English equivalent.
Notice the use of the initialisation
subroutine starting
at line 9000, which goes into
FAST, then strips A$ down to
elements of C$. To simplify
later processing, C$(38) is the
equivalent of CHR$(38), ie. the
letter "A". The program tells
you (line 21 90) which letter a
particular symbol represents if
you don't guess it within the
three guesses allowed.
REM MORSE TRAINER
REM (C) -J KNIGHT, 1982
GOSUB 9000
FOR G = 1 TO 10
SCROLL
NEXT G
PRINT "MRKE H SELECTION:
SCROLL
SCROLL
SCROLL
PRINT 1 - ENGLISH TO MORSE
SCROLL
SCROLL
PRINT "2 - MORSE TO ENGLISH
SCROLL
SCROLL
PRINT "3 - TO END"
INPUT T
GOSUB T *1000
GOTO 40
REM ENGLISH TO MORSE
SCROLL
SCROLL
SCROLL
PRINT "ENGLISH TO HORSE"
SCROLL
SCROLL
PRINT "ENTER YOUR MESSRGf,.
SCROLL
PRINT TRB 3;"PRESS NEULJWE"
INPUT U»$
SCROLL
FOR G = 1 TO LEN U$
IF U$(l> " " THEM GOTO 108
SCROLL
SCROLL
GOTO 1090
PRINT C $ (CODE (1) >
LET U$=U$(2 TO )
NEXT G
IF INKEY$="" THEN GOTO 1120
RETURN
REM MORSE TO ENGLISH
SCROLL
SCROLL
SCROLL
PRINT " I UILL GIUE YOU R LE
IN"
2015 SCROLL
2020 PRINT "MORSE, RND YOU HRUE
THREE"
2025 SCROLL
2030 PRINT "GUESSES TO WORK OUT
UHRT IT IS."
2035 SCROLL
204O SCROLL
£050 PRINT "PRESS NEULINE IJHfM v
OU HRE"
2055 SCROLL
2060 PRINT TRB 3; "READY TO STRRT
207§ L E T I S = 0 Y * = ' "
2080 FOR Z=1 TO 10
E N G O T O
111® 5CPOLC
O
3 8 + I N T (RND*2B.>
2110
5 (U )
PRINT "UHRT LETTER DOES
312®
2130
SCROLL
PRINT TRB 12;"REPRESENTS"
2140 FOR H = 1 TO 3 "
2150 INPUT K$
i£itj0 IF CODE (K$> =J THE.N GOTO 2>J?
2170 SCROLL
2175 SCROLL
2180 IF H < 3 THEN PRINT ".NO - TOY
RGRIN" *
2190 IF H =3 THEN PRINT C$(J) : " R
^PRESENTS " ;CHR $ (J)
2200 NEXT H
2210 GOTO 2250
222© SCROLL
2230 PRINT "YES, YOU RRE RIGHT"
2240 LET 5=5+1
2250 SCROLL
5CROL1
2260 PRINT""YOUR SCORE IS " ; S ; "
nj IT OF " ; Z
2265 SCROLL
2270 SCROLL
2280 PRINT
2290 SCROLL
2300 SCROLL
2 310 NEXT Z
2320 RETURN
3000 STOP
9000 rA5T
LET = " . . .it--.-.*---*--*-
. , - , * . . . . * . . * - * - - '
— -s- - . * * . — . * — . - * - - - * * - - * - * •* - -
* , , > - $ • — * — > • i — ~ * — * — » '
9010 DIM C$(c4,.5)
-020 FOR B =38 TO 84
9030 LET B$=""
9040 FOR C = 1 TO 5
9045 IF H i ( 1 ) = " * " THEN GOTO 9080
9050 LET B$=B$+A4 (1)
9060 LET R$=R$(2 TO )
9070 NEXT C
9080 LET C$(B)=B$
9085 LET R$=R$(2 TO >
9 NEXT B
910© SLOW
950O RETURN
38 ZX COMPUTING AUG/SEPT 1982