#TITLE Surprise Sunset (キラキラスターナイトDX, FC)
#ARTIST Robokabuto
#CODING Mayu Hiraizumi (dic.nicovideo.jp/u/11448931)
#COMMENT JASRAC work code 227-7639-7 / MML coded 2019/02/26 rev.0 / C Major -> A Major -> C Major
#COMMENT memo ... bass drum(drumcomp)


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

$TEMPO = t150.23 ; /* 150.23=T*60.09*60/round(L*60.09) , T=96time LN=38.34sec */
                   /* %1=4.160ms , round(L*60.09)/T/96/60.09 */
$RANGE = x0      ; /* linear dynamic range */
$NS    = ns0     ; /* note shift(tone part) */
$LOOP  = 28      ; /* repeat */

$VSa = @V120 ; /* 2A03 SQR */
$VSb = @V120 ; /* 2A03 SQR */
$VTc = @V88  ; /* 2A03 TRI */
$VNd = @V40  ; /* 2A03 NOI */
$VDe = @V88  ; /* 2A03 DMC */ 

$DT0 = @D12  ; /* tune default(tone part) */


/* Wave ===================================================================== */

#WAV13 0,80 86 86 86 86 86 86 86 86 86 86 86 87 96 96 96 96 96 96 96 96 96 95 95 95 9E A5 A5 A5 A5 A5 A5 A4 A4 A4 A4 A4 A5 B2 B3 B3 B3 B2 B2 B2 B2 B2 B1 B1 B1 B6 C0 C0 C0 BF BF BF BF BE BE BE BD BD CA CC CC CB CB CB CA CA CA C9 C9 C9 CC D7 D7 D6 D6 D6 D5 D5 D5 D4 D4 D3 D3 DD E1 E1 E0 E0 DF DF DF DE DE DD DD DE EA EA EA E9 E9 E8 E8 E7 E7 E6 E6 E6 ED F3 F2 F2 F1 F1 F0 F0 EF EF EE EE EE ED ED EC EC EB EB EA EA E9 E9 E9 E8 E2 D9 D9 D9 D8 D8 D7 D7 D7 D6 D6 D6 D5 C9 C6 C6 C6 C6 C5 C5 C5 C4 C4 C4 C4 C0 B5 B4 B4 B4 B4 B3 B3 B3 B3 B2 B2 B2 A7 A3 A3 A3 A2 A2 A2 A2 A2 A2 A2 A1 9F 92 92 92 92 92 92 91 91 91 91 91 91 88 81 81 81 81 81 81 81 81 81 81 81 80 72 72 72 72 72 72 72 72 72 72 72 72 6C 62 62 62 62 63 63 63 63 63 63 63 63 55 53 53 54 54 54 54 54 54 55 55 55 50 44 45 45 45 45 46 46 46 46 47 47 47 3A 36 36 37 37 37 38 38 38 39 39 39 37 28 28 29 29 2A 2A 2A 2B 2B 2B 2C 2C 21 1B 1B 1B 1C 1C 1D 1D 1D 1E 1E 1F 1E 0E 0D 0E 0E 0F 0F 10 10 11 11 12 12 0A 00 01 01 02 02 03 03 04 04 05 05 06 06 07 07 08 08 09 09 0A 0A 0B 0B 0C 12 20 20 21 21 21 22 22 23 23 23 24 24 33 37 38 38 38 39 39 39 39 3A 3A 3A 3E 4D 4D 4E 4E 4E 4E 4E 4F 4F 4F 4F 50 5B 62 62 62 62 62 62 62 62 63 63 63 65 74 74 74 75 75 75 75 75 75 75 75 75 /* 2A03 Tri */

#WAV13 1,80 F8 FF FF FF FE FE FD FD FC FC FB FA FA F9 F9 F8 F8 F7 F7 F6 F6 F5 F5 F4 F4 F3 F3 F3 F2 F2 F1 F1 F0 F0 EF EF EE EE ED ED EC EC EC EB EB EA EA E9 E9 E6 76 61 61 61 61 61 61 61 61 62 62 62 62 62 62 62 62 63 63 63 63 63 63 63 63 64 64 64 64 64 64 64 64 65 65 65 65 65 65 65 65 65 66 66 66 66 66 66 66 66 66 66 67 67 67 67 67 67 67 67 67 68 68 68 68 68 68 68 68 68 68 69 69 69 69 69 69 69 69 69 69 6A 6A 6A 6A 6A 6A 6A 6A 6A 6A 6A 6B 6B 6B 6B 6B 6B 6B 6B 6B 6B 6B 6B 6C 6C 6C 6C 6C 6C 6C 6C 6C 6C 6C 6D 6D 6D 6D 6D 6D 6D 6D 6D 6D 6D 6D 6D 6E 6E 6E 6E 6E 6E 6E 6E 6E 6E 6E 6E 6E 6F 6F 6F 6F 6F 6F 6F 6F 6F 6F 6F 6F 6F 6F 70 70 70 70 70 70 70 70 70 70 70 70 70 70 70 71 71 71 71 71 71 71 71 71 71 71 71 71 71 71 71 71 72 72 72 72 72 72 72 72 72 72 72 72 72 72 72 72 73 73 73 73 73 73 73 73 73 73 73 73 73 73 73 73 73 73 73 74 74 74 74 74 74 74 74 74 74 74 74 74 74 74 74 74 74 74 75 75 75 75 75 75 75 75 75 75 75 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 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 77 77 77 77 77 77 77 77 77 77 77 77 78 78 78 78 78 78 78 78 78 78 78 78 78 78 78 78 78 78 78 78 78 78 78 78 78 78 78 78 78 79 79 79 79 79 79 79 79 /* 2A03 Sqr 12.50 */

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

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

/* coded by http://gocha.s151.xrea.com/onlinetool/DPCMConverter.swf */
#WAV9 0,26,0,Af79B/7/PwCA////EwAAAP3///+BAAAAwP////8CEQAAgPv+//8vIogAAED3dvf/fxMhiQIASK67697f30aRSISAgNJu222/uz9NiSQSiCAS1a67vX59d1UpSSRChISoqq3b3V5322dVSqIQiSikUKXattt2d23XtarRiCKRRJEkJVVV29W3beu6Vj2nSlKSJCGTGCVlStXp1t22tbWuVqfNlElFiiRKSiYjM1mqZu1qe7atrbVmtsyqqkqKoiRFSaVKlspUM8ty1V1r22ary2ZmVVWZlZaUFKUkQ5mqzFRWWmZWVbNWa9fWZrPZsqaqqskyUyuWiipSqiSTykw1UzbNtKxaqa5ardPWja2ZTTNrWqxGWaqqLEuqqFRKGS1lqkxTudSsqmk1VV1Vq6rV2tZSa1qWtaxMS1mppVSpyqpSKVWpsVRKUymdmrKy0kpdWa1albZaVVW1qlVrNa2mVotVU1ZqJWtFpSpVVWpVlVJVpSorKi1VVupUqZVWY7oqrVbVqlpVraqqTlWtqpVOrXKqpZbKqdJSlapaqaqqQlVVVTWpqqpSraKtUhW1Yq3UqlitVtRWVauqalVVVVVXVVVpVVV1VSpvVLVSqSulrlSpOpWqKlVVpaqqqqqwqqpKVaq1qlaoVVWpVlWNalWrqFZVTa1WFVW1qtWqqqqqVVWpq1RVparVSlWl6itKVVXaqkpVVaWqqqqqqqpSraqqqipVVaqqrgqtqlpVVVVFVV2qVlVVlaqqqmpV1aqqVFVVVa2qSlVNVdUqVauqvCpalaqqqqqqquoqU1VVpaqqqmpVVaqqqqpWqVJVtaqqqipVVauqqqpSVbWqqqoqFatUVV1VVVVVVVVVVauqVFVVVbWqSlUtVVWqqq6qUlWlquqqKlVVqlarqlJVVVW1qipVVfVSVVWtqqKqqlTVqqqqqlJVraqqqipV1aoqq6pSVVVVtapqVVVQq2pVqapaVVVVlapVVVVVVVVVrapKVVVV1aqqVFVVVbWqSlVVVVWrqlRVU1W1qqqqKlVVq6qqqlJVparqqipVVaqqrqpSVaWqs6oqVVVVVa2qUlVVVdWqKlVVVVWtqlJVVVXVqipVrVRVraqyqkpV1aqqqqpUVamquqpKVZWqqquqVFWparWqSlVVVVWrQqtqVTUzMzMzMzMzMzM=

#WAV10 1,ffffffffffffffff0000000000000000 /* for LFO */


/* Data ===================================================================== */

$Ex0 = @E1,0,0,127,0 ;
$LxA1 = @L16,32,10-1,48,99,0 ;
$LxA2 = @L19,32,10-1,80,99,0 ;
$LxA3 = @L19,32,10-1,24,99,0 ;


/* TEMPO ==================================================================== */

$TEMPO
;
/*@7 $Ex0 @Q44 o0 @V20 o0 /:999 a4 :/
;*/


/* SQRa ===================================================================== */

/* [[[01-08]]] */

/* 8(1) 8(2) 8(2) 8(2) ... 3() */
$AA4 = @13-2 %a%4 ;
$AA8 = @13-2 %a%8 ;
$AB4 = @13-4 %a%4 ;
$AB8 = @13-4 %a%8 ;
$Aa2028{a} = @X64 $AA4 & $AB8 & $AA8 & @X24 $AB8 & $AA4 & $AB8 & $AA8 ;
$Aa2004{a} = @X64 $AA4 & $AB8 & $AA8 & @X24 $AB4 ;
$Aa4404{a} = @X64 /: $AA4 & $AB8 & $AA4 & / %a%4 & $AB8 & :/ @X24 %a%4 ;
$Aa4428{a} = @X64 /: $AA4 & $AB8 & $AA4 & / %a%4 & $AB8 & :/ @X24 %a%4 $AB8 & $AA4 & $AB8 & $AA4 ;
$Aa6804{a} = @X64 /:3 $AA4 & $AB8 & / $AA8 & $AB8 & :/ @X24 %a%4 ;
$Aa140048004{a} = @X64 /:5 $AA4 & $AB8 & $AA8 & $AB8 & :/ @X24 /: $AA4 & $AB8 & $AA8 / & $AB8 & :/ r%4 ;

$a00 = q16 @Q0 $Ex0 ;
$a01a = $LxA1 o6 $Aa4404{g} <$Aa2028{c} $Aa4404{c} >$Aa2004{b} ;
$a01b = <$Aa6804{c} >$Aa4404{b} <$Aa2028{c} $Aa2028{d} ; 
$a02b = $Aa6804{g} $Aa4404{f} $Aa2028{e} $Aa2028{f} ; 
$a04  = $Aa4428{e} $Aa4428{c} >$Aa4428{b} <$Aa4404{c} >$Aa2004{g} <$Aa4404{a} $Aa2028{g} ;
$a07  = $Aa4404{g} <$Aa2028{c} $Aa4404{c} $Aa2004{d} $Aa6804{f} $Aa2028{e} $Aa4404{d} $Aa4404{e} ;
$a08a = $Aa140048004{c} ;

/* 9(1) 8(1) 7(1) 3() */
$Ab24{a} = @13-1 @X72 %a%4 & @13-2 @X64 %a%4 & @X56 %a%4 & @X24 %a%12 ;
/* 9(1) 8(1) 7(1) / 4(1) 3() */
$Ac24{a,b,c} = @13-1 @X72 %a%4 & @13-2 @X64 %a%4 & @X56 %a%4 & %b @13-1 @X32 %c%4 & @13-2 @X24 %c%8 ;

$a08b = o5 $Ab24{b} <$Ac24{e,>,b} <$Ac24{g+,,e} $Ac24{b,,g+} $Ac24{e,,b} $Ac24{g+,,e} $Ac24{b,,g+} <$Ac24{e,>,b} ;

/* [[[09-16]]] */

/* 8(1) 8(1) 8() 3() */
$Ad2004{a} = @13-1 @X64 %a%4 & @13-2 %a%4 & @13-4 %a%12 & @X24 %a%4 ;
$Ad2028{a} = @13-1 @X64 %a%4 & @13-2 %a%4 & @13-4 %a%12 & @X24 %a%28 ;
$Ad4404{a} = @13-1 @X64 %a%4 & @13-2 %a%4 & @13-4 %a%36 & @X24 %a%4 ;
$Ad6804{a} = @13-1 @X64 %a%4 & @13-2 %a%4 & @13-4 %a%60 & @X24 %a%4 ;
$Ad6828{a} = @13-1 @X64 %a%4 & @13-2 %a%4 & @13-4 %a%60 & @X24 %a%28 ;
$Ad9204{a} = @13-1 @X64 %a%4 & @13-2 %a%4 & @13-4 %a%84 & @X24 %a%4 ;
$Ad204804{a} = @13-1 @X64 %a%4 & @13-2 %a%4 & @13-4 %a%12 & @X24 %a%48 r%04 ;
$Ad140004{a} = @13-1 @X64 %a%4 & @13-2 %a%4 & @13-4 %a%132 & @X24 %a%4 ;
$Ad188004{a} = @13-1 @X64 %a%4 & @13-2 %a%4 & @13-4 %a%180 & @X24 %a%4 ;
$Ad192048{a} = @13-1 @X64 %a%4 & @13-2 %a%4 & @13-4 %a%184 & @X24 %a%48 ;

$a09  = & b%24 r%24 $Ad2028{c+} $Ad4404{c+} $Ad2004{d} $Ad6804{e} $Ad2028{c+} $Ad4404{e} $Ad2028{a} ;
$a10  = $Ad6804{b} <$Ad204804{c+} >$Ad9204{a} $Ad4404{g+} $Ad4404{f+} $Ad4404{a} ;
$a11  = $Ad9204{g+} $Ad4404{a} $Ad9204{b} $Ad2028{e} <$Ad4404{e} $Ad4404{d} ;
$a12  = $Ad9204{c+} $Ad2028{d} $Ad9204{c+} >$Ad9204{g+} $Ad4404{b} ; 
$a13  = $Ad140004{a} $Ad6828{f+} $Ad2028{f+} $Ad4404{g+} $Ad4404{a};
$a14  = $Ad9204{g+} $Ad2028{a} $Ad9204{b} $Ad9204{e} <$Ad188004{e} $Ad9204{d} $Ad9204{c+} $Ad2028{d} ;
$a16  = $Ad9204{c+} >$Ad2028{b} $Ad192048{b};

/* [[[17-24]]] */

/* 8(1) 8() 3() */
$Ae2004{a} = @13-4 @X64 %a%4 & @13-2 %a%16 & @X24 %a%4 ; 
$Ae2028{a} = @13-4 @X64 %a%4 & @13-2 %a%16 & @X24 %a%28 ; 
$Ae4404{a} = @13-4 @X64 %a%4 & @13-2 %a%40 & @X24 %a%4 ; 
$Ae4428{a} = @13-4 @X64 %a%4 & @13-2 %a%40 & @X24 %a%28 ; 
$Ae6804{a} = @13-4 @X64 %a%4 & @13-2 %a%64 & @X24 %a%4 ; 
$Ae9204{a} = @13-4 @X64 %a%4 & @13-2 %a%88 & @X24 %a%4 ; 
$Ae924804{a} = @13-4 @X64 %a%4 & @13-2 %a%88 & @X24 %a%48 r%4 ; 
$Ae140004{a} = @13-4 @X64 %a%4 & @13-2 %a%136 & @X24 %a%4 ; 
$Ae192048{a} = @13-4 @X64 %a%4 & @13-2 %a%188 & @X24 %a%48 ; 

$a17  = $LxA2 o7 r%48 $Ae2028{c} $Ae4404{c} >$Ae2004{b} <$Ae6804{c} >$Ae2028{b} <$Ae4404{c} $Ae4404{d};
$a18  = $Ae140004{e} $Ae9204{c} >$Ae9204{a} <$Ae2028{c} ;
$a19  = >$Ae140004{b} $Ae9204{g} $Ae2028{g} <$Ae4404{g} $Ae4404{f} $Ae9204{e} $Ae2028{d} $Ae9204{c+} >$Ae4428{a} $LxA3 $Ae6804{b} ;
$a21  = $LxA2 <$Ae924804{c} >$Ae9204{f} $Ae2028{f} <$Ae4404{d} $Ae4404{c} >$Ae9204{b} <$Ae2028{c} >$Ae9204{b} $Ae9204{g} $Ae4404{f} ;
$a23  = $Ae924804{e} <$Ae192048{c} ;
$a24  = $LxA1 o6 r%192 $Aa2004{b} <$Ad2028{c} >$Aa2004{g} <$Ad4404{a} $Ad2028{g} ;

/* [[[Play]]] */

$RANGE $NS $VSa $DT0 $a00
/: $a01a $a01b $a01a $a02b / $a01a $a01b $a04 :/ $a07 $a08a $a08b
/:$LOOP
 $a09 $a10 $a11 $a12 $a13 $a14 $a16 $a17 $a18 $a19 $a21 $a23 $a24
 /: $a01a $a01b $a01a $a02b / $a01a $a01b $a04 :/ $a07 $a08a $a08b
:/
;


/* SQRb ===================================================================== */

/* [[[01-08]]] */

/* 7(1) 6(1) 5(1) 33(2) 2(1) */
$Ba24{a} = @13-1 @X56 %a & @13-2 @X48 %a & @X40 %a r%12 ;
$Bb24{a,b,c} = @13-1 @X56 %a & @13-2 @X48 %a & @X40 %a %b @13-1 @X24 %c & @13-2 %c & @X16 %c ;

$b00  = l96 q16 @Q0 $Ex0 ;
$b01a = $Ba24{o6e} $Bb24{c,,e} >$Bb24{a,<,c} >$Bb24{f,,a} $Bb24{a,,f} $Bb24{f,,a} $Bb24{a,,f} <$Bb24{c,>,a};
$b01b = $Bb24{f,<,c} >$Bb24{a,,f} <$Bb24{c,>,a} $Bb24{a,<,c} $Bb24{c,>,a} $Bb24{a,<,c} $Bb24{c,>,a} <$Bb24{f,,c} ;
$b02a = $Bb24{e,,f} $Bb24{c,,e} >$Bb24{g,<,c} >$Bb24{e,,g} <$Bb24{c,>,e} $Bb24{g,<,c} >$Bb24{e,,g} $Bb24{g,,e} ;
$b02b = <$Bb24{g,>,g} <$Bb24{f,,g} $Bb24{e,,f} $Bb24{c,,e} >$Bb24{g,<,c} >$Bb24{f,,g} $Bb24{e,,f} $Bb24{g,,e} ;
$b03a = <$Bb24{f,>,g} <$Bb24{c,,f} >$Bb24{a,<,c} >$Bb24{f,,a} <$Bb24{c,>,f} $Bb24{a,<,c} >$Bb24{f,,a} <$Bb24{c,>,f} ;
$b03b = $Bb24{f,<,c} >$Bb24{a,,f} <$Bb24{c,>,a} $Bb24{a,<,c} $Bb24{f,>,a} <$Bb24{c,,f} $Bb24{a,,c} $Bb24{f,,a} ;
$b04a = $Bb24{g,,f} $Bb24{e,,g} $Bb24{c,,e} >$Bb24{g,<,c} $Bb24{e,>,g} <$Bb24{c,,e} $Bb24{g,,c} $Bb24{c,,g} ;
$b04b = <$Bb24{c,>,c} $Bb24{b,<,c} >$Bb24{g,,b} $Bb24{f,,g} $Bb24{e,,f} $Bb24{c,,e} >$Bb24{g,<,c} >$Bb24{e,,g} ;
$b05a = <$Bb24{e,>,e} <$Bb24{c,,e} >$Bb24{a,<,c} >$Bb24{f,,a} $Bb24{a,,f} $Bb24{f,,a} $Bb24{a,,f} <$Bb24{c,>,a};
$b08a = $Bb24{e,,f} >$Bb24{g,<,e} $Bb24{c,>,g} <$Bb24{e,,c} >$Bb24{g,<,e} $Bb24{c,>,g} <$Bb24{e,,c} $Bb24{g,,e} ;
$b08b = >$Bb24{g+,<,g} >$Bb24{b,,g+} <$Bb24{e,>,b} <$Bb24{g+,,e} >$Bb24{b,<,g+} $Bb24{e,>,b} <$Bb24{g+,,e} $Bb24{b,,g+} ;

/* [[[09-16]]] */

/* 777(3) 666(3) 222(6) */
$BX12 = @13-4 %a & @13-2 %b & @13-1 %c ;
$BX24 = @13-4 %a & @13-2 %b & @13-1 %c & @13-4 %a & @13-2 %b & @13-1 %c ;
$Bc2400{a,b,c} = @X56 $BX12 & @X48 $BX12 ;
$Bc2424{a,b,c} = @X56 $BX12 & @X48 $BX12 & @X16 $BX24 ;
$Bc2448{a,b,c} = @X56 $BX12 & @X48 $BX12 & @X16 $BX24 & $BX24 ;
$Bc4824b{a,b,c} = @X56 $BX12 & @X48 $BX24 & $BX12 & @X16 $BX24 ;
/* 777(3) 666(3) 555(3) 444(3) 222(6) */
$Bc4824{a,b,c} = @X56 $BX12 & @X48 $BX12 & @X57 $BX12 & @X49 $BX12 & @X16 $BX24 ;
$Bc4800{a,b,c} = @X56 $BX12 & @X48 $BX12 & @X57 $BX12 & @X49 $BX12 ;
$Bc7200{a,b,c} = @X56 $BX12 & @X48 $BX12 & @X57 $BX12 & @X49 $BX24 & $BX12 ;

$b09 = $Bc2424{o6c+,>e,a} $Bc4824{o6c+,>e,a} $Bc2424{o6c+,>e,a} $Bc2448{o6c+,>e,a} $Bc4824{o6c+,>e,a} $Bc4800{o6c+,>e,a} $Bc2400{o6c+,>e,a} ;
$b10 = $Bc2424{o6c+,>f+,a} $Bc4824{o6c+,>f+,a} $Bc4800{o6c+,>f+,a} $Bc2448{o6c+,>f+,a} $Bc4824{o6c+,>f+,a} $Bc4800{o6c+,>f+,a} $Bc2400{o6c+,>f+,a} ;
$b11 = $Bc2424{o5b,e,g+} $Bc4824{b,e,g+} $Bc2424{b,e,g+} $Bc2448{b,e,g+} $Bc4824{b,e,g+} $Bc4800{b,e,g+} $Bc2400{b,e,g+} ;
$b12 = $Bc2424{o6c+,>f+,a} $Bc4824{o6c+,>f+,a} $Bc4800{o6c+,>f+,a} $Bc2400{o6c+,>f+,a} $Bc2424{o5b,f,g+} $Bc4824{o5b,f,g+} $Bc7200{o5b,f,g+} ;
$b13 = $Bc2424{o6c+,>f+,a} $Bc4824{o6c+,>f+,a} $Bc4800{o6c+,>f+,a} $Bc2448{o6c+,>f+,a} $Bc4824{o6c+,>f+,a} $Bc4800{o6c+,>f+,a} $Bc2400{o6c+,>f+,a} ;
$b14 = $Bc2424{o5b,e,g+} $Bc4824{b,e,g+} $Bc2424{b,e,g+} $Bc2448{b,e,g+} $Bc4824{b,e,g+} $Bc4800{b,e,g+} $Bc2400{b,e,g+} ;
$b15 = $Bc2424{o6c+,>f+,a} $Bc4824{o6c+,>f+,a} $Bc4800{o6c+,>f+,a} $Bc2448{o6c+,>f+,a} $Bc4824{o6c+,>f+,a} $Bc4800{o6c+,>f+,a} $Bc2400{o6c+,>f+,a} ;
$b16 = $Bc2424{b,e,a} $Bc4824{b,e,a} $Bc2424{b,e,a} $Bc2400{b,e,a} $Bc2424{g+,>b,<e} $Bc4824b{b,e,g+} $Bc4824b{<e,>g+,b} ;

/* [[[17-24a]]] */

/* 8(1) 7(1) 6(1) 55(2) 2() */
$Bd24{a} = @X64 %a & @X56 >%a & @X48 <%a & @X40 >%a & <%a & @X16 >%a< ;
$Bd48{a} = @X64 %a & @X56 >%a & @X48 <%a & @X40 >%a & <%a & @X16 >%a&<%a&>%a&<%a&>%a&<%a&>%a< ;
/* 3(3) 2(2) 1(1) */
$Be24{a} = @X24 %a&>%a&<%a & @X16 >%a&<%a & @X8 >%a< ;

$b17a = o7 @13-2 $Bd48{e} ;
$b17b = $Bd24{e} $Bd24{c} $Be24{e} $Bd24{c} >$Bd24{a} <$Be24{c} >$Bd24{a} $Bd24{f} $Be24{a} $Bd24{f} $Bd24{a} $Bd24{f} <$Bd24{c} ;
$b17c = $Bd24{f} ;
$b18a = $Bd24{e} $Be24{f} ;
$b18c = $Bd24{e} ;
$b19  = $Bd24{d} $Be24{e} $Bd24{d} >$Bd24{b} <$Be24{d} >$Bd24{b} $Bd24{g} $Be24{b} $Bd24{g} $Bd24{g} $Be24{g} $Bd24{g} $Bd24{b} $Bd24{g} <$Bd24{d} $Bd24{g} ;
$b20  = $Bd24{e} $Be24{g} $Bd24{e} $Bd24{c+} $Be24{e} >$Bd24{a} <$Be24{c+} $Bd24{c+} $Bd24{e} $Be24{c+} $Bd24{c+} $Bd24{e} $Bd24{a} $Bd24{e} $Bd24{a} <$Bd24{c+} ;
$b21  = >$Bd24{e} <$Be24{c+} >$Bd24{e} $Bd24{c} $Be24{e} $Bd24{c} >$Bd24{a} <$Be24{c} >$Bd24{a} $Bd24{f} $Be24{a} $Bd24{f} $Bd24{a} $Bd24{f} <$Bd24{c} $Bd24{e} ;
$b22  = $Bd24{d} $Be24{e} $Bd24{d} >$Bd24{b} <$Be24{d} >$Bd24{b} $Bd24{g} $Be24{b} $Bd24{g} $Bd24{b} $Be24{g} $Bd24{b} <$Bd24{d} >$Bd24{b} <$Bd24{g} $Bd24{b} ;
$b23  = $Bd24{g} $Be24{b} $Bd24{e} $Be24{g} $Bd24{c} $Be24{e} $Bd24{g} $Bd24{f} $Be24{g} $Bd24{d} $Be24{f} >$Bd24{b} <$Bd24{d} >$Bd24{b} <$Bd24{g} $Bd24{b} ;
$b24a = <$Bd24{c} >$Bd24{b} $Bd24{g} $Bd24{f} $Bd24{e} $Bd24{c} $Bd24{g} $Bd24{f} ;

/* [[[24b-32]]] */

/* 6(1) 6(2) 6(2) 6(2) ... 3() */
$BY4 = @13-2 %a%4 ; /* =AA4 */
$BY8 = @13-2 %a%8 ; /* =AA8 */
$BZ4 = @13-4 %a%4 ; /* =AB4 */
$BZ8 = @13-4 %a%8 ; /* =AB8 */

$Bf2028{a} = @X48 $BY4 & $BZ8 & $BY8 & @X24 $BZ8 & $BY4 & $BZ8 & $BY8 ;
$Bf2004{a} = @X48 $BY4 & $BZ8 & $BY8 & @X24 $BZ4 ;
$Bf4404{a} = @X48 /: $BY4 & $BZ8 & $BY4 & / %a%4 & $BZ8 & :/ @X24 %a%4 ;
$Bf4428{a} = @X48 /: $BY4 & $BZ8 & $BY4 & / %a%4 & $BZ8 & :/ @X24 %a%4 $BZ8 & $BY4 & $BZ8 & $BY4 ;
$Bf6804{a} = @X48 /:3 $BY4 & $BZ8 & / $BY8 & $BZ8 & :/ @X24 %a%4 ;
$Bf140048004{a} = @X48 /:5 $BY4 & $BZ8 & $BY8 & $BZ8 & :/ @X24 /: $BY4 & $BZ8 & $BY8 / & $BZ8 & :/ r%4 ;

$b24b = o6 $Bf2004{g} $Bf2028{g} $Bf2004{e} <$Bf4404{f} $Bf2028{e} ;
$b25  = o6 $Bf4404{e} $Bf2028{g} $Bf4404{g} $Bf2004{g} $Bf4404{g} $Bf2004{e} $Bf2004{g} $Bf2004{e} $Bf2004{g} $Bf2004{e} $Bf2004{b} $Bf2004{g} ;
$b26  = $Bf4404{e} $Bf2028{g} $Bf4404{g} $Bf2004{g} $Bf4404{e} $Bf2004{c} $Bf2004{d} >$Bf2004{g} <$Bf2004{c} >$Bf2004{g} <$Bf2004{d} >$Bf2004{g} ;
$b27  = <$Bf4404{e} $Bf2028{e} $Bf4404{e} $Bf2004{e} $Bf4404{e} $Bf2004{c} $Bf2004{e} $Bf2004{c} $Bf2004{e} $Bf2004{c} $Bf2004{b} $Bf2004{g} ;
$b28  = <$Bf4428{c} >$Bf4428{g} $Bf4428{g} $Bf4404{g} $Bf2004{e} <$Bf4404{f} $Bf2028{e} ;
$b31  = <$Bf4404{e} $Bf2028{a} $Bf4404{a} $Bf2004{b} <$Bf6804{d} $Bf2028{c} >$Bf4404{b} $Bf4404{b} ;
$b32a = $Bf140048004{g} ;

/* 7(1) 6(1) 5(1) 2() */
$Bg24{a} = @13-1 @X56 %a%4 & @13-2 @X48 %a%4 & @X40 %a%4 & @X16 %a%12 ;

$b32b = o5 $Bg24{g+} $Bb24{b,,g+} <$Bb24{e,>,b} <$Bb24{g+,,e} >$Bb24{b,<,g+} $Bb24{e,>,b} <$Bb24{g+,,e} $Bb24{b,,g+} ;

/* [[[Play]]] */

$RANGE $NS $VSb $DT0 $b00
$b01a $b01b $b02a $b02b $b03a $b03b $b04a $b04b $b05a $b01b $b02a $b02b $b03a $b03b $b08a $b08b
/:$LOOP 
 $b09 $b10 $b11 $b12 $b13 $b14 $b15 $b16
 $b17a $b17b $b17c $b18a $b17b $b18c $b19 $b20 $b21 $b22 $b23 $b24a $b24b
 $b25 $b26 $b27 $b28 $b25 $b26 $b31 $b32a $b32b
:/
;


/* TRIc ===================================================================== */

/* [[[01-24]]] */

$Ca288{a} = %a8<%ar >%a8<%a%a >%a<%a8>%a ;
$Ca192{a} = %a8<%ar >%a8<%a%a> ;
$Cb384{a} = %a8<%ar >%a8<%a%a> %a<%a8%a >%a8<%a8> ;
$Cc192{a} = %a<%a8%a >%a8<%a8> ;

$c00 = l16 q16 @Q2 $Ex0 @13-0 ;
$c01 = o3 $Ca288{f} a<cf8 >$Ca288{e} g<c>b<c ;
$c03 = >$Ca288{d} a<cf8 >$Ca192{c} e<e8>e g<cg8 ;
$c07 = >$Ca192{d} g<g8>g<d>g<g8 >$Ca192{c} e<e8e g+eb8;
$c09 = o3 $Cb384{a} $Cb384{d} $Cb384{c+} >$Ca192{b} <$Cc192{f} ;
$c13 = $Cb384{f+} $Cb384{e} $Cb384{d} $Ca192{e} f+b8bg+b<e8 ;
$c17 = o3 $Cb384{f} $Ca192{f} g<g8g>f8<f8 >$Cb384{e} $Ca192{a} a<a8a>c+8<c+8 ;
$c21 = >$Cb384{d} $Cb384{g} <$Cb384{c} c4.g8<c8.>g8.c8 ; 

/* [[[Play]]] */

$RANGE $NS $VTc $DT0 $c00
$c01 $c03 $c01 $c07
/:$LOOP
 $c09 $c13 $c17 $c21
 $c01 $c03 $c01 $c07 
:/
;


/* NOId ===================================================================== */

/* [[[01-24]]] */

$C96 = @X88g+ @X80g+%8 @X72g+g @X64g%12 @X56f+%16 @X48g+%12 g%12 f+%12 g+ @X40g+%8 ;
$S24 = @X88g+ @X48g+ @X72g+ @X40g+ @X56g+ @X32g+ ;
$S48 = @X88g+ @X48g+ @X72g+ @X40g+ @X56g+ @X32g+ @X40g+ @X24g+ @X32g+ @X16g+ @X24g+ @X8g+ ;
$O24 = @X88d+ @X64d+ @X56d+ @X48d+ @X40d+ @X32d+ ;
$O48 = @X80d+ @X64d+%8 @X56d+ @X48d+ @X40d+ @X32d+ @X24d+ @X16d+%8 @X8d+c ;
$H24 = @X80c+ @X56c+ r%16 ;
$HH48 = @X80c+ @X56c+ r%16 @X80c+ @X56c+ r%16 ;

$CSO = $C96 $S48 $O48 ;
$HHOSO = $HH48 $O48 $S48 $O48 ;
$HHOSOS = $HH48 $O48 $S48 $O24 $S24 ;
$HHOSRS = $HH48 $O24 $S24 r%48 $S48 ;

$d00 = l96 q16 @Q0 $Ex0 @7 o0 ;
$d01 = $CSO $HHOSO $HHOSO $HHOSOS $HHOSO $HHOSO $HHOSO $HHOSRS ;
$d05 = $CSO $HHOSO $HHOSO $HHOSOS $HHOSO $HHOSO $HH48 $S48 $S48 $O24 $S24 r%24 $S24 $S48 $S48 $S24 $S24 ;
$d13 = $CSO $HHOSO $HHOSO $HHOSOS $HHOSO $HHOSO $HH48 $O48 $S48 $O24 $S24 $HH48 $S48 $H24 r%24 $S48 ;
$d21 = $CSO $HHOSO $HHOSO $HHOSOS $HHOSO $HHOSO $C96 $HH48 $O48 $S24 $S24 $S48 $S24 $S48 $S24 ;

/* [[[Play]]] */

$RANGE $VNd $d00
$d01 $d05 
/:$LOOP
 $d01 $d13 $d01 $d21
 $d01 $d05
:/
;


/* DMCe ===================================================================== */

/* [[[01-24]]] */

$e00 = l4 q16 @Q0 $Ex0 @9-0 o0 ns10 @E1,0,0,384,0 ;
$e01 = cccccccc8c8 ;
$e03 = ccccccc8.c16c8c8 ;
$e07 = cccccc8.c16c8c8c8c16c16 ;
$e09 = cccccccc ; 
$e23 = ccccc2c16c16c16c16c8c16c16;

/* [[[Play]]] */

$RANGE $VDe $e00
$e01 $e03 $e01 $e07
/:$LOOP
 $e09 $e03 $e09 $e07 $e01 $e03 $e01 $e23
 $e01 $e03 $e01 $e07
:/
;