Permalink
Switch branches/tags
Nothing to show
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
30 lines (29 sloc) 482 Bytes
'
' 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