100 ' R-Type music for Sound-kun
110 CLEAR 1000:_SOUND:' _SCC(1)
120 FOR I=0 TO 1:READ A$,B$:A$=A$+","+B$:_PSET(I,A$):NEXT
130 '
140 '     +0  +1  +2  +3  +4  +5  +6  +7  +8  +9  +A +13  +C  +D  +E  +F
150 DATA" 31, 31, 14, 15, 14, 13, 12, 11, 10,  9,  9,  8,  8,  7,  7,  6":'No,0
160 DATA"  6,  5,  5,  4,  4,  3,  3,  2,  2,  1,  1,  0,  0,  0,  0,  0"
170 '
180 DATA" 11, 02, +2, +1,  0, -1, -2, -2, -1,  0, +1, +2,  0,  0,  0,  0":'No,1
190 DATA" 0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0"
200 '
210 FOR I=0 TO 2:_ALLOC(I,2000):_ASSIGN(I,I):NEXT
220 A0$="t150 l16 q6 @k8 @h1,0,0,0"
230 B0$="t150 l16 @s0,0"
240 C0$="t150 l8 s9 m15000"
250 A1$="o5r2v14ed#<b1&r4."
260 B1$="[ o5@v12ba# ag f#f ed <ba# ag f#f ed ]"
270 F1$="o2eereer":C1$="["+F1$+"]"
280 A2$="r2b&a#&g1&r4."
290 A3$="q0{o4cdd#ed#d}lo3 q6 b1"
300 B3$="  {o3cdd#ed#d}o5@v12ba#agagf#egf#eco4b4"
310 C3$="[ o1bbrbbr ]"
320 A4$="o5e1 d#2.c8o4b1^8&b1"
330 B4$="["+B1$+"]"
340 C4$="["+C1$+"]"
350 AS$="o5d1 c#2. o4b8a8"
360 F5$="o2ddrddr":F6$="o2c#c#rc#c#r":C5$=F5$+F6$
370 A6$="b1&b1"
380 A7$="g1 a2r4 f#8e1^8&e1"
390 C7$=F1$+F5$+C1$
400 A8$="b1 o5d2. o4b8a8"
410 C8$=F1$+F5$
420 B9$="g#aa#bo5cc#dd#eff#gg#aa#b g#aa#bo6cc#dd#eff#gg#abo7c"
430 M$=A0$+"[0"+A1$+A2$+A3$:_TRK(0,M$)
440 M$=A4$+A5$+"["+A6$+":" :_TRK(0,M$)
450 M$=A7$+A8$+"]]"        :_TRK(0,M$)
460 M$=B0$+"[0[["+B1$+"]:" :_TRK(1,M$)
470 M$=B3$+B4$+"]"         :_TRK(1,M$)
480 M$=B4$+B1$             :_TRK(1,M$)
490 M$=B9$+"]"             :_TRK(1,M$)
500 M$=C0$+"[0"+C1$+C1$    :_TRK(2,M$)
510 M$=C3$+C4$+C5$         :_TRK(2,M$)
520 M$=C3$+C7$+C8$+C3$+"]" :_TRK(2,M$)
530 _PLAYS