ZX Computings - OpenLibra

ZX80 Programs
ZX80 fights back
Music
Kev Molloy decides the days of silent
movies are over, and produces a
routine to turn your ZX80 into a music
machine.
Kev's program plays a passable
version of Greensleeves in this
program, which is stored as a
string. The length of each note
is stored in another string. The
higher the number (from one to
eight) the longer the length of
the note. The key for notes is as
follows:
D - V; D sharp - R; E - P; F -
N; F sharp — L; G — J; G sharp
- M; A - G; 8 flat - E; B - C;
C — A; C sharp — 8; D — sharp;
D sharp - 6; E - 5; F - 4; F
sharp - 3; G — 1; G sharp - 0.
Although this is only a rough
guide, it works on most occasions
and whenever it sounds a
bit off, all you need to do is add
or subtract one or two.
10
20
30
40
50
60
70
80
90
100
110
LET B$ = "24231242312423124242423124231
2312312426692242312423124266922423124
2312C"
LET T$ = "GA75457CJGCAGGHGCHPGA75457CJGC
ACGHLHGGG1 1 357CJGCAGGHGCHP1 1 357CJGCAG
HLHG
IF B$ = " " THEN STOP
LET N = CODE{T$) - 28
LET P= (CODE(B$) - 28)* 10
FOR I= 1 TO P
LET D = 1 **N
NEXT I
LET 8$ =TL$(B$)
LET T$ = TL$(T$)
GOTO 30
ZX COMPUTING SUMMER 1982 101