Commodore Plus 4 - Making some music

MAKING Now Inat we've looked at some ways to create sound effects on your
SOME P'us/4. let's make some music. Here are a couple of programs to try:
MUSIC The first program turns the keys from 1 through 8 into a piano. Type in
the program and then type RUN.
clears the screen
5SCNCLR ~«
10 FOR X = 1 TO 8: READ N(X): NEXT X
20 VOL 7
30 DO
40GETAS: IFA$ = " "THEN 40
50 A = ASC(AS): IF A<49 OR A>56 THEN 90
60N = A-48
70 SOUND 1,N(N), 5
80 COLOR 0, N, 3
90 LOOP UNTIL A-32
100 VOL 0: COLOR 4, 2, 7
110 DATA 169, 262, 345,383,453, 516, 571, 596
Press numbers 1 through 8 to play notes. The screen border even
changes colors with the different notes. When you finish playing, press
the space bar to stop the program.
Here are the numbers to press for a familiar song:
Twinkle, Twinkle Little Star
115 5 6 6 5
4 4 3 3 2 2 1
5 5 4 4 3 3 2
5 5 4 4 3 3 2
115 5 6 6 5
4 4 3 3 2 2 1
110