Atari 65XE

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
Insert B
Clear B (or A#)
0 A
9 A (or G#)
8 G
7 F#(or G )
6 F
5 E
4 E (or D#)
3 D
2 D (or C#)
1 C
10 DIM CHORD(37),TUNE(12)
20 GRAPHICS 0:? :? " TYPE-A-TUNE PROGRAM"
25 ? :? "PRESS KEYS l-9,0,<,> TO PRODUCE NOTES. ";
27 ? : ? "RELEASE ONE KEY BEFORE PRESSING THE NEXT . "
28 ? : ? "OTHERWISE, THERE MAY BE A DELAY . "
30 FOR X=1 TO 37:READ A:CHORD(X)=A:NEXT X
40 FOR X=1 TO 12:READ A:TUNE(X)=A:NEXT X
50 OPEN #1,4,0, "K: "
55 OLDCHR=-1
60 A=PEEK(764) :IF A=255 THEN 60
63 IF A=OLDCHR THEN 100
65 OLDCHR=A
70 FOR X=1 TO 12:IF TUNE(X)=A THEN SOUND
0,CHORD(X),10,8:GOTO 100
80 NEXT X
100 I=INT(PEEK(53775)/4):IF (I/2)=INT(I/2) THEN 60
110 POKE 764,255:SOUND 0,0,0,0:OLDCHR=-1 :GOTO 60
200 DATA 243,230,217,204,193,182,173,162,153,144,136,
128,121,114,108,102,96,91,85,81,76,72,68,64,60
210 DATA 57,53,50,47,45,42,40,37,35,33,31,29
220 DATA 31,30,26,24,29,27,51,53,48,50,54,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
Note: Make sure you insert three spaces between THE and NEXT in
line 27.
82