1000 CLEAR 1000:DEFINT A-Z
1010 _SOUND(1,1): ' _SCC(1)
1020 '
1030 FOR I=0 TO 2:_ALLOC(I,1024):_ASSIGN(I+3,I):NEXT I
1040 '
1050 FOR I=0 TO 1
1060 W$="":FOR J=0 TO 31:READ A$:W$=W$+A$+",":NEXT J:_WSET(I,W$)
1070 NEXT I
1080 '
1090 W$="" :FOR J=0 TO 31:READ A$:W$=W$+A$+",":NEXT J:_PSET(0,W$)
1100 '
1110 'PULSE(NORMAL) WAVE
1120 DATA  127, 127, 127, 127, 127, 127, 127, 127
1130 DATA  127, 127, 127, 127, 127, 127, 127, 127
1140 DATA -127,-127,-127,-127,-127,-127,-127,-127
1150 DATA -127,-127,-127,-127,-127,-127,-127,-127
1160 '
1170 'PULSE(SMALL) WAVE
1180 DATA  127, 127, 127, 127, 127,-127,-127,-127
1190 DATA -127,-127,-127,-127,-127,-127,-127,-127
1200 DATA -127,-127,-127,-127,-127,-127,-127,-127
1210 DATA -127,-127,-127,-127,-127,-127,-127,-127
1220 '
1230 ' ENV.PATTERN
1240 DATA 31, 30, 15, 15, 14, 14, 13, 13
1250 DATA 12, 12, 11, 11, 10, 10,  9,  9
1260 DATA  8,  8,  7,  7,  6,  6,  5,  5
1270 DATA  6,  6,  5,  5,  4,  4,  4,  4
1280 '
1290 ' MELODY 1
1300 A$="T150@0@V12L8Q7@S0O5[0" :_TRK(0,A$)
1310 A$="[G4G4GF#GAF4F4FEFG:" :_TRK(0,A$)
1320 A$="E-4E-4E-DE-FD1]" :_TRK(0,A$)
1330 A$="E-4E-4E-CE-FG1" :_TRK(0,A$)
1340 A$="A-A-A-A-A-A-A-A-G1" :_TRK(0,A$)
1350 A$=">CCCCCCCC<B1" :_TRK(0,A$)
1360 A$=">GFD<BGFD<BG>R8R4R2]" :_TRK(0,A$)
1370 '
1380 ' MELODY 2
1390 A$="T150@0@V12L8Q7@S0O5[0" :_TRK(1,A$)
1400 A$="[E4E4ED#EFD4D4DC#DE-:" :_TRK(1,A$)
1410 A$="C4C4C<B>CD<B1>]" :_TRK(1,A$)
1420 A$="C4C4C<A->CD<B1>" :_TRK(1,A$)
1430 A$="CCCCCCCC<B1>" :_TRK(1,A$)
1440 A$="A-A-A-A-A-A-A-A-G1" :_TRK(1,A$)
1450 A$="R1R1]" :_TRK(1,A$)
1460 '
1470 ' BASS
1480 A$="T150@1@V10L8Q5O3[0" :_TRK(2,A$)
1490 A$="[CG>C<GCG>C<G<B->FB-F<B->FB-F:" :_TRK(2,A$)
1500 A$="<A->E-A-E-<A->E-A-E-<G>DGD<G>DGD]" :_TRK(2,A$)
1510 A$="<A->E-A-E-<A->E-A-E-<G>DGD<G>DGD" :_TRK(2,A$)
1520 A$="<F#F#F#F#F#F#F#F#G>DGD<G>DGD" :_TRK(2,A$)
1530 A$="<F#F#F#F#F#F#F#F#G>DGD<G>DGD" :_TRK(2,A$)
1540 A$="R1R8<F#GF#GG#AB>]" :_TRK(2,A$)
1550 '
1560 _PLAYS
1570 END
1580 '
1590 '========================
1600 ' DRAGON BUSTER (C)NAMCO
1610 ' SCC-VERSION  by ITOCHI
1620 '========================