/* BALLOON FIGHT --- BALLOON TRIP --- (c)Nintendo 1984 by LinearDrive */

#OCTAVE REVERSE

/* 矩形波１ */
$A0= x0 @v63 @5@w4 @e1,0,0,127,0 o5 l8 q16 @q0;
$A1= brr @q2 >c+e<brr @q4a6a6a6 @q0a6b6a6  /:8 e32 g+32 e32 g+32:/ /:8 d32 a32 d32 a32:/;
$A2= q8 /:4 f+rr g+b err/rf+>c+<f+rebe:/ q16 >e12e-12d12c+12<b12b-12 a12a-12g12g-12f12e12 q8;
$A3= r1r1r1r1r1r1r1r1 /:4 f+rr g+b errrf+>c+<f+rebe:/;
$A4= /:32 r:/;

/* 矩形波２ */
$B0= x0 @v95  @5@w4 @e1,0,8,0,0 o2 @l2400,48,-1,0,2,0 l8 q16 @q0;
$B1= /:3 rrar    rraa    :/        /:6 a6 :/;
$B2= /:7 c+rc+r >g+r<c+r :/        /:6 a6 :/; 
$B3= /:4 erer   >br<e>g+16g+16< :/ /:3 erer >bb<e>g+< :/ >>e16e16<<eee>b16b16<eer;
$B4= /:8 c+rc+r >g+r<c+r  :/
     /:2 e>b16b16<er >b<re>g+< :/ > /:2 >ee<b16b16b16r16 g+16g+16g+16r16er :/;

/* 三角波 */
$C0= x0 @v127 @6    @e1,0,0,127,0 o5 l8 q16 @q0;
$C1= g+rr @q2 g+bg+rr @q4f+6f+6f+6 @q0f+6g+6f+6 q14 <<errg+brrg+ >f+6e6d6<a6g6f+6;
$C2= /:4 errg+rrrbrac+c+ddrd+re16e16r>errg+e e6c+6<a6c+6d6d+6 :/;
$C3= /:2 errg+rrrbrac+c+ddrd+re16e16r>errg+e e6c+6<a6c+6d6d+6 :/;
$C4= /:32 r:/;

/* ノイズ */
$DEnv0= @e1,0,8,0,0;
$DEnv1= @e1,0,8,63,24,0,0;
$D0= x0 @v95 @7   $DEnv0 o0 l8 q16 @q0;
$D1= /:24 c :/                  c6c6c6c6c6c6 ;
$D2= /:7  ccc16c16ccc16c16cc :/ c6c6c6c6c6c6 ;
$D3= /:64 c :/ ;
$D4= $DEnv1 f+4 $DEnv0 /:62 c :/ /:32 c :/;

/* 演奏 */
$LOOP= 8;
t152
r8 /:$LOOP $A0$A1$A2$A3$A4 :/;
r8 /:$LOOP $B0$B1$B2$B3$B4 :/;
r8 /:$LOOP $C0$C1$C2$C3$C4 :/;
r8 /:$LOOP $D0$D1$D2$D3$D4 :/;