/*
   [FC] CHALLENGER [SCENE 3 : GET KEYWORD!] (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;
$VN15= @v63;


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


/* RP2A03 SQUARE-A */
$MA0=
   $M l16 @5@w1 o5 $VS15
   $E6
;
$MA1= 
   /:2
     g+2. a2. f+2. d4g+2
   :/
   >
   /:2
     r4e4d4 @x79c+2@x127<f+8g+8 a4b4>c+4 f+2f4
     e4g+4.a8 f+2<f+8g+8 a4b4a4 >c4f+2
   :/
   <
   /:4
     g+2. a2. f+2. d4g+2
   :/
;


/* RP2A03 SQUARE-B */
$MB0=
   $M l16 @5@w1 o6 $VS15
   $E6
;
$MB1=
   /:10
     c+2.c+2.c+2.<g+4>c2
   :/
;


/* RP2A03 TRIANGLE */
$MC0=
   $M l16 @6-1 o3 $VT @e1,0,0,127,0 q8
;
$MC1=
   /:10
     a8r8a8a8>e4 f+8r8f+4c+4 <b8r8b8b8>d4 e8r8e4<b4
   :/
;


/* RP2A03 NOISE */
$MD0=
   $M l16 @7 o0 ns1 $VN15 $E0
;
$MD1=
   /:10
     r4c8c8c4 r4c4c4 r4c8c8c4 r4c4c4
   :/
;


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


/* EOF */