/*
   [FC] CHALLENGER [SCENE 2 : SEARCH PRINCESS!] (C)HUDSON SOFT 1985
   FlMML MML by LinearDrive
   date:2011-06-19 [FlMML c.s.7997]
   JASRAC: 050-5463-0
*/


#OCTAVE REVERSE
#VELOCITY REVERSE


/* エンベロープ定義 */
$EF= @e1, 0,112, 0, 0;
$EE= @e1, 0,108, 0, 0;
$ED= @e1, 0,103, 0, 0;
$EC= @e1, 0, 98, 0, 0;
$EB= @e1, 0, 92, 0, 0;
$EA= @e1, 0, 86, 0, 0;
$E9= @e1, 0, 80, 0, 0;
$E8= @e1, 0, 73, 0, 0;
$E7= @e1, 0, 66, 0, 0;
$E6= @e1, 0, 59, 0, 0;
$E5= @e1, 0, 51, 0, 0;
$E4= @e1, 0, 43, 0, 0;
$E3= @e1, 0, 35, 0, 0;
$E2= @e1, 0, 27, 0, 0;
$E1= @e1, 0, 18, 0, 0;
$E0= @e1, 0,  9, 0, 0;


/* 音量バランス定義 */
$VS15= @v63;
$VT=   @v124;


/* シーケンサ初期化 */
$M= r8 x0 q16 @q0 o5 ns0 @d0 @x127 v0
;


/* RP2A03 SQUARE-A */
$MA0=
   $M l16 @5@w1 o5 $VS15
   $E6
   d+r<a+>ga+4frca>c4< grdb>d4.<gd<b>bgd
;
$MA1= 
   a8r8>c+4d4e4 g4f+8e8r8c+8d8e8
   r4g4.f+4. e1
   /:3
     r4c+4d4e4 g4f+8e8r8c+8d8e8
     r4g4.f+4. e1
   :/
   /:4
     e8c8<a8f8f2> d8<b8g8d8d2>
     c+8<b8a8e8e2 d8c+8a2. / >
   :/
   /:2
     b8a8g+8f+4g+4b8 b8a8g+8f+4g+4b8
     a8g+8f+8d4f+8g+8a8 a8g+8f+8d4f+8g+8a8
   :/
   /:2
     b8a8g+8f+4g+4b8 a8g+8f+8d4f+8g+8a8
   :/
   greg>c8<g8>e2< arf+a>d8<a8>f+2
   g+8f+8 e8<b8 ag+>e<b ag+e<b  e2 r8b>c+ d<e>g+d
;


/* RP2A03 SQUARE-B */
$MB0=
   $M l16 @5@w1 o4 $VS15
   $E6
   ga+ga+>g4<a>c<a>ca4 <b>d<b>db2.
;
$MB1=
   r4a8e8b8g8>c+8<a8> e4d8c+8r8<a8b8>c+8
   r4d8<b8>c+8<a8b8g8> c+4.<g4b4>d8
   /:3
     c+4<a8e8b8g8>c+8<a8> e4d8c+8r8<a8b8>c+8
     r4d8<b8>c+8<a8b8g8> c+4.<g4b4>d8
   :/
   /:4
     <a4.>a8e8c4. <b4.>g8d8<b4.
     e4.>e8d8c+4<a8 a4e4.e8a8>e8
   :/
   /:2
     e4<e8b4e4>e8 e4<e8b4e4>e8
     d4<a8f+4a8>d4 d4<a8f+4a8>d4
   :/
   /:2
     e4<e8b4e4>e8 d4<a8f+4a8>d4
   :/
   <ercegceg>c4<e8e8 f+rdf+adf+a>d4<f+8f+8
   b8a8 g+8e8 deg+e f+e<g+e
   g+4 g+ag+a g+rg+a b8>e<g+>
;


/* RP2A03 TRIANGLE */
$MC0=
   $M l16 @6-1 o4 $VT @e1,0,0,127,0 q8
   d+2<f2 g8gg g2 g>gd<b>
;
$MC1=
   /:4
     >c+8<<a8>d8e4g4a8 >cc+<<aa>d8e4g4a8
     >d8<<a8>d8e4g4a8 >cc+<<aa>d8e4g4a8
   :/
   /:2
     f4.f2c8 g4.g2d8 a4.a2e8 <a4.>e4a4e8
     d4.d2<a8> e4.e2<b8 a4.a2>e8< a4.a4.>a8e8
   :/
   /:4
     e4>e4.<e4. e4>e4.<e4.
   :/
   e8e8>e4<e8>e8<e8>e8< e8e8>e4<e8>e8<e8>e8<
   e8e8>e4<e8>e8<e8>e8< e8e8>e4<e8>e8<e8 d8
   c4c8.g>crgec8c8< d4d8.a>draf+d8d8
   e4<b4e8a8>d8e8< e2r8<b>c+d<e>g+d
;


/* 再生 */
$LOOP=48;
t180
$MA0 /:$LOOP $MA1 :/;
$MB0 /:$LOOP $MB1 :/;
$MC0 /:$LOOP $MC1 :/;


/* EOF */