/#define SKIP 
/******************************************************************************
/*                                                                            *
/*                                                                            *
/*                                                                            *
/******************************************************************************
.title BGM‚»‚Ì1 for GS
.mmltype midi 
.partmax 25
$func(SC55_excl, 40 00 7F 00 )
r2
.next
$func(SC55_partial,0 0 2 0 0 2 2 0 2 4 0 0 0 0 0 0 )
$func(SC55_rymPart, 10 2 )
.trkch 0:0 1:1 2:2 3:3 4:4 5:5 6:6 7:7 8:8 9:9 10:10 11:11 12:12 13:13
.part 0  0 
.part 1  0
.part 2  1
.part 3  2
.part 4  3
.part 5  3
.part 6  3
.part 7  4
.part 8  4
.part 9  5
.part 10 6
.part 11 7
.part 12 7
.part 13 8
.part 15 9
.part 16 9
.part 17 9
.part 18 10
.part 19 9
/**
.subpart md0     0
.subpart md1     1
.subpart sho     2
.subpart bass    3
.subpart syn0    4
.subpart syn1    5
.subpart syn2    6
.subpart ah0     7
.subpart ah1     8
.subpart psg     9
.subpart mar     10
.subpart guit0   11
.subpart guit1   12
.subpart hit     13
.subpart bassd   15
.subpart snare   16
.subpart hihat   17
.subpart tom     18
.subpart dum     19
.next
/******************************************************************************
#define rev    $func(SC55_reverb, 4 4 0 64 64 0 127 )r2 
#define md0    q8v/127v14t170@57 $rev
#define md1    q8v/127v14        @C0$5b/80
#define sho    q8v/127v15@C0/8@64
#define bass   q8v/127v13@40@c0$5d/126 @c0$5b/0
#define syn0   q8v/127v10@63@c0$5d/80
#define syn1   q8v/127v10   @c$5B/96
#define syn2   q8v/127v10   
#define ah0    q8v/127v13o4@53
#define ah1    q8     v13o4
#define psg   q8v/127v14@C0/127@48u0$func(SC55_bend, 6 12 0 0 0 0 0 0 0 0 0 0 )
#define mar    q8v/127v13o4@13@c$5B/0 @c0$5d/126
#define guit0  q8v/127v13o4@31@c$5B/80 @c0$5d/40u0
#define guit1  q8v/127v13o4        $func(SC55_bend, 8 12 0 0 0 0 0 0 0 0 0 0 )
#define hit    q8v/127v15o4@56@c0$5B/127@c0$5d/127
#define bassd  q8v/127v15o2@17@C0$5B/20
#define snare  q8v/127v13o2
#define hihat  q8v/127v15
#define tom    q8v/127v15@1@C0$5d/30 @C0$5b/114
#define dum    q8v/127v15o2
.playsub
.next
/**************************** ’è‹` ********************************************
#define bassa  o1l8q6aaaaaaaa   gggggggg ffffffffgggg gegb
#define syn0a  v10o5l8  rrcc<b>crc rc<b>rcc<b>r rrcc<b>crc rc<b>rdd<b>r
#define syn1a  v10o4l8  rraagara   ragraagr rraagara ragrbbgr
#define syn2a  v10o5l8  rreedere   redreedr rreedere redrgger
#define shoa   o4v15a1b1>c1d1<
#define ah0a   o4@53V13a1g1f1g1
#define ah1a   o4   V13e1d1c1d1
#define ah0b   o4      a1g1f1b1
#define ah1b   o4      e1d1c1g1
#define psga   v14o4r1r1 %ca2.&a8&$cho(b,64,16,x,-2047,0)&b8&b2.
#define psgb   v15o5r1r1 %cu-8191a2.&a8&%r14$cho(a,64,16,x,-8191,0)&a8&a2.
#define bassda o2l4(crc8c8r crc8c8r)2
#define snarea o2l4rdrdrdrd rdrdrdrd16r16d16d16
#define snareb o2l4rdrdrdrd rdrdrdrd16r16r16r16
#define tomb   o2l16r1r1r1r2.rbag
#define hihata o2l8(g+g+g+g+g+g+g+g+)4
#define crcyma o3l4v12gggggggggggggggg
/
#define md0c   v15l8o6c4<barab>c&c4<be&e2       f4.  g& g2 a4.b&b2 
#define shoc   l8v10e4 dcrcd e&e4 d<g&g2       a4. b& b2>c4.d&d2 
#define psgc   l8v10e4 dcrcd e&e4 d<g&g2       a4. b& b2>c4.d&d4&g4 
#define bassc  o1l8q6v13aaaaaaaa ggggggggq8 v15d4>d16r16<e& e>e16r16<e16>e16r< f4>f16r16<g& g>g16r16<g16>g16rv13
#define marc   o5l8q8v12a>ce<a>cega< gb>d<gb>dfg< fa>c<fa>cfg< gb>dgb>dga 
#define snarec o2l4rdrdrdrd16r16r16r16 r2.d
#define tomc   o2l16r1r2.rbag r1r2.rbag
#define cymc   l4o3v15gv10ggg gggg v15l8a4.d-&d-2g4.a&a2
/************************ ‹^Ž—‚l‚l‚k“WŠJ **************************************
#define bass   $bassa
#define syn0   $syn0a
#define syn1   $syn1a
#define syn2   $syn2a
#define sho    $shoa
#define ah0    $ah0a
#define ah1    $ah1a
#define psg    $psga
#define bassd  $bassda
#define snare  $snarea
#define hihat  $hihata
#define dum    o3a1r1r1r2.d-4
.playsub
.next
#define bass   $bassa
#define syn0   $syn0a
#define syn1   $syn1a
#define syn2   $syn2a
#define sho    $shoa
#define ah0    $ah0b
#define ah1    $ah1b
#define psg    $psgb
#define bassd  $bassda
#define snare  $snareb
#define hihat  $hihata
#define tom    $tomb
#define dum    a4r2.r1r1r1
.playsub
.next
#define md0    $md0c
#define md1    %d4$md0c
#define sho    o5 $shoc
#define bass   $bassc
#define guit0  v12o3a1g1 v13d4r8e2&e8 f4r8g2&g8
#define guit1  v11o3e1d1<v13a4r8b2&b8>c4r8d2&d8
#define bassd  $bassda
#define snare  $snarec
#define tom    $tomc
#define dum    $cymc
.playsub
.next
/
#define md0    $md0c
#define md1    $md0c
#define sho    o5 $shoc
#define bass   $bassc
#define psg    o6 $psgc
#define guit0  v12o3a1g1 v13d4r8e2&e8 f4r4 l16o2v15    a>cea>cea>c
#define guit1  v11o3e1d1<v13a4r8b2&b8>c4r4 l16o2v15r32 a>cea>cea>c32
#define bassd  $bassda
#define snare  $snarec
#define tom    $tomc
#define dum    $cymc
.playsub
.next
/********************** ‚f‚t‚h‚s‚d‚q ******************************************
#define md0    o6c1&c1
#define md1    
#define syn0   $syn0a
#define syn1   $syn1a
#define syn2   $syn2a
#define ah0    V14@6$ah0a
#define ah1    V14$ah1a
#define sho    o5$cho(e,64,16,x,-8192,0)&e2. &e1
#define bass   $bassa
#define psg    o6$cho(a,64,16,x,-1365,0)&a2.&a1
#define mar    $marc
#define guit0  o5%r8$cho(a,64,8,x,0,-1365)&$cho(a,64,8,x,-1365,0)&a2. age>c<bge<a<ab>cf<bceg  (fab>c)2 fc<af afc<a (gb>c+d)2 gd<bgbgd<b
#define guit1  %d64.o5%r8$cho(a,64,8,x,0,-1365)&$cho(a,64,8,x,-1365,0)&a2. age>c<bge<a<ab>cf<bceg  (fab>c)2 fc<af afc<a (gb>c+d)2 gd<bgbgd<b
#define hit    r1r1r1r2r8v15o4%r15g8%l15b8>%r15d8
#define bassd  $bassda
#define snare  $snarea
#define hihat  $hihata
#define dum    o3d-1r1r1r2.d-4
.playsub
.next
#define md0    o6c1&c1
#define md1    
#define syn0   $syn0a
#define syn1   $syn1a
#define syn2   $syn2a
#define ah0    $ah0a
#define ah1    $ah1a
#define sho    o5$cho(e,64,16,x,-8192,0)&e2. &e1r1r2
#define bass   o1l8q6aaaaaaaa   gggggggg ffffffff gdg>c4<beg
#define psg    o6$cho(a,64,16,x,-1365,0)&a2.&a1
#define mar    $marc
#define guit0  o5(ea)8 v14u-150(eaea)2v13u-300(eaea)2  v12u-450(eaea)2v11u-600(eaea)2u0 v14l8gdg>c4<beg
#define guit1  o5(ea)8 v14u-150(eaea)2v13u-300(eaea)2  v12u-450(eaea)2v11u-600(eaea)2u0 v13l8d<b>dg4.<b>d
#define bassd  $bassda
#define snare  o2l4rdrdrdrd rdrd
#define hihat  $hihata
#define tom    o3r1r1r1v15l16DC<BRRRAG FR> R8
#define dum    o3d-1r1r1r2.v15A8A8
.playsub
.next
/
#define md0    
#define md1    
#define syn0   v12o4l8f>f<ff>f<ff>f< g>g<gg>g<gg>g< a>a<aa>a<aa>a
#define syn1   v11o4l8c>c<cc>c<cc>c< d>d<dd>d<dd>d< e>e<ee>e<ee>e
#define ah0    F1G1A1
#define ah1    C1D1E1
#define sho    
#define bass   ffffffff gggggggg aaaaaaaa 
#define psg    v14O4u0f4.&$cho(f,64,16,x,0,8192)&f4. u0g4.&$cho(g,64,16,x,0,8192)&g4. u0a1&$cho(a,64,16,x,0,8192)&a2
#define mar    o5l8q8 fa>c<fa>cfg< gb>d<gb>dga< a>ce<a>cega< 
#define guit0  u0v15o5 e4.<a8r8a8b8>c8&$cho(c,64,8,x,0,1365)& c4 u0c4.<b4 b4>c8<a8&a2&$cho(a,64,16,x,0,8192)&a4u0
#define guit1  %d%0u0v14o5 c4.<f8r8f8g8a8&$cho(a,64,8,x,0,1365)& a4 u0a4. g4 g4.e8&e2&$cho(e,64,16,x,0,8192)&e4u0
#define bassd  o2l4crc8c8r crc8c8r crc8c8r
#define snare  o2l4rdrdrdrd rdrd16r16d16d16
#define hihat  o2l8(g+g+g+g+g+g+g+g+)3
#define tom    o3r1r1r1v15l16DC<BRRRAG FR> R8
#define dum    o3r1r1r1r2.v15C+4  /* or G+4
.playsub
.next
/** REPEAT **
#define bass   U0$bassa
#define syn0   U0$syn0a
#define syn1   U0$syn1a
#define syn2   U0$syn2a
#define sho    U0$shoa
#define ah0    U0$ah0a
#define ah1    U0$ah1a
#define psg    U0$psga
#define bassd  $bassda
#define snare  $snarea
#define hihat  $hihata
#define dum    o3a1r1r1r2.d-4
.playsub
.next
#define bass   $bassa
#define syn0   $syn0a
#define syn1   $syn1a
#define syn2   $syn2a
#define sho    $shoa
#define ah0    $ah0b
#define ah1    $ah1b
#define psg    $psgb
#define bassd  $bassda
#define snare  $snareb
#define hihat  $hihata
#define tom    $tomb
#define dum    a4r2.r1r1r1
.playsub
.next
#define md0    $md0c
#define md1    %d4$md0c
#define sho    o5 $shoc
#define bass   $bassc
#define guit0  v12o3a1g1 v13d4r8e2&e8 f4r8g2&g8
#define guit1  v11o3e1d1<v13a4r8b2&b8>c4r8d2&d8
#define bassd  $bassda
#define snare  $snarec
#define tom    $tomc
#define dum    $cymc
.playsub
.next
/
#define md0    $md0c
#define md1    $md0c
#define sho    o5 $shoc
#define bass   $bassc
#define psg    o6 $psgc
#define guit0  v12o3a1g1 v13d4r8e2&e8 f4r4 l16o2v15    a>cea>cea>c
#define guit1  v11o3e1d1<v13a4r8b2&b8>c4r4 l16o2v15r32 a>cea>cea>c32
#define bassd  $bassda
#define snare  $snarec
#define tom    $tomc
#define dum    $cymc
.playsub
.next
/********************** ‚f‚t‚h‚s‚d‚q ******************************************
#define md0    o6c1&c1
#define md1    
#define syn0   $syn0a
#define syn1   $syn1a
#define syn2   $syn2a
#define ah0    V14@6$ah0a
#define ah1    V14$ah1a
#define sho    o5$cho(e,64,16,x,-8192,0)&e2. &e1
#define bass   $bassa
#define psg    o6$cho(a,64,16,x,-1365,0)&a2.&a1
#define mar    $marc
#define guit0  o5%r8$cho(a,64,8,x,0,-1365)&$cho(a,64,8,x,-1365,0)&a2. age>c<bge<a<ab>cf<bceg  (fab>c)2 fc<af afc<a (gb>c+d)2 gd<bgbgd<b
#define guit1  %d64.o5%r8$cho(a,64,8,x,0,-1365)&$cho(a,64,8,x,-1365,0)&a2. age>c<bge<a<ab>cf<bceg  (fab>c)2 fc<af afc<a (gb>c+d)2 gd<bgbgd<b
#define hit    r1r1r1r2r8v15o4%r15g8%l15b8>%r15d8
#define bassd  $bassda
#define snare  $snarea
#define hihat  $hihata
#define dum    o3d-1r1r1r2.d-4
.playsub
.next
#define md0    o6c1&c1
#define md1    
#define syn0   $syn0a
#define syn1   $syn1a
#define syn2   $syn2a
#define ah0    $ah0a
#define ah1    $ah1a
#define sho    o5$cho(e,64,16,x,-8192,0)&e2. &e1r1r2
#define bass   o1l8q6aaaaaaaa   gggggggg ffffffff gdg>c4<beg
#define psg    o6$cho(a,64,16,x,-1365,0)&a2.&a1
#define mar    $marc
#define guit0  o5(ea)8 v14u-150(eaea)2v13u-300(eaea)2  v12u-450(eaea)2v11u-600(eaea)2u0 v14l8gdg>c4<beg
#define guit1  o5(ea)8 v14u-150(eaea)2v13u-300(eaea)2  v12u-450(eaea)2v11u-600(eaea)2u0 v13l8d<b>dg4.<b>d
#define bassd  $bassda
#define snare  o2l4rdrdrdrd rdrd
#define hihat  $hihata
#define tom    o3r1r1r1v15l16DC<BRRRAG FR> R8
#define dum    o3d-1r1r1r2.v15A8A8
.playsub
.next
/******************************************************************************
#define md0    
#define md1    
#define syn0   v12o4l8f>f<ff>f<ff>f< g>g<gg>g<gg>g< a>a<aa>a<aa>a
#define syn1   v11o4l8c>c<cc>c<cc>c< d>d<dd>d<dd>d< e>e<ee>e<ee>e
#define ah0    F1G1A1
#define ah1    C1D1E1
#define sho    
#define bass   ffffffff gggggggg aaaaaaaa 
#define psg    v14O4u0f4.&$cho(f,64,16,x,0,8192)&f4. u0g4.&$cho(g,64,16,x,0,8192)&g4. u0a1&$cho(a,64,16,x,0,8192)&a2
#define mar    o5l8q8 fa>c<fa>cfg< gb>d<gb>dga< a>ce<a>cega< 
#define guit0  u0v15o5 e4.<a8r8a8b8>c8&$cho(c,64,8,x,0,1365)& c4 u0c4.<b4 b4>c8<a8&a2&$cho(a,64,16,x,0,8192)&a4u0
#define guit1  %d%0u0v14o5 c4.<f8r8f8g8a8&$cho(a,64,8,x,0,1365)& a4 u0a4. g4 g4.e8&e2&$cho(e,64,16,x,0,8192)&e4u0
#define bassd  o2l4crc8c8r crc8c8r crc8c8r
#define snare  o2l4rdrdrdrd rdrd16r16d16d16
#define hihat  o2l8(g+g+g+g+g+g+g+g+)3
#define tom    o3r1r1r1v15l16DC<BRRRAG FR> R8
#define dum    o3r1r1r1r2.v15C+4  /* or c+4
.playsub
.next
/** fade out **
#define mv     r4 $func(SC55_mvol, 
#define md0    $mv 120) $mv 115) $mv 110) $mv 105) $mv 100) $mv 95) $mv 90)                    $mv  85) $mv  80) $mv  75) $mv  70) $mv  65) $mv 60) $mv 55)                    $mv  50) $mv 45)
#define bass   U0$bassa
#define syn0   U0$syn0a
#define syn1   U0$syn1a
#define syn2   U0$syn2a
#define sho    U0$shoa
#define ah0    U0$ah0a
#define ah1    U0$ah1a
#define psg    U0$psga
#define bassd  $bassda
#define snare  $snarea
#define hihat  $hihata
#define dum    o3a1r1r1r2.d-4
.playsub
.next
#define md0    $mv 40) $mv 35) $mv 30) $mv 25) $mv 20) $mv 15) $mv 10)                         $mv 5) $mv  0) 
#define bass   $bassa
#define syn0   $syn0a
#define syn1   $syn1a
#define syn2   $syn2a
#define sho    $shoa
#define ah0    $ah0b
#define ah1    $ah1b
#define psg    $psgb
#define bassd  $bassda
#define snare  $snareb
#define hihat  $hihata
#define tom    $tomb
#define dum    a4r2.r1r1r1
.playsub
.next
$func(SC55_excl, 40 00 7F 00 )
.end