SID Example Basic

10 chip=54272:max=100
20 dim f(13),h(3,max),l(3,max),d(3,max),w(3,1)
30 for v=1 to 3
40 c=chip+(v-1)*7
50 nl(v)=c+0:nh(v)=c+1:w(v,0)=c+4
60 next v
65 for k=0 to 13:read f(k) : next
70 volume=chip+24
80 for k=chip to chip+24:poke k,0
90 read d:poke k,d:next
110 for v=1 to 3: read w(v,1)
120 n=1:n(v)=0
130 read n$,d(v,n):if n$="*" then e(v)=n:goto 160
132 if n$="-" then h(v,n)=0:goto 150
134 oc=val(right$(n$,1))
135 f=f((asc(left$(n$,1))-65)+(len(n$)-2)*7)*2^oc+oc
140 h(v,n)=int(f/256):l(v,n)=f-h(v,n)*256
150 n=n+1:goto 130
160 next v
205 poke volume,7
210 for v=1 to 3
220 d(v,n(v))=d(v,n(v))-1
230 if d(v,n(v))<1 then n(v)=n(v)+1:poke w(v,0),w(v,1) and 254: goto 280
240 h=h(v,n(v)):l=l(v,n(v))
250 if h>0 then poke w(v,0),w(v,1)
260 poke nh(v),h:poke nl(v),l
280 if n(v)=e(v) then e=e+1:poke w(v,0),0:if e=3 then end
300 next v
320 goto 210
800 rem note-table data
810 data 451,506,268,301,337,358,401,477,0,284,318,0,379,425
900 rem setup data
910 data 0,0,0,8,0,24,250
920 data 0,0,0,8,0,16,250
930 data 0,0,0,8,0,0,250
940 data 0,0,0,0
1000 data 65
1010 data d4,4,g4,4,g4,6,f#4,2
1020 data g4,4,b4,4,b4,4,a4,4
1030 data d5,4,d5,4,d5,6,c5,2
1040 data b4,4,a4,4,b4,8
1050 data d4,4,g4,4,g4,6,f#4,2
1060 data g4,4,b4,4,b4,4,a4,4
1070 data d5,4,a4,4,a4,6,f#4,2
1080 data f#4,4,e4,4,d4,8
1090 data *,0
1999 :
2000 data 33
2010 data d4,4,d4,4,d4,6,d4,2
2020 data d4,4,g4,4,g4,4,f#4,4
2030 data g4,4,f#4,4,e4,4,a4,4
2040 data g4,4,f#4,4,g4,8
2050 data d4,4,d4,4,d4,6,d4,2
2060 data e4,4,g4,4,g4,8
2070 data f#4,4,e4,4,f#4,6,d4,2
2080 data d4,4,c#4,4,d4,8
2998 data *,0
2999 :
3000 data 17
3010 data b3,4,b3,4,b3,6,a3,2
3020 data b3,4,d4,4,d4,8
3030 data d4,4,d4,4,c4,4,e4,4
3040 data d4,4,d4,4,d4,8
3050 data b3,4,b3,4,b3,6,a3,2
3060 data b3,4,d4,4,c#4,8
3070 data d4,4,e4,4,d4,6,a3,2
3080 data b3,4,g3,4,f#3,8
3998 data *,0