Commodore VIC-20 User Manual page 78

Try typing this program:
Type this program exactly as shown and see
what happens!
10 PRINT"
20 FOR I = 1 TO 5
30 POKE 36873+1,0
40 NEXT I
50 PRINT "WHICH VOICE (1-4)?"
60 PRINT "IF DONE, ENTER 0"
70 INPUT N
80 IFN=0THEN END
90 PRINT "WHICH PITCH (128-254)?"
100 INPUT P
110 POKE 36878, 4
120 POKE 36873+ N,P
130 FOR J = 1 TO 2000: NEXT J
140 GOTO 10
To stop the program, press the Bj key.
C
i
C
c
c
c
c
c
I
c
c
c
c
c
c
<
I
(
(
(
I
<
c
<
c
<
c
c
c
<
68