Commodore Plus 4 - Page 121

-
THE
GREAT
PLUS/4
MUSIC
MACHINE
no space
The last program is a little longer. This is the ''GREAT PLUS/4 MUSIC
MACHINE". When you press a key from 1 through 9, the note is played,
and a note appears on the staff on the correct line
5 GOSUB 1000
6FORX-1TO9: READN(X): NEXT X
8 CHAR 1,8. l.'-THE GREAT MUSIC MACHINE1":
10 VOL 7
20 DO
30GETA$:IFA$ = ""THEN30
35 A-ASC(AS): IF A<49 OR A>57 THEN 50
36 N- A - 48
40 SOUND 1, N(N),4
45GSHAPENS. 150.8 * (6 + (9-N)),4
46 FOR Z - 1 TO 50: NEXT Z
47GSHAPENS, 150,8 '{6 + (9-N)),4
50 LOOP UNTIL A = 32
55 VOL 0: GRAPHIC 0: SCNCLR
60 END
100 DATA 345, 383, 453, 516, 571, 596, 643, 685. 704
1000 GRAPHIC 1.1
1010 FOR Y-60 TO 124 STEP 16
1020 DRAW 1. 100, Y TO 200, Y
1030 NEXT Y
1040 AS- ■■FEDCBAGFE"
1050 FOR X=l TO 9: C=13
1060 IF INT(X 2) - X;2 THEN C = 14
1070 CHAR 1, C. X-6, MID$ (A$, X, 1), 0
1075 CHAR 1, C -10, X-6, RIGHTS (STRS (10 X). 1)
1080 NEXT X
1090 FOR X=l TO 8: FORY=11 TO 16: DRAW 1, X, Y: NEXT Y. X
1100Y=l:X=8: DRAW 1,8, 16TOX, Y
1110SSHAPENS, 1. 1, 8. 16
1120GSHAPENS, 1, 1.4
1130 RETURN
As you can see, it's not hard to write your own sound programs. The
ones in this chapter just give a taste of the music capabilities of your
Plus/4 Don't be afraid to try new sounds and noises and create your
own masterpiece
112