Atari 65XE Owner's Manual page 87

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
Insert
Clear
0
9
8
7
6
5
4
3
2
1
10 DIM C H O R D ( 3 7 ) , T U N E ( 1 2 )
20 GRAPHICS 0:? :? "
25 ? :? "PRESS KEYS l - 9 , 0 , < , > TO PRODUCE NOTES. ";
27 ? : ? "RELEASE ONE KEY BEFORE PRESSING THE
28 ? : ? " O T H E R W I S E , THERE MAY BE A DELAY . "
30 FOR X=1 TO 3 7 : R E A D A : C H O R D ( X ) = A : N E X T X
40 FOR X=1 TO 12:READ A : T U N E ( X ) = A : N E X T X
50 OPEN #1,4,0,
55 OLDCHR=-1
60 A = P E E K ( 7 6 4 ) :IF A=255 THEN 60
63 IF A=OLDCHR THEN 100
65 OLDCHR=A
70 FOR X=1 TO 12:IF T U N E ( X ) = A THEN SOUND
0 , C H O R D ( X ) , 1 0 , 8 : G O T O
80 NEXT X
100 I = I N T ( P E E K ( 5 3 7 7 5 ) / 4 ) : I F (I/2)=INT(I/2) THEN 60
110 POKE 7 6 4 , 2 5 5 : S O U N D
200 DATA 243,230,217,204,193,182,173,162,153,144,136,
1 2 8 , 1 2 1 , 1 1 4 , 1 0 8 , 1 0 2 , 9 6 , 9 1 , 8 5 , 8 1 , 7 6 , 7 2 , 6 8 , 6 4 , 6 0
210 DATA 5 7 , 5 3 , 5 0 , 4 7 , 4 5 , 4 2 , 4 0 , 3 7 , 3 5 , 3 3 , 3 1 , 2 9
220 DATA 3 1 , 3 0 , 2 6 , 2 4 , 2 9 , 2 7 , 5 1 , 5 3 , 4 8 , 5 0 , 5 4 , 5 5
To play "Mary Had a Little Lamb," press the following keys:
5, 3, 1, 3, 5, 5, 5
Note: Make sure you insert three spaces between THE and NEXT in
line 27.
MUSICAL VALUE
B
B (or A#)
A
A (or G#)
G
F#(or G )
F
E
E (or D#)
D
D (or C#)
C
TYPE-A-TUNE PROGRAM"
" K : "
1 0 0
0 , 0 , 0 , 0 : O L D C H R = - 1
3, 3, 3 5, 8, 8 5, 3, 1, 3, 5, 5, 5 5, 3, 3, 5, 3, 1
82
NEXT . "
:GOTO 60