Atari 130XE

TYPE·A· TU N E
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
Bb (~r A#)
Cl ear
0
A
9
A b (or G#)
8
G
7
F#(or G b
6
F
5
E
4
E b (or D#)
3
D
2
Db (or C#)
C
1.9 DIM CHORD (37) .. TUNE (1.2)
29 GRAPHICS 9:? :? "
TVPE-A-TUNE PROGRAM"
25 ? :? "PRESS KEVS 1.-<;J .. 9 .. < .. > TO PRODUCE NOTES. ";
27 ? :? "RELEASE ONE KEV BEFORE PRESSING THE NE)(T . "
28 ?:? "OTHERWISE .. THERE MAV BE A DELAV. "
39 FOR )( =1. TO 37: READ A: CHORD ()() =A : NE)(T )(
49 FOR )(=1. TO 1.2: READ A: TUNE ()() =A : NE)(T )(
59 OPEN 111. .. 4 .. 9 .. "K:"
55 OLDCHR=-1.
69 A=PEEK(764): IF A=255 THEN 60
63 IF A=OLDCHR THEN 1.99
650LDCHR=A
79 FOR )(=1. TO 1.2: IF TUNE ()() =A THEN SOUND
9 .. CHORD()() .. 1.9 .. 8: GOTO 1.99
89 NE)(T )(
1.99 I=INT(PEEK(53775)/4) :IF (I/2)=INT(I/2) THEN 69
1.1.9 POKE 764 .. 255:S0UND 9 .. 9 .. 9 .. 9:OLDCHR=-1. :GOTO 69
299 DATA 243 .. 239 .. 21.7 .. 294 .. 1.<;J3 .. 1.82 .. 1.73 .. 1.62 .. 1.53 .. 1.44 .. 1.36 ..
1.28 .. 1.21. .. 1.1.4 .. 1.98 .. 1.92 .. <;J6 .. <;J1. .. 85 .. 81. .. 76 .. 72 .. 68 .. 64 .. 69
21.9 DATA 57 .. 53 .. 59 .. 47 .. 45 .. 42 .. 49 .. 37 .. 35 .. 33 .. 31. .. 2<;J
229 DATA 31. .. 39 .. 26 .. 24 .. 2<;J .. 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