/* [X1] Ancient Ys Vanished Omen --- OPEN YOUR HEART --- (C)Falcom 1987 by LinearDrive [2010-07-04] */
/* JASRAC:081-1726-8 */

#OCTAVE REVERSE

$Ev1 = @e1, 0, 0,95, 3,95, 0,127, 3,127, 0,119, 1023, 0, 0;
$Lf1 = @l18,32,2,96,0,0;
$Lf2 = @l18,32,2,96,0,0;


/* ch.1 */
$A0= x1 v15 @3@w50 o6 l8 q16 @q0;
$A1= $Ev1 $Lf1
ec+degf+a4.gf+gf+edec+&c+2dege&e2c+de
/:3 f+<a>df+gf+ed :/ f+2gf+gb-
aef+a >d<ef+a >d<egb >d<f+gb- a>d&d2. $Lf2 d2 $Lf1 <b-2>d1&d1
;


/* ch.2 */
$B0= x1 v12 @3@w50 o6 l8 q16 @q6 @d12 r8;
$B1= $Ev1 $Lf1
ec+degf+a4.gf+gf+edec+&c+2dege&e2c+de
/:3 f+<a>df+gf+ed :/ f+2gf+gb-
aef+a >d<ef+a >d<egb >d<f+gb-   o5 )) aef+a>d<ef+ab-agd4egb-aef+a>d<ef+a> d2.. ((
;


/* ch.3 */
$C0= x1 v13 @3@w50 o5 l8 q16 @q0;
$C1= $Ev1 $Lf1
aa4.>dd4<b>c+dddd<b-b-gaeag4g>c+d<aeag4eg>c+
d<df+ab-agf+ adf+ab-agf+ adf+ab-agf+ adf+ab-ab->c+
d2c+2<b2b-2 aef+a>d<ef+ab-agd4egb-aef+a>d<ef+a> d1
;


/* 演奏 */
$LOOP= 32;
t89
r8 /:$LOOP $A0$A1 :/;
r8 /:$LOOP $B0$B1 :/;
r8 /:$LOOP $C0$C1 :/;