Commodore VIC-20 - Page 255

160 FOR F = 0 TO 10e: NEXT
170 POKE 36877, 0
180 FOR Q = 0 TO 10: NEXT
190 NEXT
200 OOTO 70
Chapter 7 Sound 241
PROGRAMMING MUSIC ON
THE VIC 20
By POKEing values and delays into the sound registers we can write
song programs.
10 POKE 36878,15
20 POKE 36875,207
25 FOR U=0 TO 10en~EXT
30 POKE 36875,0
35 FOR U=0 TO 100:NEXT
40 POKE 36875,207
45 FOR U=O TO 100:NEXT
50 POKE 36875,0
55 FOR U= 0 TO 100
60 POKE 36875,212
65 FOR U=0 TO 100:NEXT
70 POKE 36875,13
75 FOR u=e TO 10e:NEXT
80 POKE 36875,217
95 FOR U
a
0 TO 100:NEXT
90 POKE 36875,0
95 FOR U·0 TO 100:NEXT
100 POKE 36875,207
115 FOR U-0 TO 100:NEXT
120 POKE 36875,0
125 FOR U=0 TO 100:NEXT
130 POKE 36875,217
135 FOR U-0 TO 100:NEXT
140 POKE 36875,0
145 FOR U=0 TO 100:NEXT
150 POKE 36875,212
155 FOR U=0 TO 100:NEXT
160 POKE 36875,0
165 FOR U-0 TO 100:NEXT
170 POKE 36875,190
175 FOR U-0 TO 100:NEXT
180 POKE 36875,0
185 FOR U=0 TO 100:NEXT
190 POKE 36875,207
193 FOR U=0 TO 100:NEXT