NEW
10 REM * SOUND EFFECTS WITH FOR-NEXT LOOP
20 VOICE=0:PITCH=0:TONE=10:VOL=8
30 FOR PITCH=0 TO 255
40 SOUND VOICE,PITCH,TONE,VOL
50 NEXT PITCH
RUN
Varying the volume in a program produces a variety of sounds. Change
VOL = 8 to VOL = 0 and press . Then add the following line:
35 VOL=INT(RND(0)*16)
This line randomly selects a value between 0 and 15 for the volume
variable. Run the program to find out how randomly changing the
volume affects the sound.
Making Music
The SOUND command can produce musical tones as well. The follow-
ing scale includes musical notes and their pitch values:
Note Pitch
high C 29
B 31
A 35
G 40
F 45
E 47
D 53
C 60
B 64
A 72
G 81
F 91
E 96
D 108
middleC 121
Type and run the following program:
NEW
10 REM ** SIMPLE SONG
15 DIM PITCH$ (1)
20 VOICE=0:PITCH=0:TONE = 10:VOL = 8
30 REM ** C=121:D = 108:E=96:F=91
40 TRAP 300
50 PRINT " "
67