Commodore Plus 4 - Page 189

Programming Sound and Music 177
340 DATA810,1,770,1,704,1,770,1
350 DATA643,2,798,2,810,6
360 DATA-1,-1
370 DATA7,2,516,4,485,2
380 DATA516,1,345,1,516,1,596,1
390 DATA571,1,345,1,571,1,643,1
400 DATA596,2,516,2,485,2,345,2
410 DATA516,1,345,1,516,1,596,1
420 DATA571,1,345,1,571,1,643,1
430 DATA596,2,516,2,596,2,516,2
440 DATA643,1,516,1,383,1,516,1
450 DATA262,1,383,1,7,1,169,1
460 DATA118,2,262,2,453,2,571,2
470 DATA571,1,453,1,345,1,453,1
480 DATA169,1,345,1,118,1,118,1
490 DATA7,2,169,2,262,1,383,1
500 DATA118,1,262,1,118,2,118,2
510 DATA169,1,345,1,7,1,169,1
520 DATA7,2,7,2
530 DATA118,1,453,1,383,1,453,1
540 DATA596,6
550 DATA-1,-1
Line-by-Line Explanation
10 Set volume to maximum.
20 Prepare data arrays for notes and durations.
30 I counts the number of notes.
40 Read a note and duration for voice 1; a negative number means done.
50 Increment counter and continue.
60 Tl is the total number of notes for voice 1. Start I over again at 0.
70 Read a note and duration for voice 2; a negative number means done.
80 Increment counter and continue.
90 II and 12 are pointers to the data arrays.
100 If voice 1 is not finished, go on to line 130. Otherwise, stop voice 1.
110 Increment voice 1 pointer. If done, quit. Otherwise, set up note and
duration.
120 If not a rest, start the note.
130 If voice 2 is not finished, go on to line 160. Otherwise, stop voice 2.
140 Increment voice 2 pointer and set up note and duration.
150 If not a rest, start the note.