TYPE-A-TUNE
This
program
assigns
musical
note
values to
the
keys
on
the
top
row
of
the
keyboard.
Press
only
one
key
at a
time.
KEY
MUSICAL
VALUE
11~@3;11
B
13H:f.i;i
0
B~
(or A#)
A
9
8
A~
(or G#)
G
7
6
F#
(or G
~·)
F
5
E
4
3
B
~(or
D#)
D
2
1
10
DIM
CHORD(
37
)
..
TUt·~E(
12::0
~'0
GRAPHIcs
~):
? : ?
II
PROGRAt·1"
D~
(or
C#)
c
T\'PE
-A-
TUt·iE
25
·?·
: ? n
PF.:E~3S
KEii::;
1-9
..
(1, < ) >
TO
P~:I)O!JCE
t-IDTES.
II
j
27
?
"RELEASE
Ot-iE
f=::E'l
BEFORE
P~:E::;::;H-lG
TH
E NE>n."
2:3
?
II
OTHERL·J
I
::;E
THERE
t1A\'
BE
A
DELA\'
.
II
30
FOR
:=·=:=1
TO
37:
~~EA[r
A:
C:HORD<
>=:)=A:
t·iE:=O::T
X
40
FOR
:~=:=1
TO
12:
F.:EAO
A:
TUt-iE(
>=:>=A:
tiE:=<T
>=:
50
OPHl
#1..
4, 0
..
11
K:
II
5.'5
OLDCHF.:=-1
€.0
A=PEEK(
764
) :
IF
A=255
THHi
6(1
63
IF
A=OLDCHF.:
THEr·i
EJJ..j
65
OLDCH~:=A
70
FOF.:
:=<=1
TO
12:
IF
TL!t-iE(
:=-::)=A
THEt-~
SOUriD
0}
C:HOF.:[t(
::·{
)
..
1
~3)
:3
:
GOTO
10(1
80
NE:)::T
::-=:
100
I=ItH(PEEK(53775)..··4): IF < I.··'2)=It·iT(
I/
2)
THEN
60
110
POKE
764
..
255
:
::aJUHD
0
·'
0,
0
·'
0 :
OLDCHP=-1
=GOTO
60
~'00
[lATA
243.,
230
..
217.;
204,
193.~
t;::2.J
173.l
162
,I153.E
144,,
136.'
128,1
121.1
114.t
10~::,J
1
~)2.:.96.1
91
.'
8
5}
81
..
76.,
72,
6:3.'
64.'
6~3
210
DATA
57
..
53J
50.;
47.:45;
42.:
4(1,.
37.r
35.,
33; 3
1
..
29
220
[tAT
A 31;
30,
26
..
:24
..
29.'
27
..
51
..
53.,
4::;,.
50.:5
4,55
To
play
"Mary
Had A Little
Lamb"
press
the
following
keys:
5, 3, 1, 3, 5, 5, 5 3, 3, 3 5, 8, 8 5, 3, 1, 3, 5, 5
5, 5, 3, 3, 5, 3, 1
Appendix
H-15
To Next Page
Loading...
Need help?
General
