//////////////////////////////////////////////////////////////
// LAND.BGM
// Original : http://www.nicovideo.jp/watch/sm24607117
// Compose 1989/??/??
// Start 2014/11/18 00:35
// End   2014/11/18 05:16
//////////////////////////////////////////////////////////////
// 下の方に、MSXで動くMuSICA用、MSX-BASIC用のソースがあります
// BlueMSX等でどうぞ
//////////////////////////////////////////////////////////////

Tempo 130
Int LOOP=3
Key(0)

曲名={"Baby's 南青山ゲームプロジェクト フィールド用BGM Fight And Fight!!"}
作者={"なの"}

Function LoopPlay(Str Mml) {
	Str _MML
	For (Int i = 1; i <= LOOP; i++) {
		_MML=_MML + #STR(Mml)
	}
	_MML
}

Int CYMINIT=0
Function Cymbal() {
	Int CC
	IF(CYMINIT=0) {
		CC=CrashCymbal1
		CYMINIT=1
	} ELSE {
		CC=CrashCymbal2
		CYMINIT=0
	}
	Result=CC
}

#melody1={
	l4
	拍子 4,4
	gcdd6a12
	g2c4c12d12e12
	f4.e8d4.<b-8>
	c2.r4
	gcdd6a12
	g2r4g12g12a12
	b-1.^4
	r4

	l4
	>c<fgg6>d12
	拍子 3,4
	c2 c12c12d12
	拍子 4,4
	e-<a-b-b-6>f12
	拍子 3,4
	e-2 e-12e-12f12
	拍子 4,4
	f#<b>c#c#6g#12
	q100f#1^1
	拍子 6,4
	q98g1^4r4
	拍子 4,4
}

#melody2={
	l4
	拍子 4,4
	gcdd6a12
	g2c4c12d12e12
	f4.e8d4.<b-8>
	c2.r4
	gcdd6a12
	g2r4g12g12a12
	b-1.^4
	r4

	l4
	拍子 6,4
	acff12g12a12
	g6<b12>e6r12
	f<a>d d12e12f12
	e4.r8
	拍子 4,4
	f<a>d d12e12f12
	e4.<g8 b b12>c#12d#12

	l12
	[e4^ee]
	e2.^8r8
	[d4^dd]
	d2.^8r8
	[c4^cc]
	c2.^8r8
	<
	[b4^bb]
	b2.^8r8
}

#melody31={
	l12
	b4e4a4ab>c#<
	b4.e8f#4f#8g#8
	a4.a16g#16 f#4.e16d16
	e2.r4

	b4e4a4ab>c#<
	b2 r4bb>c#
	d1.r2
	拍子 5,4
	c#4<e4a4ab>c#<b8.r16
	a4d#4f#4f#g#a g#8.r16
	拍子 6,4
	f#4<a#4>c#4c#d#e d#4b8.r16
	拍子 4,4
}

#melody32={
	l12
	g#4<b4>c#4c#ea
	g#4.<b8>d4d8e8
	f#4.f#16e16 d4. d16c#16<
	b2.r4>

	g#4<b4>c#4c#ea
	g#2 r4g#g#a
	b2a2g#2r2

	a4c#4 c#4c#ea g#8.r16
	f#4<b4>d#4d#ef# e8.r16
	c#4<r4 a#4 a#b>c# <b4>d#8.r16
}

#melody41={
	l12
	b2e2>
	c#2.c#<ba
	b6g#e4 >e4ed#c#<
	b2r2>
	g#2c#2
	d#2.d#6a#
	g#6e#6c#6 d#4d#6a#
	g#2r4 <a4

	b-4>f4 e-4e-dc
	d4de-f g6e-6g6
	f4de-f g6e-6g6
	f2r4f#4
	g4r6c c6e-6g6
	a4r6c c6f6a6
	b1.^8r4.
}
#melody42={
	g#2<b2>
	e2. ed#c#<
	b6g#e4 a4ab>c#<
	b2r2
	>>e#2<e#2
	f#2.f#6>f#
	e#6c#6<e#6 f#4f#6>f#
	e#2r4 <f4
	f4b-4 >c4c<b-a
	[b-4b->cd e-6c6e-6<]
	>d2r4d4
	[e-de-c<b>c]
	[fefc<b>c]
	[gf#gdc#d]
	g2^8r4.
}

TR(1)
	@(Trumpet)
	Expression(127)
	q98o5
	v100
	#melody1
	#TR1={
		o6
		v127
		#melody2
		v110
		@(Clarinet)
		o5
		#melody31
		v127
		@(Trumpet)
		o5
		#melody41
	}
	LoopPlay(#TR1)

TR(2)
	@(Clarinet)
	Expression(127)
	q98
	[16 r1]
	#TR2={
		[21 r1]
		o5
		v100
		#melody32
		o5
		#melody42
	}
	LoopPlay(#TR2)

TR(3)
	@(Piccolo)
	o8v72q95
	Expression(127)
	[15 r1]
	r2 l24<<gab>cde defgab>
	#TR3={
		#p1={
			l24q90o8
			#sc={crc<b>cr}
			#sb={<b-rb-ab-r>}
			#sbp={<brba#br>}
			#sf={frfefr}
			#sa={arag#ar}
			#se={ered#er}
			#sd={drdc#dr}
			[8 #sc]
			[4 #sb]
			[3 #sc] <grarbr>
			[8 #sc]
			[4 #sb]
			[3 #sc] <crdrer
			#sf #sa >#sc #sf
			#se < #se
			#sd #sf #sa > #sd
			#sc < #sc
			#sd #sf #sa > #sd
			#sc < #sc #sbp > #sbp
		}
		#p1
		#p2={
			l12q70
			#we={ed#e}
			#wg={g#gg#}
			#wgm={gf#g}
			#wb={ba#b}
			#wd={dc#d}
			#wdp={d#dd#}
			#wf={f#e#f#}
			#wa={ag#a}
			#wc={c<b>c}

			#we #wg #wb > #we
			#wg #we < #wb #wg
			#wd #wf #wa > #wd
			#wf #wd < #wa #wf
			#wc #we #wgm > #wc
			#we #wc < #wgm #we <
			#wb > #wdp #wf #wb >
			#wdp <#wb #wf <b>c#d#
		}
		o7
		#p2
		[8 r1]
		[2 r1r4]
		r1.
		[15 r1]
		r2 l24<gab>cde defgab
	}
	LoopPlay(#TR3)

TR(5)
	@(FrenchHorn)
	l12
	o4q92
	Expression(127)

	#horn1={
		#ce={'c4e4'[3'ce']}
		#cf={'c4f#4'[3'cf#']}
		#bd={'<b-4>d4'[3'<b->d']}
		#cfg={'c4f4'[3'cg']}
		#ca={'c4a4'[3'ca']}
		#db={'d4b-4'[3'db-']}
		#aab={['c4a4']['ca']'<b->b-'}
		#acc={'<a-4>>c4<'[3'<a->>c<']}
		#add={'<a-4>>d-4<'[3'<a->>d-<']}
		#acf={['<a-4>>c4<']['<a->>c<']'<a#>>d<'}
		#bdd={'<b4>>d#4<'[3'<b>>d#<']}
		#bee={'<b4>>e4<'[3'<b>>e<']}
		#bdc={'<b4>>d#4<'}
		#gd={'<g4>>d4<' [3'<g>>d<']}

		#ce #cf
		[#ce]
		[#bd]
		[#ce]
		#ce #cf
		[#ce]
		[#bd]
		#ce #cfg
		#ca #db
		#aab
		#acc #add
		#acf
		#bdd #bee
		#bdc [#bdd] #bdc #bdd
		[#gd] [6 '<g>>d<']
	}
	v87
	q92
	#horn1

	#TR5={
		#gce={'<g4>c4e4'[3'<g>ce']}
		#adf={'<a4>d4f#4'[3'<a>df#']}
		#fbd={'<f4b->d4'[3'<fb->d']}
		#acf={'<a4>c4f4'[3'<a>cf']}
		#gbe2={'<g4b4>e4'}
		#fad={'<f4a4>d4'[3'<fa>d']}
		#fgbd={'<f4g4b4>d4'[3'<fgb>d']}
		#gce2={'<g4>c4e4'}
		#gdf={'<g4>d4f4'[3'<g>df']}
		#adfm={'<a4>d4f4'[3'<a>df']}
		#fpbd={'<f#4b>d#4'[3'<f#b>d#']}

		#horn2={
			#gce #adf
			[#gce]
			[#fbd]
			[#gce]

			#gce #adf
			[#gce]
			[#fbd]
			[#gce]
			[#acf] [#gbe2]	
			#fad #fgbd [#gce2]
			#adfm #gdf
			#gce #fpbd
		}
		o5v95q90
		#horn2

		#horn3={
			l12
			#gbe={r['<v95 g#b> v105 e']}
			#fad={r['<v95 f#a> v105 d']}
			#egc={r['<v95 eg> v105 c']}
			#dfb={r['<v95 d#f# v105 b>']}

			o5v97q60
			[8 #gbe]
			[8 #fad]
			[8 #egc]
			[8 #dfb]
		}
		#horn3

		#horn4={
			#gbe={[3 '<g#b>e'] '<g#4b4>e4}
			#ace={[3 '<a>c#e'] '<a4>c#4e4}
			#fad={[3 '<f#a>d'] '<f#4a4>d4}
			#gbd={[3 '<g#b>d'] '<g#4b4>d4}
			#egc={[3 '<e#g#>c#'] '<e#4g#4>c#4}
			#fac={[3 '<f#a#>c#'] '<f#4a#4>c#4}

			o5v95q95
			#gbe #ace
			[#gbe]
			[#fad]
			[#gbe]
			#gbe #ace
			[#gbe]
			[#fad]
			#gbd [3 '<g#b>e'] [3 '<g#b>d']
			[4 'c#4e4a4'] '<b4>e4g#4'
			[2 '<b4>d#4f#4'] [2 '<a4>d#4f#4'] '<g#4>c#4e4'
			[4 '<f#4a#4>e4'] '<f#4b4>d#4' '<b4>f#4b4'
		}
		#horn4

		[#gbe]
		[#ace]
		#gbe #ace
		[7 '<g#b>e'] rr '<f#4g#4>c4d#4'
		[#egc]
		[#fac]
		#egc #fac
		[7 '<e#g#>c#'] rr '<f4a4>c4'

		#fbd={'<f4b-4>d4' [3 '<fb->d']}
		#gbe={'<g4b-4>e-4' [3 '<gb->e-']}

		#fbd #gbe
		[#fbd [3 '<g6b-6>e-6']]
		#fbd '<f4b-4>d4' r4
		'<g4>c4e-4' [3 '<g>ce-'] [3 '<g6>c6e-6']
		'<a4>c4f4' [3 '<a>cf'] [3 '<a6>c6f6']
		[3 '<b4>d4g4' [3 '<b>dg']]
		Sub{[6 '<b>d']} gfefer
	}
	LoopPlay(#TR5)

TR(7)
	@(OrchestralHarp)
	[16 r1]

	#TR7={
		v85q100l12o4
		#hcg={cg>cec<g}
		#hca={ca>df#d<a}
		#hbf={<b->fb->d<b-f}
		#hfc={fa>cfc<a}
		#heb={egb>e<bg}
		#hda={dfa>d<af}
		#hdg={dfg>d<gf}
		#hbfp={<b>f#b>d#<bf#}

		[
			#hcg #hca
			[#hcg]
			[#hbf]
			#hcg : #hcg
		]
		cg>cede<
		[#hfc]#heb
		#hda #hdg #hcg
		#hda #hdg
		#hcg #hbfp

		v80
		#gegb={eg#b}
		#gdfa={df#a}
		#gceg={ceg}
		#gbdf={<b>d#f#}

		v80
		[8 #gegb]
		[8 #gdfa]
		[8 #gceg]
		[7 #gbdf] b4
		[28 r1]
	}
	LoopPlay(#TR7)

TR(9)
	@(Strings1)
	Expression(127)
	[9 r1]
	[1 r2.]
	[1 r1]
	[1 r2.]
	[3 r1]
	r1.

	#TR9={
		o3v127
		l4
		[4 c<g>]
		[2 <b-f>]
		[6 c<g>]
		[2 <b-f>]
		c<g>ce

		[4 f ]
		[2 e]
		[1 dd<gg12a12b12> ]
		[1 cc]
		[1 dd<gg12a12b12> ]
		[1 cc<bb> ]

		[4 e<b>]
		[4 d<a>]
		[4 c<g>]
		[3 <bf#> ] <b b12>c#12d#12

		l12
		[4 [3 e] e4]
		[2 [3 d] d4]
		[1 [3 e] e4] [6 e]
		[4 [3 e] e4]
		[2 [3 d] d4]
		[1 [3 e] e4] eed#ef#g#

		l4
		aaaae
		<bbbb#>c#
		<f#f#g#a#bb>

		l12
		[6 [3 e] e4]
		[6 e ] e8r8 g#4
		[6 [3 c#] c#4]
		[6 c# ] c#8r8 f4

		[3 b-4 [3 b-]]
		[3 b-6]
		[1 b-4 [3 b-]]
		[3 b-6]
		[1 b-4 [3 b-]]
		b-4r4
		l4
		>c<cde-
		ffga
		[3 gd]
		<g2
	}
	LoopPlay(#TR9)

TR(10)
	Key 0
//	@(OrchestraSet)
	Expression(90)
	$b{n(Kick1),}
	$s{n(Snare2),}
	$c{n(Cymbal()),}
	$h{n(ClosedHiHat),}
	$o{n(OpenHiHat),}

	[9 r1]
	[1 r2.]
	[1 r1]
	[1 r2.]
	[3 r1]
	r1.
	[20 r-40]
	v5
	[10 Rythm {s40s40} v++]
	v127
	#TR10={
		#r1={
			[4
				v.onNote(60,75,90)
				Sub{r4r-35r-35r-35Rythm{s35s35s35}}
				v127
				Rythm{'b4s4c4'}
			]
		}
		#r2={
			[3
				v.onNote(60,75,90)
				Sub{r4r-35r-35r-35Rythm{s35s35s35}}
				v127
				Rythm{'b4s4c4'}
			]
			Rythm{'b12s12c12'}
			v.onNote(80,100)
			Rythm{s12s12}
			v127
		}
		#r3={
			[5
				v.onNote(60,75,90)
				Sub{r4r-35r-35r-35Rythm{s35s35s35}}
				v127
				Rythm{'b4s4c4'}
			]
			v.onNote(60,75,90)
			Sub{[3 Rythm{s12}]} 
			v127
			Rythm{'b4c4'}
		}
		#r4={
			[3
				v.onNote(60,75,90)
				Sub{r4r-35r-35r-35Rythm{s35s35s35}}
				v127
				Rythm{'b4s4c4'}
			]
			[3 Rythm {b24s24}]
		}
		#r5={
			Sub{v110 Rythm{h12} v90 Rythm{h12} v100 Rythm{h12}}
			v127
			Rythm{'b4s4'}
		}

		#r6={
			v.onNote(60,70,80,90,100)
			Sub{r24 Rythm[5 s24]}
			#r5
		}
		#r7={
			Rythm{'b4s4c4'}
			v.onNote(60,70,80,90,100,110)
			Rythm[6 s24]
		}

		[3 #r1] #r2
		[3 #r1] #r2
		[#r3]
		#r1 #r4
		Sub{Rythm{c1}}
		[7 #r5] #r6
		Sub{Rythm{c1}}
		[7 #r5] #r6
		Sub{Rythm{c1}}
		[7 #r5] #r6
		Sub{Rythm{c1}}
		[6 #r5] #r7
	 
	 	#r8={
			v127 Rythm{'b12s12h12'} v100 Rythm{['s12h12']} v127 Rythm{'b4s4h4'}
		}
		#r9={
			v127 Rythm{'b12s12o12'} v100 Rythm{s12's12h12'}
		}
		
		Sub{Rythm{c1}}
		[7 #r8] [#r6]
		Sub{Rythm{c1}}
		[7 #r8] [#r9]

	 	#r10={
			v127 Rythm{'b12s12h12'} v100 Rythm{['s12h12']} v127 Rythm{'b4s4h4'}
			[v127 Rythm{'b12s12h12'} v100 Rythm{['s12h12']}] v127 Rythm{'b4s4h4'}
		}
		[3 Sub{Rythm{c1}} #r10] Rythm{c4}

		#r11={
			v127 Rythm {'b4s4h4'} v.onNote(60,80,100) Rythm{[3 s12]}
			v127
		}
		#r12={
			v127 Rythm{'b12s12o12'} v.onNote(70,70,100,100) Rythm{['s12h12']}
			v127
		}
		[
			Sub{Rythm{c1^1c2c2}}
			[6 #r11]
			[#r12] Rythm{'b6s6o6'}v1Rythm{h12}v127Rythm{c4}
		]
		#r13={
			Rythm{[3 'b12s12o12c12'h12]}
		}
		Sub{Rythm{c1}}
		[3 #r11]
		#r13
		#r11 #r13
		#r11 Rythm {'b4s4h4'c4}

		#r14={
			v127 Rythm {'b4s4h4'} v.onNote(60,80,100) Rythm{[3 s12]}
			[3 v127 Rythm {'b12s12h12'} v90 Rythm{s12}]
			v127
		}
		[2 Sub{Rythm{c1}}#r14]
		Sub{Rythm{c2c2c2c2}}
		[3 #r11]Rythm{'b4s4o2'}
	}
	LoopPlay(#TR10)

End
////////////////////////////////////////////////////////////////////
// MuSICA用ソース (PSGだけでも聞けます)
////////////////////////////////////////////////////////////////////
;-------------------------------------
;
; Baby's Original Role Playing Game
;
; Music by (YMD)A on 1990.09.15
; Music by Adachi high-school
;                 Physics club
;
;      <<<<  World Tree  >>>>
;
;            Main theme
;
;-------------------------------------

; ｲﾁﾊﾞﾝ ｲｿｶﾞｼｲ YM2413!

FM1=T,F01,AA,AB,AA,AC,F11,AD,F21,AE
FM2=T,F02,BA,BB,BC,BC,BD,BE
      BC,BC,BD,BF,BG,F12,BH,F22,BI
FM3=T,F03,CA,CB,CC,F13,CD,CE
FM4=T,F04,DA,DB,UP,DC,F14,DD,DE
FM5=T,F05,EA,EB,F15,ED,EE
FM6=T,F06,FA,FB,F16,FD,FE
FMR=T,F0R,R01,R02
      R03/15,R04,R03/15,R05,R03/5
      R05,R03/5,R05,R03/7,R06
      R07/3,R08,R07/3,R08
      R07/3,R08,R07/2,R09
      R10/7,R11/2,R10/7,R13/2
      R10,R12,R10,R10,R12
      R10,R10,R12,R10,R14
      R15/6,R12/2,R16,R15/6,R12/2,R16
      R15/3,R17,R15,R17,R15,R16
      R15,R12/2,R15,R12/2
      R15,R12/2,R15,R14
FM7=
FM8=
FM9=

; PSG ﾉ ﾁｬﾝﾈﾙ
; FM ｵﾝｹﾞﾝ ｶﾞ ﾅｸﾃﾓ ｷｹﾏｽ.

PSG1=T,P01,AA,AB,AA,AC,P11,AD,P01,AE
PSG2=T,P02,CA,CB,P03,BC,BC,BD,BE
       BC,BC,BD,BF,BG,P12,BH,BI
PSG3=T,P02,DA,DB,IA,P13,FD,FE

; P.S.ﾊﾔｸ ??ｽﾅｯﾁｬｰ ｶﾞ ﾎｼｲ!!
; ﾀﾞｯﾃ ｹﾞｷﾍﾟﾅ1 ﾉ SCC ｼﾞｬ ｳｺﾞｶﾅｲﾝﾀﾞﾓﾝ!

SCC1=
SCC2=
SCC3=
SCC4=
SCC5=

; INIT

T=T132

F01=V14@68O5M5
F02=V15@ 2O5M5I25
F03=V13@48O4
F04=V13@48O4
F05=V13@48O4
F06=V14@24O3
F0R=V13
;ﾎﾟｺﾎﾟｺﾄﾞﾗﾑｦ ﾔﾒﾖｳｼｭｳｶﾝﾃﾞｽﾖｰ!!
Y22,235Y38,3Y23,100Y24,153Y39,6Y40,1

P01=V13@12O4M4
P02=V11@11O3
P03=V11@13O6

F11=V14@ 4O5M7
F12=V14@ 4O5M7
F13=V12@48O5
F14=V12@48O4
F15=V12@48O4
F16=V14@24O3
P11=V12@14O4M4
P12=V11@14O4M4
P13=V10@11O3

F21=V14@68O5M7
F22=V14@ 4O5M6
UP=>
DN=<

; Channel 1

AA=I0L4GCDL12(D)DA
   (G8I16)G4.I0(C8I16)C8I0CDE
   L8(FI16)F4I0E(DI16)D4I0<B-8>
   (CI16C8I26)C2R4I0
   L4GCDL12(D)DA
   (G8I16)G2I0R8GGA
   L8(B-I16B-4.I26B-1)B-4R4I0
AB=L4>C<FGG8.>D16C2L12CCD
   L4E-<A-B-B-8.>F16E-2L12E-E-F
   L4F+<B>C+C+8.G+16
   (F+4I16F+4I26F+1)F+2I0
   (G4I16G4I26)G1
AC=L4ACFL12FGAG8.<B16>E8.R16
   L4F<A>DL12DEF(EI16EI26EE8)I0R8
   L4F<A>DL12DEFE4R8<G8B4B>C+D+Q6
   (E4)EEE(E4)EEE(E4I16)E2.I0
   (D4)DDD(D4)DDD(D4I16)D2.I0
   (C4)CCC(C4)CCC(C4I16)C2.I0<
   (B4)BBB(B4)BBB(B4I16)B2.I0
AD=Q8L4BEAL12AB>C+<L4B.E8F+F+8G+8
   A.L16AG+F+4.L16EDL4(EI16E)E.R8I0
   BEAL12AB>C+<L4(BI16)BI0RL12BB>C+
   L4(DI16DI26D1)D.R8I0
   C+<EAL12AB>C+Q6L4<BQ8
   AD+F+L12F+G+AQ6L4G+Q8
   F+<A+>C+L12C+D+ED+4B6R
AE=L2BE>C+.L12C+<BAB6G+E4>E4ED+C+<B2R2
   >G+2C+2D+2.L6D+A+12
   G+E+C+D+4D+A+12G+2R4<A4
   L4B->FE-L12E-DCD4DE-FL6GE-G
   L12F4DE-FL6GE-GF2R4F+4
   L12G4RCCL6CE-GL12A4RCCL6CFA
   L4(B.I16B.I26)B1R4

; Channel 2

BA=R1.R1.R1.R1.R1.R1.R1.R1.R1.R1.R2
BB=L24Q8GAB>CDEDEFGAB>
BC=L24CRC<B>CRCRC<B>CRCRC<B>CRCRC<B>CR
BD=<B-RB-AB-RB-RB-ARB-
    B-RB-AB-RB-RB-ARB->
BE=CRC<B>CRCRC<B>CRCRC<B>CR<GRARBR>
BF=CRC<B>CRCRC<B>CRCRC<B>CR<CRDRER
BG=FRFEFRARAG+AR>CRC<B>CRFRFEFR
   ERED+ER<ERED+ER
   DRDC+DRFRFEFRARAG+AR>DRDC+DR
   CRC<B>CR<CRC<B>CR
   DRDC+DRFRFEFRARAG+AR>DRDC+DR
   CRC<B>CR<CRC<B>CR<BRBA+BR>BRBA+BR
   L12Q5
   ED+EG+GG+BA+B>ED+E
   G+GG+ED+E<BA+BG+GG+
   DC+DF+FF+AG+A>DC+D
   F+FF+DC+D<AG+AF+FF+
   C<B>CED+EGF+G>C<B>C
   ED+EC<B>C<GF+GED+E<
   BA+B>D+DD+F+FF+BA+B>
   D+DD+<BA+BF+FF+<B>C+D+
BH=Q8I0L4G+<B>C+L12C+EAL4G+.<B8>DD8E8
   F+.L16F+ED4.DC+<
   L4(BI16BI26)B4.R8I0>
   G+<B>C+L12C+EAL4(G+I16)G+I0RG+6A12
   L2BA(G+2.)G+8R8L4
   AC+C+L12C+EAL4G+8.R16
   F+<B>D+L12D+EF+L4E8.R16
   <A+RA+L12A+B>C+<B4>D+6R
BI=G+2<B2>E2.L12ED+C+<B6G+E4A4AB>C+<B2R2
   >>F2<F2F+2.L6F+>F+12
   FC+<FF+4F+>F+12F2R4<F4
   L4F>DCL12C<B-AB-4B->CDL6E-CE-
   L12D4<B->CDL6E-CE-D2R4D4
   L12E-DE-C<B>CE-DE-C<B>C
   FEFC<B>CFEFC<B>C
   GF+GDC+DGF+GDC+DG2.R4

; Channel 3

CA=Q7L12E4EEEF+4F+F+F+E4EEEE4EEE
   D4DDDD4DDDE4EEEE4EEE
   E4EEEF+4F+F+F+E4EEEE4EEE
   D4DDDD4DDDE4EEEF4GGG
CB=L12A4AAAB-4B-B-B-A4A4AAB->
   C4CCCD-4D-D-D-C4C4CCD
   E-4E-E-E-E4EEE
   E-4E-4E-E-E-E-4E-E-E-E-4E-4E-E-E-
   D4DDDD4DDDDDDG4
CC=L12Q7
   E4EEEF+4F+F+F+E4EEEE4EEE
   D4DDDD4DDDE4EEEE4EEE
   E4EEEF+4F+F+F+E4EEEE4EEE
   D4DDDD4DDDE4EEEE4EEE
   F4FFFF4FFFE4E4D4DDDD4DEFL4EE
   FFFFEED+D+L12Q5
   REEREEREEREEREEREEREEREE
   RDDRDDRDDRDDRDDRDDRDDRDD
   RCCRCCRCCRCCRCCRCCRCCRCC<
   RBBRBBRBBRBBRBBRBBRBBRBB
CD=Q8L12EEEE4EEEE4EEEE4EEEE4
   DDDD4DDDD4EEEE4EEEE4
   EEEE4EEEE4EEEE4EEEE4
   DDDD4DDDD4DDDD4DDDL4D
   EEEL12EEEL4ED+D+D+L12D+D+D+L4C+
   C+C+C+L12C+C+C+<B4>F+4
CE=L12EEEE4EEEE4EEEE4EEEE4
   EEEE4EEEE4EEEEEEE6RC4
   C+C+C+C+4C+C+C+C+4C+C+C+C+4C+C+C+C+4
   C+C+C+C+4C+C+C+C+4C+C+C+C+C+C+C+6RC4
   L12D4DDDE-4E-E-E-D4DDDL6E-E-E-
   L12D4DDDL6E-E-E-L12D4DDDD4R4
   E-4E-E-E-E-4E-E-E-F4FFFF4FFF
   G4GGGG4GGGG4GGGGFEFED

; Channel 4

DA=Q7L12C4CCCC4CCCC4CCCC4CCC<
   B-4B-B-B-B-4B-B-B->C4CCCC4CCC
   C4CCCC4CCCC4CCCC4CCC<
   B-4B-B-B-B-4B-B-B->C4CCCC4CCC
DB=L12C4CCCD4DDDC4C4CC<B-
   A-4A-A-A-A-4A-A-A-A-4A-4A-A-B-
   B4BBBB4BBBB4B4BBBB4BBBB4B4BBB
   G4GGGG4GGGGGGG4>
DC=L12C4CCCD4DDDC4CCCC4CCC<
   B-4B-B-B-B-4B-B-B->C4CCCC4CCC
   C4CCCD4DDDC4CCCC4CCC<
   B-4B-B-B-B-4B-B-B->C4CCCC4CCC
   C4CCCC4CCC<B4B4A4AAAB4BBB>L4CC
   DDDDCC<BBL12Q5
   RBBRBBRBBRBBRBBRBBRBBRBB
   RAARAARAARAARAARAARAARAA
   RGGRGGRGGRGGRGGRGGRGGRGG
   RF+F+RF+F+RF+F+RF+F+RF+F+RF+F+RF+F+>RC+D+
DD=Q8L12BBBB4>C+C+C+C+4<BBBB4BBBB4
   AAAA4AAAA4BBBB4BBBB4
   BBBB4>C+C+C+C+4<BBBB4BBBB4
   AAAA4AAAA4BBBB4BBBL4B>
   C+C+C+L12C+C+C+<L4BBBAL12AAAL4G+
   F+F+F+L12F+F+F+F+4F+4
DE=L12BBBB4BBBB4>C+C+C+C+4C+C+C+C+4<
   BBBB4>C+C+C+C+4<BBBBBBB6RG+4
   G+G+G+G+4G+G+G+G+4A+A+A+A+4A+A+A+A+4
   G+G+G+G+4A+A+A+A+4G+G+G+G+G+G+G+4A4
   L12B-4B-B-B-B-4B-B-B-B-4B-B-B-L6B-B-B-
   L12B-4B-B-B-L6B-B-B-L12B-4B-B-B-B-6RR4
   >C4CCCC4CCCC4CCCC4CCC
   D4DDDD4DDDD4DDDDDDDDR

; Channel 5

EA=R1.R1.R1.R1.R1.R1.R1.R1.R1.R1.R1
EB=L12Q7G4GGGA4AAAG4GGGG4GGG
   F4FFFF4FFFG4GGGG4GGG
   G4GGGA4AAAG4GGGG4GGG
   F4FFFF4FFFG4GGGG4GGG
   A4AAAA4AAAG4G4F4FFFG4GGGL4GG
   AAGGGGF+F+L12Q5RG+G+RG+G+RG+G+RG+G+
   RG+G+RG+G+RG+G+RG+G+
   RF+F+RF+F+RF+F+RF+F+
   RF+F+RF+F+RF+F+RF+F+
   REEREEREEREEREEREEREEREE
   RD+D+RD+D+RD+D+RD+D+
   RD+D+RD+D+RD+D+RD+D+
ED=Q8L12G+G+G+G+4AAAA4G+G+G+G+4G+G+G+G+4
   F+F+F+F+4F+F+F+F+4G+G+G+G+4G+G+G+G+4
   G+G+G+G+4AAAA4G+G+G+G+4G+G+G+G+4
   F+F+F+F+4F+F+F+F+4G+G+G+G+4G+G+G+L4G+
   AAAL12AAAL4G+F+F+F+L12F+F+F+L4E
   EEEL12EEED+4D+4
EE=L12G+G+G+G+4G+G+G+G+4AAAA4AAAA4
   G+G+G+G+4AAAA4G+G+G+G+G+G+G+4D+4
   FFFF4FFFF4F+F+F+F+4F+F+F+F+4
   FFFF4F+F+F+F+4FFFFFFF6RF4
   L12F4FFFG4GGGF4FFFL6GGG
   L12F4FFFL6GGGL12F4FFFF6RR4
   G4GGGG4GGGA4AAAA4AAA
   B4BBBB4BBBB4BBBBBBBBB

; Channel 6

FA=R1R1R1R1R1R1R1R1R1R1R1R1R1R1R1R1
FB=Q7L4C<G>C<G>C<G>C<GB-FB-F>C<G>C<G>
   C<G>C<G>C<G>C<GB-FB-F>C<G>CL12CDEL4
   FFFL12FFFL4EE
   DD<GL12GAB>L4CC
   DD<GL12GAB>L4CC<B>L12BF+<B>L4
   E<B>E<B>E<B>E<B>D<A>D<A>D<A>D<A>
   C<G>C<G>C<G>C<GBF+BF+BF+BL12B>C+D+
FD=L12EEEE4EEEE4EEEE4EEEE4
   DDDD4DDDD4EEEE4EEEEEE
   EEEE4EEEE4EEEE4EEEE4
   DDDD4DDDD4EEEE4EED+EF+G+
   L4AAAAE<BBB>CC+<F+F+G+A+B>B8.R16
FE=L12EEEE4EEEE4EEEE4EEEE4
   EEEE4EEEE4EEEEEEE8R8G+8R8
   C+C+C+C+4C+C+C+C+4C+C+C+C+4C+C+C+C+4
   C+C+C+C+4C+C+C+C+4C+C+C+C+C+C+C+8R8F8R8
   B-4B-B-B-B-4B-B-B-B-4B-B-B-L6B-B-B-
   L12B-4B-B-B-L6B-B-B-L12B-4B-B-B-B-4R4
   L4>C<CDE-FFGAGDGDGD<G4.R8

; RHYTHM Channel

R01=R1.R1.R1.R1.R1.R1.R1.R1.R1.R1.R2
R02=V1S32V2S32V2S32V3S32V4S32V5S32
    V6S32S32V8S32S32V10S32
    S32V12S32S32V14S32S32
R03=V15BC8VS0S64VS1S64VS2S64VS4S64 
    V6S64V8S64V10S64V12S64
R04=V15BC12V13S12V14S12
R05=V15BC24V10S24S24
    V12S24S24V14S24
R06=V15VC14BC24S24BH24S24BH24S24
R07=V14BSH12H12H12BSH12H12H12
R08=V14BSH12H12H12VH8BSH24V9H24
    V10H24V11H24V12H24V13H24
R09=V14BSH12H12H12V15BSH12H12H12
    V15BSH24
    V4S24V5S24V6S24V7S24V8S24V9S24
    V10S24V11S24V12S24V13S24V14S24
R10=V15BSH12V12S12V13S12V14BSH4
R11=V15BSH24V6S24S24V8S24S24V11S24
R12=V15BSH12V12S12V13S12V14
R13=V15BC12V12S12V13S12
R14=V15BC4
R15=V15BSH4V12S12V13S12V14S12
R16=V15BSH4C4
R17=V15BC12S12BC12S12BC12S12

; PSG Channel 3
; PSG ﾀﾞｹﾀﾞﾄ ﾄﾁｭｳ ｶﾞ ﾁｮｯﾄ ﾁｶﾞｯﾃﾙﾖﾝ！

IA=L12Q6
   CG>CEC<GCA>DF+D<ACG>CEC<GCG>CEC<G<
   B->FB->D<B-F<B->FB->D<FD
   CG>CEC<GC<GAGAB>
   CG>CEC<GCA>DF+D<ACG>CEC<GCG>CEC<G<
   B->FB->D<B-F<B->FB->D<FD
   CG>CEC<GCCDEFG
   FA>CFC<AFA>CF<AFEGB>
   (E24M5I16E.I26)EI0<
   DFA>D<AF<G>FA>D<G<B>CEG>
   (C24M5I16C.I26)CI0<
   DFA>D<AF<G>FA>D<AFCEG>C<EC<B
   BA+B>C+D+
   EG+BEG+BEG+BEG+B
   EG+BEG+BEG+BEG+B
   DF+ADF+ADF+ADF+A
   DF+ADF+ADF+ADF+A
   CEGCEGCEGCEG
   CEGCEGCEGCEG<
   B>D+F+<B>D+F+<B>D+F+<B>D+F+<
   B>D+F+<B>D+F+<B>D+F+<B>D+F+

; ｺﾉ ｷｮｸ ｶﾞ ｲﾁﾊﾞﾝ ﾅｶﾞｲﾝﾀﾞﾖﾅｰ
; ﾓｳ FREE ｶﾞ ﾅｲｼ,Out of memory ﾉ
; ﾀｲｸﾞﾝ ﾀﾞｯﾀｼ ｱｱﾒﾝｱｱﾒﾝ(YMDｷｮｳﾃﾞﾊﾅｲｻﾞﾝｽ)

; ｷｮｳ (1990.09.15) ﾊ ｹﾞｲﾀﾞｲ ﾌｿﾞｸ ﾉ ﾏﾝﾏｴ
; ﾉ ﾎｰﾙ (ｵﾁｬﾉﾐｽﾞ ﾉ ﾆﾁﾌﾂ ｶｲｶﾝ) ﾃﾞ ｺﾝｸｰﾙｦ
; ﾔｯﾀﾝﾀﾞｹﾄﾞ,ｵﾗﾊ ｺｳｺｳｾｲ ﾌﾞﾓﾝ ﾃﾞ ｷﾝｼｮｳ ﾅｼ
; ﾉ ｷﾞﾝｼｮｳ ｦ ﾄｯﾁﾏｯﾀﾜｲ.ﾄﾞｰｼｮｳ ﾓ ﾅｲﾝﾃﾞ,ｿｳ
; ﾄｳﾉ "ﾀｲｻ"ﾀﾞﾄｶ ｵｰｶﾜ ﾏﾘﾁｬﾝ ﾉ ｵｶｰｻﾝ ﾊ ｲｯ
; ﾃｲﾀ.

; ｵｰｶﾜ ﾏﾘﾁｬﾝ:9ｶﾞﾂ16ﾆﾁ ﾆ ﾊﾞｲｵﾘﾝﾃﾞ
;            ﾃﾞｭｴｯﾄｼﾀ ｵﾝﾅﾉｺ

; ｱﾄ 899ﾊﾞｲﾄ ﾀﾞ. ｼﾞｬｧ ﾏﾀﾈｪ ﾊﾞｨﾊﾞｨ!!

////////////////////////////////////////////////////////////////////
// MSX-BASIC用ソース (MSX2+ or later / MSX2+FMPAC)
////////////////////////////////////////////////////////////////////
10 DATA"Fight And Fight!!"
20 _MUSIC(0,0,1,1,1,1,1,1,1,1,1)
30 _PITCH(443):_TEMPER(6):READA$,A,A
40 DATA 0,7,"v13@6t120o5l4","v13@6t120o4l4","v13@48t120l4","v13@48t120l4","v13@48t120l4","t120v13@24o3l4",""
50 READ A$,B$,C$,D$,E$,F$,G$:IF A$="RET" THEN 50 ELSE IF A$="*" THEN RESTORE100:GOTO 50 ELSE PLAY #2,A$,B$,C$,D$,E$,F$,G$:GOTO50
60 DATA"gcdd8.a16g2c4l12cdel4f.e8d.<b-8>c2.r4","","c4l12cccc4cccc4cccc4ccc<b-4b-b-b-b-4b-b-b->c4cccc4ccc","l12e4eeef+4f+f+f+e4eeee4eeed4dddd4ddde4eeee4eee","","",""
70 DATA"gcdd8.a16g2r4l12ggal4b-1&b-2.r4","","c4cccc4cccc4cccc4ccc<b-4b-b-b-b-4b-b-b->c4cccc4ccc","e4eeef+4f+f+f+e4eeee4eeed4dddd4ddde4eeef4ggg","","",""
80 DATA">l4c<fgg8.>d16c2l12ccdl4e-<a-b-b-8.>f16e-2l12e-e-fl4","","c4cccd4dddc4c4cc<b-a-4a-a-a-a-4a-a-a-a-4a-4a-a-b-","a4aaab-4b-b-b-a4a4aab->c4cccd-4d-d-d-c4c4ccd","","",""
90 DATA"f+<b>c+c+8.g+16f+1&f+1g1&g4r4","v15@2r1r1r1r1o5l24gab>cdedefgab","b4bbbb4bbbb4b4bbbb4bbbb4b4bbbg4g4gggg4gggg4","d+4d+d+d+e4eeed+4d+4d+d+d+d+4d+d+d+d+4d+4d+d+d+d4d4dddd4dddg4","","",""
100 DATA"RET","","","","","",""
110 DATA"v15o6gcdd8.a16g2c4d8.e16","o7q6l24c12c<b>c12c12c<b>c12c12c<b>c12c12c<b>c12c12c<b>c12c12c<b>c12c12c<b>c12c12c<b>c12<","v13l12o4c4cccc4cccc4cccc4ccc<"
120 DATA"v13l12e4eeef+4f+f+f+e4eeee4eee","o4v13l12g4ggga4aaag4gggg4ggg","@24o3l4v15c<g>c<g>c<g>c<g",""
130 DATA"f.e8d.<b-8>c2.r4","l24b-12b-ab-12b-12b-ab-12b-12b-ab-12b-12b-ab-12>c12c<b>c12c12c<b>c12c12c<b>c12<g12a12b12","b-4b-b-b-b-4b-b-b->c4cccc4ccc"
140 DATA"d4dddd4ddde4eeee4eee","f4ffff4fffg4gggg4ggg","b-fb-f>c<g>c<g>",""
150 DATA"gcdd8.a16g2r4g12g12a12",">c12c<b>c12c12c<b>c12c12c<b>c12c12c<b>c12c12c<b>c12c12c<b>c12c12c<b>c12c12c<b>c12","c4cccc4cccc4cccc4ccc<"
160 DATA"e4eeef+4f+f+f+e4eeee4eee","g4ggga4aaag4gggg4ggg","c<g>c<g>c<g>c<g",""
170 DATA"b-1&b-2&b-4r4","<b-12b-ab-12b-12b-ab-12b-12b-ab-12b-12b-ab-12>c12c<b>c12c12c<b>c12c12c<b>c12<v15c12d12e12v13","b-4b-b-b-b-4b-b-b->c4cccc4ccc"
180 DATA"d4dddd4ddde4eeef4ggg","f4ffff4fffg4gggg4ggg","b-fb-f>c<g>c<e",""
190 DATA"acff12g12a12g8.<b16>e8.r16f<a>dd12e12f12e.r8","f12fef12a12ag+a12>c12c<b>c12f12fef12e12ed+e12<e12ed+e12d12dc+d12f12fef12a12ag+a12>d12dc+d12c12c<b>c12<c12c<b>c12",">c4cccc4ccc<b4b4a4aaaa4aaag4g4"
200 DATA"f4ffff4fffe4e4d4dddd4dddc4c4","a4aaaa4aaag4g4f4ffff4fffe4e4","ffffeeddddcc",""
210 DATA"f<a>dd12e12f12e.<g8bb12>c+12d+12","d12dc+d12f12fef12a12ag+a12>d12dc+d12c12c<b>c12<c12c<b>c12<b12ba+b12>b12ba+b12",">f4eeed4fffe4gggf+4bbb"
220 DATA"d4ccc<b4>dddc4eeed+4f+f+f+"," a4aaag4gggg4gggf+4bbb","defg>c<ef+b",""
230 DATA"l12e&e&e&eeee&e&e&eeee1","l12ed+eg+gg+ba+b>ed+eg+gg+ed+e<ba+bg+gg+","o5l12r12eer12eer12eer12eer12eer12eer12eer12ee"
240 DATA"o4r12g+g+r12g+g+r12g+g+r12g+g+r12g+g+r12g+g+r12g+g+r12g+g+","o4r12bbr12bbr12bbr12bbr12bbr12bbr12bbr12bb","eg+b>eg+e<bg+",""
250 DATA"d&d&d&dddd&d&d&dddd1","l12dc+df+ff+ag+a>dc+df+ff+dc+d<ag+af+ff+","o5r12ddr12ddr12ddr12ddr12ddr12ddr12ddr12dd"
260 DATA"o4r12f+f+r12f+f+r12f+f+r12f+f+r12f+f+r12f+f+r12f+f+r12f+f+","o4r12aar12aar12aar12aar12aar12aar12aar12aa","df+a>df+d<af+",""
270 DATA"c&c&c&cccc&c&c&cccc1","l12c<b>ced+egf+g>c<b>ced+ec<b>c<gf+ged+e","o5r12ccr12ccr12ccr12ccr12ccr12ccr12ccr12cc"
280 DATA"o4r12eer12eer12eer12eer12eer12eer12eer12ee","o4r12ggr12ggr12ggr12ggr12ggr12ggr12ggr12gg","ceg>cec<ge",""
290 DATA"<b&b&b&bbbb&b&b&bbbl4b1","<l12ba+b>d+dd+f+ff+ba+b>d+dd+<ba+bf+ff+d+dd+","o4r12bbr12bbr12bbr12bbr12bbr12bbr12bbr12bb"
300 DATA"o4r12d+d+r12d+d+r12d+d+r12d+d+r12d+d+r12d+d+r12d+d+r12d+d+","o4r12f+f+r12f+f+r12f+f+r12f+f+r12f+f+r12f+f+r12f+f+r12f+f+","<b>d+f+b>d+<bf+d+",""
310 DATA"o5v15@4l4beal12ab>c+<b4&b&bel4f+f+8g+8a4.a16g+16f+4.e16d16e2.r4","o5v14@4q8l4g+<b>c+l12c+eag+4&g+&g+<bl4>d4d8e8f+.f+16e16d.d16c+16<b2.r4","o4g+g+g+g+4aaaa4g+g+g+g+4g+g+g+g+4f+f+f+f+4f+f+f+f+4g+g+g+g+4"
320 DATA"o4bbbb4>c+c+c+c+4<bbbb4bbbb4aaaa4aaaa4bbbb4bbbb4","o5eeee4eeee4eeee4eeee4dddd4dddd4eeee4eeee4","l12eeee4eeee4eeee4eeee4dddd4dddd4eeee4eeee4",""
330 DATA"beaa12b12>c+12<b2r4b8.>c+16d1&d2.r4",">l4g+<b>c+c+12e12a12g+2r4g+8.a16b2a2g+2.r4","o4g+g+g+g+4aaaa4g+g+g+g+4g+g+g+g+4f+f+f+f+4f+f+f+f+4g+g+g+g+4g+g+g+g+4"
340 DATA"o4bbbb4>c+c+c+c+4<bbbb4bbbb4aaaa4aaaa4bbbb4bbbb4","o5eeee4eeee4eeee4eeee4dddd4dddd4dddd4dddd4","eeee4eeee4eeee4eeee4dddd4dddd4eeee4eeel4e",""
350 DATA"c+<eaa12b12>c+12<b8.r16ad+f+f+12g+12a12g+8.r16","ec+c+c+12e12a12g+8.r16f+<b>d+d+12e12f+12e8.r16","a4a4aaaa4g+4f+4f+4f+f+f+f+4e4"
360 DATA">c+4c+4c+c+c+c+4b4a4a4aaaa4g+4","e4e4eeee4e4d+4d+4d+d+d+d+4c+4","aaaaef+f+b>b+c+",""
370 DATA"f+<a+>c+c+12d+12e12d+b","<a+f+a+a+12b12>c+12<b>d+","a+a+a+a+4a+a+a+a+4f+4f+4"
380 DATA"c+c+c+c+4c+c+c+c+4<b4b4","f+f+f+f+4f+f+f+e4d+4d+4","<f+f+g+a+b<b",""
390 DATA"o5@6l4b2e2>c+2.c+12<b12a12b8.g+16e>ee12d+12c+12<b2r4c","v14o5@4g+2<b2>e2.e12d+12c+12<beaa12b12>c+12<b2r4d+","v14l4o4g+8g+g+g+g+8a8aaaa8g+8g+g+8a8aa8g+8g+g+8g+8r8g+"
400 DATA"v14l4o4b8bbbb8>c+8c+c+c+c+8<b8bb8>c+8c+c+8<b8bb8b8r8>c<","o5v14l4e8eeee8e8eeee8e8ee8e8ee8e8ee8e8r8d+","o3e8eeee8e8eeee8e8ee8e8ee8e8ee8e8r8g+",""
410 DATA"o6g+2c+2d+2.d+8.a+16g+6e+6c+6d+d+8.a+16g+2r4<a","o6e+2<e+2f+2.f+8.>f+16e+6c+6<f6f+f+8.>f+16f2r4<c","e+8e+e+e+e+8f+8f+f+f+f+8e+8e+e+8f+8f+f+8e+8e+e+8e+8r8f"
420 DATA"g+8g+g+g+g+8a+8a+a+a+a+8g+8g+g+8a+8a+a+8g+8g+g+8g+8r8c","c+8c+c+c+c+8c+8c+c+c+c+8c+8c+c+8c+8c+c+8c+8c+c+8c+8r8e-","c+8c+c+c+c+8c+8c+c+c+c+8c+8c+c+8c+8c+c+8c+8c+c+8c+8r8f",""
430 DATA"o5b->fe-l12e-dcd4de-fl6ge-gf4l12de-fl6ge-gl4f2r4f+","o5f>dcl12c<b-ab-4b->cdl6e-ce-d4l12<b->cdl6e-ce-l4d2r4d","l12f4fffg4gggf4fffg6g6g6f4fffg6g6g6f4ffff4@4>b-4<@48"
440 DATA"l12b-4b-b-b-b-4b-b-b-b-4b-b-b-4b-6b-6b-6b-4b-b-b-b-6b-6b-6b-4b-b-b-b-4","l12d4ddde-4e-e-e-d4ddde-6e-6e-6d4ddde-6e-6e-6d4dddd","b-b-b-b-b-b-b-6b-6b-6b-b-b-6b-6b-6b-b-b-",""
450 DATA"o6gr8c8c6e-6g6ar8c8c6f6a6b1&b2.r4","o6@4l4l12e-de-c<b>ce-de-c<b>cfefc<b>cfefc<b>cgf+gdc+dgf+gdc+dg2l24@2<gab>cdc<b>cdeff+","g4gggg4ggga4aaaa4aaab4bbbb4bbbb4bbbv14bagagf>"
460 DATA"o5c4cccc4cccc4cccc4cccd4dddd4dddd4dddv14dc<b>c<ba>","e-4e-e-e-e-4e-e-e-f4ffff4fffg4gggg4gggg4gggv14gfefed<",">c<cde-ffgagggd<g2.",""
470 DATA *,*,*,*,*,*,*