30 lines
482 B
Plaintext
30 lines
482 B
Plaintext
'
|
|
' Setup sound channels
|
|
'
|
|
10 for c=1 to 4
|
|
11 p=c*256+252
|
|
12 poke p-1,2:'Pulse
|
|
13 poke p,0:poke p+1,0
|
|
14 next c
|
|
'
|
|
' Setup vCPU note lookup
|
|
'
|
|
20 poke 129,17:'LDWI $9xx
|
|
21 poke 131,9
|
|
22 poke 132,127:'LUP 0
|
|
23 poke 133,0
|
|
24 poke 134,147:'INC 130
|
|
25 poke 135,130
|
|
26 poke 136,255:'RET
|
|
'
|
|
' Play all notes
|
|
'
|
|
30 for n=1 to 95
|
|
31 print "Playing note",n
|
|
32 poke 130,n+n:'$900+n*2
|
|
33 poke p, usr(129):'Flo
|
|
34 poke p+1,usr(129):'Fhi
|
|
35 poke 44,15:'0.25 secs
|
|
36 if peek(44)>0 goto 36
|
|
37 next n
|