#TITLE ドラゴンクエストⅡ悪霊の神々 / LOVE SONG探して
#ARTIST すぎやまこういち
#CODING Mayu Hiraizumi (dic.nicovideo.jp/u/11448931)
#COMMENT JASRAC work code：085-6281-4 / MML coded: 2014/06/15 rev.0


/* Ini ====================================================================== */

/* All part 1 */  $ALL1 = t140.3 ;
/*  Tone part */  $ALLT = @D-4 ; /* 音対策 */
/*     Repeat */  $LOOP = 12 ; 

/* Volume @V0～127 */
/* 2A03 Sqr_0 */  $Sqr0 = @V112 ;
/* 2A03 Sqr_1 */  $Sqr1 = @V104 ;
/* 2A03 Tri   */  $Tri  = @V120 ;


/* Wav13 ==================================================================== */

#WAV13 0,80 85 85 85 85 85 87 8C 94 93 93 93 93 95 A1 A1 A1 A1 A1 A0 A2 AC AE AD AD AD AC B2 B7 B9 B9 B8 B8 B8 BB C4 C4 C3 C3 C2 C2 CA CD CE CD CD CC CB D4 D7 D6 D6 D5 D4 D6 DB E0 DF DE DD DD DE E8 E7 E6 E5 E5 E4 E3 E3 E2 E1 E0 DF DF D7 D1 D0 CF CF CE CD C8 C0 BF BE BE BD BD B4 AF AF AE AE AE AD A4 9F 9F 9F 9E 9E 9A 96 90 90 8F 8F 8F 8D 81 81 81 81 81 81 7D 75 73 73 73 73 73 6B 65 65 65 65 65 64 60 57 57 58 58 58 57 4B 4A 4A 4A 4B 4B 49 40 3D 3D 3E 3E 3F 3A 33 31 31 31 32 33 31 24 24 25 26 26 27 1E 19 18 19 1A 1A 1B 12 0C 0D 0E 0F 10 10 11 12 13 13 14 15 17 27 29 2A 2A 2A 2B 31 3A 3E 3E 3F 3F 40 48 4E 52 52 52 53 53 58 64 64 64 64 65 66 6E 74 75 75 75 75 75 /* 2A03(Tri) */

#WAV13 1,80 F6 FE FF FE FD FC FB FA F9 F8 F7 F6 F5 F4 F3 F3 F2 F1 F0 EF EE ED EC EB EA EA E6 AA 67 60 60 61 61 61 61 62 62 62 62 63 63 63 63 63 64 64 64 64 65 65 65 65 65 66 66 66 66 66 67 67 67 67 67 68 68 68 68 68 68 69 69 69 69 69 69 6A 6A 6A 6A 6A 6A 6B 6B 6B 6B 6B 6B 6C 6C 6C 6C 6C 6C 6C 6D 6D 6D 6D 6D 6D 6D 6E 6E 6E 6E 6E 6E 6E 6F 6F 6F 6F 6F 6F 6F 6F 6F 70 70 70 70 70 70 70 70 71 71 71 71 71 71 71 71 71 72 72 72 72 72 72 72 72 72 72 73 73 73 73 73 73 73 73 73 73 74 74 74 74 74 74 74 74 74 74 74 74 75 75 75 75 75 75 75 75 75 75 75 75 76 76 76 76 76 76 76 76 76 76 76 76 76 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 78 78 78 78 78 78 78 78 78 78 78 78 /* 2A03(Sqr12.5%) */

#WAV13 2,80 F4 F5 F5 F4 F4 F3 F2 F1 F0 EF EE ED EC EC EB EA EA E9 E8 E7 E6 E5 E5 E4 E3 E2 E1 E0 E0 E0 DF DE DD DC DC DB DA D9 D9 D8 D7 D7 D6 D6 D5 D4 D4 D3 D2 D1 D1 D0 CF CC A2 4E 47 47 48 48 49 49 4A 4A 4A 4B 4B 4B 4C 4C 4D 4D 4D 4E 4E 4F 4F 50 50 50 50 51 51 51 52 52 53 53 53 54 54 54 54 55 55 56 56 56 57 57 57 58 58 58 58 59 59 59 5A 5A 5A 5A 5B 5B 5B 5C 5C 5C 5C 5D 5D 5D 5D 5E 5E 5E 5F 5F 5F 5F 5F 60 60 60 60 61 61 61 61 62 62 62 62 62 63 63 63 63 64 64 64 64 65 65 65 65 65 65 66 66 66 66 67 67 67 67 67 67 68 68 68 68 68 69 69 69 69 69 69 69 6A 6A 6A 6A 6A 6B 6B 6B 6B 6B 6B 6B 6C 6C 6C 6C 6C 6C 6D 6D 6D 6D 6D 6D 6D 6D 6E 6E 6E 6E 6E 6E 6E 6F 6F 6F 6F 6F /* 2A03(Sqr25%) */

#WAV13 4,80 DE DD DD DC DB DA DA D9 D9 D8 D7 D7 D6 D5 D4 D4 D3 D2 D2 D2 D1 D0 D0 CF CE CE CD CC CC CB CA CA CA C9 C8 C8 C7 C7 C6 C6 C5 C4 C4 C4 C3 C3 C2 C2 C1 C0 C0 BF BF BE BE BE BD BD BC BC BB BB BA BA B9 B9 B8 B8 B8 B7 B7 B6 B6 B6 B5 B5 B4 B4 B3 B3 B3 B2 B2 B2 B1 B1 B0 B0 B0 AF AF AE AE AE AE AD AD AC AC AC AB AB AB AA AA AA AA A9 A1 29 22 22 23 24 25 25 26 26 27 28 28 29 2A 2A 2B 2C 2D 2D 2E 2F 2F 2F 30 31 31 32 33 33 34 35 35 36 36 36 37 38 38 39 39 3A 3B 3B 3C 3C 3C 3D 3D 3E 3E 3F 40 40 41 41 42 42 43 43 43 44 44 45 45 46 46 47 47 48 48 48 48 49 49 4A 4A 4B 4B 4C 4C 4C 4D 4D 4D 4E 4E 4F 4F 4F 50 50 51 51 51 51 52 52 52 53 53 54 54 54 55 55 55 56 56 56 /* 2A03(Sqr50%) */


/* Macro ==================================================================== */

$Ex0 = @E1,0,0,127,0 ;

/* Vol(n/60.09) : A(1) F(+1) D(+1) C(+2) B(+2) A(+3) 9(+3) 8(+4) 9(+1) A(+1) B(+1) C(+2) B(+1) A(+1) 9(+4) 8(+4) ... */
/* Vol(n/127)   : A(2) F(+2) D(+2) C(+3) B(+3) A(+5) 9(+5) 8(+8) 9(+2) A(+2) B(+2) C(+4) B(+2) A(+2) 9(+9) 8(+9～10) ... */
$ExS1 =
  @E1,0,0,  80,2,80,0,  120,2,120,0,  104,3,104,0,  96,3,96,0,  88,5,88,0,  80,5,80,0,  72,5,72,0,  64,10,64,0,
  72,2,72,0,  80,2,80,0,  88,2,88,0,  96,4,80,0,  88,2,88,0,  80,2,80,0,  72,9,72,0,  64,9,64,0,
  72,2,72,0,  80,2,80,0,  88,2,88,0,  96,4,80,0,  88,2,88,0,  80,2,80,0,  72,9,72,0,  64,9,64,0,
  72,2,72,0,  80,2,80,0,  88,2,88,0,  96,4,80,0,  88,2,88,0,  80,2,80,0,  72,9,72,0,  64,9,64,0,
  72,2,72,0,  80,2,80,0,  88,2,88,0,  96,4,80,0,  88,2,88,0,  80,2,80,0,  72,9,72,0,  64,10,64,0,
  72,2,72,0,  80,2,80,0,  88,2,88,0,  96,4,80,0,  88,2,88,0,  80,2,80,0,  72,9,72,0,  64,9,64,0,
  72,2,72,0,  80,2,80,0,  88,2,88,0,  96,4,80,0,  88,2,88,0,  80,2,80,0,  72,9,72,0,  64,9,64,0,
  72,2,72,0,  80,2,80,0,  88,2,88,0,  96,4,80,0,  88,2,88,0,  80,2,80,0,  72,9,72,0,  64,9,64,0,
  72,2,72,0,  80,2,80,0,  88,2,88,0,  96,4,80,0,  88,2,88,0,  80,2,80,0,  72,9,72,0,  64,10,64,0,
  72,2,72,0,  80,2,80,0,  88,2,88,0,  96,4,80,0,  88,2,88,0,  80,2,80,0,  72,9,72,0,  64,9,64,0,
  72,2,72,0,  80,2,80,0,  88,2,88,0,  96,4,80,0,  88,2,88,0,  80,2,80,0,  72,9,72,0,  64,9,64,0,
  72,2,72,0,  80,2,80,0,  88,2,88,0,  96,4,80,0,  88,2,88,0,  80,2,80,0,  72,9,72,0,  64,9,64,0,
  72,2,72,0,  80,2,80,0,  88,2,88,0,  96,4,80,0,  88,2,88,0,  80,2,80,0,  72,9,72,0,  64,10,64,0,
  72,2,72,0,  80,2,80,0,  88,2,88,0,  96,4,80,0,  88,2,88,0,  80,2,80,0,  72,9,72,0,  64,9,64,0 ;

/* Vol(n/60) : X(2) D(+1) C(+2) B(+2) A(+3) 9(+3) 8(+4) 9(+1) A(+1) B(+1) C(+2) B(+1) A(+1) 9(+1) 8(+4) ... */
/* Vol(n/127): X(4) D(+2) C(+5) B(+4) A(+6) 9(+6) 8(+9) 9(+2) A(+2) B(+2) C(+4) B(+2) A(+2) 9(+2) 8(+9～10) ... */
$ExS2 =
  @E1,0,0,  104,6,104,0,  96,5,96,0,  88,4,88,0,  80,6,80,0,  72,6,72,0,  64,9,64,0,
  72,2,72,0,  80,2,80,0,  88,2,80,0,  96,4,80,0,  88,2,80,0,  80,2,80,0,  72,2,72,0,  64,9,64,0,
  72,2,72,0,  80,2,80,0,  88,2,80,0,  96,4,80,0,  88,2,80,0,  80,2,80,0,  72,2,72,0,  64,10,64,0,
  72,2,72,0,  80,2,80,0,  88,2,80,0,  96,4,80,0,  88,2,80,0,  80,2,80,0,  72,2,72,0,  64,9,64,0,
  72,2,72,0,  80,2,80,0,  88,2,80,0,  96,4,80,0,  88,2,80,0,  80,2,80,0,  72,2,72,0,  64,9,64,0,
  72,2,72,0,  80,2,80,0,  88,2,80,0,  96,4,80,0,  88,2,80,0,  80,2,80,0,  72,2,72,0,  64,10,64,0,
  72,2,72,0,  80,2,80,0,  88,2,80,0,  96,4,80,0,  88,2,80,0,  80,2,80,0,  72,2,72,0,  64,9,64,0,
  72,2,72,0,  80,2,80,0,  88,2,80,0,  96,4,80,0,  88,2,80,0,  80,2,80,0,  72,2,72,0,  64,9,64,0,
  72,2,72,0,  80,2,80,0,  88,2,80,0,  96,4,80,0,  88,2,80,0,  80,2,80,0,  72,2,72,0,  64,10,64,0,
  72,2,72,0,  80,2,80,0,  88,2,80,0,  96,4,80,0,  88,2,80,0,  80,2,80,0,  72,2,72,0,  64,9,64,0,
  72,2,72,0,  80,2,80,0,  88,2,80,0,  96,4,80,0,  88,2,80,0,  80,2,80,0,  72,2,72,0,  64,9,64,0,
  72,2,72,0,  80,2,80,0,  88,2,80,0,  96,4,80,0,  88,2,80,0,  80,2,80,0,  72,2,72,0,  64,10,64,0,
  72,2,72,0,  80,2,80,0,  88,2,80,0,  96,4,80,0,  88,2,80,0,  80,2,80,0,  72,2,72,0,  64,9,64,0,
  72,2,72,0,  80,2,80,0,  88,2,80,0,  96,4,80,0,  88,2,80,0,  80,2,80,0,  72,2,72,0,  64,9,64,0,
  72,2,72,0,  80,2,80,0,  88,2,80,0,  96,4,80,0,  88,2,80,0,  80,2,80,0,  72,2,72,0,  64,10,64,0 ;


/* Sqr_0 ==================================================================== */

$SQ_E{a,b,c} = $ExS1 @13-4 @X127 %a%%b & $Ex0 @13-1 @X16 %a%%c ;
$SQ_E0{a,b}  = $ExS1 @13-4 @X127 %a%%b ;
$SQ48A{a}    = $ExS1 @13-4 @X127 %a%24 & $Ex0 @13-1 @X16 %a%24 ; /* 100(6)～117(7) */
$SQ48B{a}    = $ExS1 @13-4 @X127 %a%31 & $Ex0 @13-1 @X16 %a%17 ; /* 133(8)～150(9) */
$SQ48C{a}    = $ExS1 @13-4 @X127 %a%37 & $Ex0 @13-1 @X16 %a%11 ; /* 166(10) */
$SQ48D{a}    = $ExS1 @13-4 @X127 %a%44 & $Ex0 @13-1 @X16 %a%4 ;  /* 200(12) */
$SQ48Y{a}    = $ExS1 @13-4 @X127 %a%48 ;
$SQ96Y{a}    = $ExS1 @13-4 @X127 %a%96 ;
$SQ48ZA{a}   = %a%17 & $Ex0 @13-1 @X16 %a%31 ; /* 66(4)～83(5) */
$SQ48ZB{a}   = %a%31 & $Ex0 @13-1 @X16 %a%17 ; /* 133(8)～150(9) */
$SQ96ZB{a}   = %a%31 & $Ex0 @13-1 @X16 %a%65 ; /* 133(8)～150(9) */
$SQ64X{a}    = $Ex0 /:2 @13-2 @X120 %a%4 & @X104 %a%4 & @13-4 @X80 %a%4 & @X72 %a%8 & @X64 %a%12 :/ ;

$S00  = q16 @Q0 o6 $SQ96Y{d} ;
$S01a = $SQ_E{b,96,48} $SQ_E{b,64,32} $SQ48A{b} $SQ48C{b} $SQ48C{b} ;
$S01b = $SQ48D{b} $SQ48D{b} $SQ48B{b} $SQ48B{b} $SQ48C{b} $SQ48B{b} $SQ48Y{a} & $SQ48ZA{b} ;
$S02  = $SQ96Y{a} $SQ48A{g} $SQ_E{g,480,48} $SQ48Y{g} & a%48 & ;
$S03  = $SQ48ZA{b-} $SQ_E{b-,64,32} $SQ_E{b-,48,48} /:3 $SQ48A{b-} :/ $SQ48Y{b-} & $SQ96ZB{a} $SQ_E{g,96,48} $SQ48A{g} $SQ48A{g} ;
$S04  = $SQ48Y{f+} & $SQ96ZB{g} $SQ_E{a,480,48} $SQ48C{d} $SQ48A{d} ;
$S05  = $SQ_E0{e,144} e8e8 $SQ48A{e} $SQ48A{f+} $SQ_E{g,288,48} $SQ48A{g} $SQ48A{g} ;
$S06  = $SQ_E{d,48,48} $SQ48A{d} $SQ48A{d} $SQ48Y{g} $SQ48A{g} $SQ48A{a} $SQ_E{b,240,48} $SQ48B{b} $SQ48A{b} $SQ48A{b} ;
$S07  = /:2 < $SQ48Y{c} & > $SQ48ZA{b} $SQ48A{a} / $SQ_E{e,96,48} $SQ48A{b} $SQ48A{b} :/ $SQ_E{e,144,96} ;
$S08  = r8 $SQ48A{g} $SQ48Y{g} & $SQ48ZA{e} /:4 $SQ48A{g} :/ $SQ_E{a,96,48} $SQ_E0{g,528} r%96 ;
$S09  = o6 /:3 $SQ_E{e-,64,32} :/ $SQ48B{g} $SQ_E{f,336,48} ;
$S0A  = $SQ_E{g,112,32} /:2 $SQ_E{g,64,32} :/ $SQ48B{b-} $SQ_E{a,288,48} $SQ48Y{g} & a%48 & ;
$S0Ba = $SQ48ZB{b-} $SQ_E{b-,24,72} $SQ48A{b-} $SQ48Y{b-} & $SQ48ZA{a} $SQ48B{g} $SQ48B{b-} ;
$S0Bb = $SQ48Y{a} $SQ96ZB{a} $SQ48B{b-} $SQ48Y{a} $SQ48ZB{a} $SQ48B{g} $SQ48B{f} ;
$S0Ca = r8 $SQ_E{g,32,64} $SQ48A{f} $SQ48B{e-} $SQ48Y{e-} & $SQ48ZA{f} $SQ48B{g} ;
$S0Cb = $SQ48Y{f+} & $SQ96ZB{g} $SQ_E{a,192,48} ;
$S0E  = $SQ_E{g,112,32} /:2 $SQ_E{g,64,32} :/ $SQ48B{b-} $SQ_E{a,288,96} $SQ_E0{g,24} a%24 ;
$S0F  = $SQ48A{b-} /:2 $SQ_E{b-,24,72} :/ > /:2 $SQ48A{g} $SQ48A{b-} :/ & b-%48 < $SQ96Y{d} c%96 > b-%48 < f%24 g%24 ;
$S0G  = $SQ48A{a} /:2 $SQ_E{a,24,72} :/ > /:2 $SQ48A{a} $SQ48A{b-} :/ & b-%48 < $SQ96Y{a} g%96 f%48 e-%24 f%24 ;
$S0H  = $SQ_E{g,64,32} $SQ48A{g} $SQ_E{g,24,120} > $SQ96Y{b-} < c%144 > $SQ_E{b-,48,48} < $SQ48A{f+} $SQ48Y{f+} $SQ48A{g} ;
$S0I  = $SQ_E{f+,186,6} $SQ_E{g,186,6} $SQ_E{a,288,48} $SQ48A{d} ;
$S0J  = $SQ_E{b,112,32} $SQ_E{a,112,32} $SQ_E{g,384,48} $SQ48A{d} ;
$S0L  = $SQ_E{b,112,32} $SQ_E{a,112,32} $SQ_E{g,576,96} $SQ_E0{g,192} ;
$S0M  = g%768 ;
$S0N  = /:2 $SQ64X{g} $SQ64X{e-} :/ $SQ64X{c} $SQ64X{e-} /:2 $SQ64X{c} > $SQ64X{a} / < :/ $SQ64X{g} $SQ64X{a} ;
$S0P  = $SQ_E0{b,672} < $SQ96Y{d} ;

/* *** play *** */

$ALL1 $ALLT $Sqr0 $S00 /:$LOOP $S01a $S01b $S02 $S03 $S04 $S05 $S06 $S07 $S08
$S09 $S0A $S0Ba $S0Bb $S0Ca $S0Cb $S09 $S0E $S0F $S0G $S0H $S0I $S0J $S0J $S0L $S0M $S0N $S0P :/
;


/* Sqr_1 ==================================================================== */

$SQre{a,b} = $Ex0 @13-1 @X16 %a%%b ;
$SQ48E{a}  = $Ex0 @13-2 @X120 %a%4 & @X112 %a%3 & @13-4 @X104 %a%3 & @X96 %a%7 & @X88 %a%7 & @13-1 @X16 %a%24 ;
$SQ96E{a}  = $Ex0 @13-2 @X120 %a%4 & @X112 %a%3 & @13-4 @X104 %a%3 & @X96 %a%8 & @X88 %a%7 & @13-1 @X16 %a%71 ;
$SQ24F{a}  = $Ex0 @13-2 @X120 %a%4 & @X112 %a%3 & @13-4 @X104 %a%3 & @X96 %a%8 & @X88 %a%6 ;
$SQ48F{a}  = $Ex0 @13-2 @X120 %a%4 & @X112 %a%3 & @13-4 @X104 %a%3 & @X96 %a%8 & @X88 %a%7 & @X80 %a%12 & @X72 %a%11 ;
$SQ96F2{a} = $Ex0 @13-2 @X120 %a%4 & @X112 %a%3 & $ExS2 @13-4 @X127 %a%89 ;
$SQ48G{a}  = $Ex0 @13-2 @X120 %a%4 & @X112 %a%3 & @13-4 @X104 %a%3 & @X96 %a%8 & @X88 %a%7 & @X80 %a%7 & @13-1 @X16 %a%16 ;
$SQ96H{a}  = $Ex0 @13-2 @X120 %a%4 & @X112 %a%3 & $ExS2 @13-4 @X127 %a%56 & $Ex0 @13-1 @X16 %a%33 ;

$S10 = q16 @Q0 $Ex0 r%96 ;
$S11 = o5 r%48 /:4 $SQ48E{d} $SQ48F{b} $SQ96E{d} :/ ;
$S12 = /:2 $SQ48E{g} $SQ48F{b} / $SQ96E{b} :/ $SQ48E{b} r%48 > $SQ48F{b} & $SQre{b,96} $SQ96E{b} $SQ96E{b} & ;
$S13 = b%48 < /:4 $SQ48E{g} / $SQ48F{g} $SQ96E{g} :/ $SQ48F{b-} $SQ96E{b-} ;
$S14 = $SQ48E{a} $SQ48F{a} $SQ96E{f+} /:2 $SQ48E{f+} $SQ48F{f+} $SQ96E{f+} / $SQ48E{f+} $SQ48F{c} $SQ96E{f+} :/ ;
$S15 = /:2 $SQ48E{e} $SQ48F{e} $SQ96E{e} :/ /:2 $SQ48E{e-} $SQ48F{e-} $SQ96E{e-} :/;
$S16 = > /:2 $SQ48E{b} < $SQ48F{g} / > $SQ96E{b} :/ $SQ96E{d} /:2 $SQ48E{e} $SQ48F{g+} $SQ96E{e} :/ ;
$S17 = $SQ48E{c} $SQ48F{e} $SQ96E{c} $SQ48E{c} $SQ48F{g} $SQ96E{c} $SQ48E{c} < $SQ48F{e} > $SQ96E{c} $SQ48E{c} $SQ48F{c} $SQ96E{c} ;
$S18 = /:2 $SQ48E{e} $SQ48F{e} / $SQ96E{g} :/ $SQ96E{e} > /:2 $SQ48E{b} < $SQ48F{b} > $SQ96E{b} :/ /:2 $SQ48E{b} $SQ48F{b} / $SQ96E{b} :/ $SQ48E{b} ;
$S19 = o4 < $SQ96H{g} $SQ96H{g} $SQ96H{g} $SQ48G{b-} $SQ96F2{a} & a%240 & $SQre{a,48} ;
$S1A = < $SQ96F2{e-} & e-%16 & $SQre{e-,32} $SQ96H{e-} $SQ96H{e-} $SQ48G{g} $SQ96F2{f} & f%192 & $SQre{f,48} > $SQ48F{e-} & f%48 & ;
$S1B = $SQre{f,48} /:2 $SQ48E{d} $SQ48F{b-} $SQ96E{d} :/ /:2 $SQ48E{c} / $SQ48F{a} $SQ96E{c} :/ $SQ48F{b-} $SQ96E{a} ;
$S1C = > $SQ48E{b-} < $SQ48F{b-} $SQ96E{a} $SQ48E{g} $SQ48F{a} $SQ96E{b-} > $SQ48E{a} << $SQ48F{c} > $SQ96E{f+} $SQ48E{f+} < $SQ48F{c} > $SQ48E{f+} ;
$S1E = < $SQ96F2{e-} & e-%16 & $SQre{e-,32} $SQ96H{e-} $SQ96H{e-} $SQ48G{g} $SQ96F2{f} & f%192 & $SQre{f,96} > $SQ24F{e-} $SQ24F{f} ;
$S1F = $SQ48E{g} $SQ96E{g} $SQ96E{g} > $SQ48E{b-} < $SQ48E{d} > $SQ48E{b-} < $SQ96E{d} $SQ96F2{b-} $SQ96F2{a} $SQ48F{g} $SQ24F{a} $SQ24F{b-} ;
$S1G = < $SQ48E{c} $SQ96E{c} $SQ96E{c} > $SQ48E{f} $SQ48E{g} $SQ48E{f} $SQ96E{g} < $SQ96F2{c} > $SQ96F2{b-} $SQ48F{a} $SQ24F{g} $SQ24F{a} ;
$S1H = $SQ96H{b-} $SQ48E{b-} $SQ96E{b-} & b-%48 $SQ96F2{g} $SQ96F2{a} & a%48 $SQ48F{g} & $SQre{g,48} $SQ48E{a} $SQ48F{a} $SQ48E{b-} ; 
$S1I = $SQ48E{a} $SQ48E{c} > $SQ48F{a} < $SQ48E{c} $SQ48E{e} $SQ48E{c} $SQ48F{e} $SQ48E{c} /:2 $SQ48E{f+} $SQ48E{d} $SQ48F{c} $SQ48E{d} :/ ;
$S1J = < $SQ48F{e} $SQ48E{g} $SQ48E{e} $SQ48F{f+} $SQ48E{d} $SQ48E{f+} > $SQ96F2{b} & b%288 & $SQre{b,96} ;
$S1L = $SQ48F{c} $SQ48E{e} $SQ48E{g} $SQ48F{d} $SQ48E{f+} $SQ48E{a} /:4 $SQ48F{e} > $SQ48E{b} < :/ $SQ48F{e} > $SQ48F{b} < $SQ96H{c} & $SQre{c,96} r%192;
$S1M = > $SQ96F2{a} < $SQ96F2{c} $SQ96F2{e-} $SQ96F2{g} < $SQ96F2{c} > $SQ96F2{g} $SQ96F2{e-} $SQ96F2{c} ;
$S1N = < /:2 $SQ64X{e-} $SQ64X{c} :/ > $SQ64X{a} < $SQ64X{c} > $SQ64X{a} $SQ64X{e-} $SQ64X{a} $SQ64X{c} $SQ64X{e-} $SQ64X{c} ;
$S1P = $SQ96F2{g} & g%576 r%96 ;

/* *** play *** */

$ALL1 $ALLT $Sqr1 $S10 /:$LOOP $S11 $S12 $S13 $S14 $S15 $S16 $S17 $S18
$S19 $S1A $S1B $S1C $S19 $S1E $S1F $S1G $S1H $S1I $S1J $S1J $S1L $S1M $S1N $S1P :/
;


/* Tri ====================================================================== */

$TR192A{a,b,c,d,e} = %a%24 r%24 %b%24 r%24 %c%48 & %d%24 r%24 %e ;
$TR96B{a,b}  = %a%24 r%24 %b%24 r%24 ;
$TR96B2{a,b} = %a%16 r%32 %b%24 r%24 ;
$TR96C{a,b} = %a%24 r%24 %b%48 ;
$TR384D{a} = /:2 %a%17 r%31 %a%17 r%31 %a%43 r%5 %a%17 r%31 :/ ;
$TR144E{a,b,c} = %a%48 & %b%24 r%24 %c%24 r%24 ;
$TR480E{a} = %a%144 r%48 %a%32 r%64 %a%32 r%64 %a%32 r%64 ;

$T00 = @13-0 $Ex0 q16 @Q0 o5 d%96 & ;
$T01 = o3 /:4 $TR192A{g,<g,<<d,>>g,>} :/ < /:2 $TR192A{e,<e,<d,>e,>} :/ /:4 $TR96B{e,e} :/ ;
$T03 = /:4 $TR192A{e-,<e-,<e-,>e-,>} :/ /:2 $TR192A{d,<d,<c,>d,>} :/ $TR192A{d,<d,e,d,>} $TR192A{d,<d,<c,>d,>} ;
$T05 = /:4 $TR192A{c,<c,g,c,>} :/ > /:2 $TR192A{g,<g,<b,>g,>} :/ /:2 $TR192A{g+,<g+,<<d,>>g+,>} :/ ;
$T07 = /:3 $TR192A{a,<a,<<c,>>a,>} :/ $TR192A{a,<a,<e,>a,>} ;
$T08 = < /:2 $TR192A{d,<c,<c,>c,>} :/ > /:2 $TR192A{g,<g,<<d,>>g,>} :/ $TR192A{g,<g,<g,>g,>} $TR192A{g,<g,<d,>g,>};
$T09 = o4 /:2 /:3 $TR96B{c,b-} :/ $TR96C{c,f} & $TR96B2{f,c} /:2 $TR96B{f,c} :/ / $TR96B{f,b-} :/ $TR96B{f,c} ;
$T0B = $TR384D{g} $TR384D{f} $TR384D{e-} $TR384D{d} ;
$T0F = $TR384D{g} $TR384D{g} $TR384D{f} $TR384D{f} $TR384D{e-} $TR384D{e-} $TR384D{d} $TR384D{d} ;
$T0J = $TR144E{c,<e,g} $TR144E{>d,<f+,a} > $TR480E{e} ;
$T0L = $TR144E{>a,<<c,e} $TR144E{>>b,<<d,f+} > $TR480E{c} d%64 r%320 ;
$T0M = f%96 r%672 ;
$T0N = r%768 ;
$T0P = < d%432 r%48 >> g%48 r%48 g%48 r%48 << d%96 & ;

/* *** play *** */

$ALL1 $ALLT $Tri $T00 /:$LOOP $T01 $T03 $T05 $T07 $T08 $T09 $T0B $T09 $T0F $T0J $T0J $T0L $T0M $T0N $T0P :/ d%1
;