Atari 400 Basic Reference Manual page 112

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·i E :=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