/*
   [FC] CHALLENGER [SCENE 1 : STOP THE EXPRESS!] (C)HUDSON SOFT 1985
   FlMML MML by LinearDrive
   date:2011-06-17 [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;
$VN15= @v63;


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


/* RP2A03 SQUARE-A */
$MA0=
   $M l16 @5@w1 o5 $VS15
   $E6
   f8cc<b8>c8 f8cc<b8>c8 f8c8f8g+8 >c2
   c2
;
$MA1= 
   /:2
     c4<a+8a8 g4a8g8 f4g8a8 c8.d c4>
     c4<a+8a8>d4c8<a8 a+8>c<a+a8a+ag8<aa+>cdef
     gg8gf8g8a8a+8>c4< g8a8a+4a8g8f4
     gg8gf8g8a8a+8>c4< b8>c8d8.ec8r8r4
   :/
   <
   /:4 f8cc<b8>c8 f8cc<b8>c8 >a8a4.<fedcfedc :/
   f8cc<b8>c8 a8a4. g+8d+d+d8d+8>c8c4.<
   a+8ffe8f8>d8d4. c+8<g+8>c+8f8g+4g4
   f2 <f<b>ca f<b>ca g+ag+a d+8e8 fr<b>c fcfa>
;


/* RP2A03 SQUARE-B */
$MB0=
   $M l16 @5@w1 o5 $VS15
   $E6
   c8<aag+8a8> c8<aag+8a8> c+8<g+8>c+8f8 f2
   e2
;
$MB1=
   /:2
     a8ffe8c8<a+4>f8e8 c8<aa+>c4<g8.aa+8g8>
     a8ffg8f8a8a+af+8d8 f8d8d8c8<a+8r4ga
     a+4>d8e8f8g8a4 ecf+8e4f8c8c4<
     a+4>d8e8f8g8a4 gdafb8.ge8r4.
   :/
   /:4 c8<aaf8f8>c8<aaf8f8>>g+8g+4.<<aaaaaaaa> :/
   c8<aaf8f8>c8.<a>c8d8 d+8cc<g+8g+8>d+8cd+g+8d+8
   f8dd<a+8a+8>f8.df8g8 f8c+8f8g+8>c+4<a+4
   a2>c2< <b>c<b>c<a8a+8a8r4.>
;


/* RP2A03 TRIANGLE */
$MC0=
   $M l16 @6-1 o4 $VT @e1,0,0,127,0 q8
   f4.f8d+4.d+8 c+8c+8>c+8<c+8c2
   >cc8cd8e8<
;
$MC1=
   /:2
     f8>aag8f8<c8>c<a+a8g8 f8>ffe8f8e8.dc8<e8
     f8>aaf8f8f+8gf+d8<df+ g8>gg<d8>f+f+<g8r4.
     cc8c>c4<f8f8>f8a8 cgd+eg8<g8f4>g+ag+a<
     cc8c>c4<f8f8>f8a8 g8d8<g8.b>c8<ccd8e8
   :/
   /:4 <f8.>fg+8a8<f8.>fg+ag+a f>f<ff b8>c8< f>f<ff b>c<b>c< :/
   <f8.>fg+8a8<f8>fc<f8g8 g+8.>g+b8>c8<<g+8>g+d+<g+8a8
   a+8.>a+>c+8d8<<a+8>a+f<a+8>c8 c+8c+8c+c+c+>c+c+4<d+4
   f8>cc<b8>c8f8cc<b8>c8 <f8.>fc8<c8f4r4
;


/* RP2A03 NOISE */
$MD0=
   $M l16 @7 o0 ns1 $VN15 $E0
   r1 r1
   r2
;
$MD1=
   /:2
     r1r1 r1r1 r1r1 r1r1
   :/
   /:4 r1 r2cccccccc :/
   r1 r1
   r1 r1
   r1 r1
;


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


/* EOF */