New Online MSX emulator

Страница 28/48
21 | 22 | 23 | 24 | 25 | 26 | 27 | | 29 | 30 | 31 | 32 | 33

By NYYRIKKI

Enlighted (5508)

Аватар пользователя NYYRIKKI

17-03-2016, 19:06

Tone control... I don't think there is any other way than using Y-command ... ie ""t220y24,15b8h8c8h!8"

By NYYRIKKI

Enlighted (5508)

Аватар пользователя NYYRIKKI

17-03-2016, 19:15

BTW here and here are few of my favorite songs written in MSX-BASIC. (In MP3)

By Grauw

Ascended (8927)

Аватар пользователя Grauw

17-03-2016, 19:55

ppeccin wrote:

As I hear it, the drum sounds in games are very different from those I get in BASIC.
I hope the fixed drum sounds of the chip are not unchangeable and ugly like those from BASIC.

They are unchangeable, but you can change the pitch (dunno how in Basic).

However if you are referring to Micro Cabin games, they used them very smartly and do e.g. mid-tone instrument changes to alter the tone, plus they use the PSG for drums as well. E.g. the “swirl” effect that plays in the Illusion City opening is made with the snare drum. You can’t tell from the sound Smile.

Of course also the pitch, volume, software adsr and combining instruments on different channels makes a difference.

By NYYRIKKI

Enlighted (5508)

Аватар пользователя NYYRIKKI

17-03-2016, 21:10

Quote:

plus they use the PSG for drums as well.

Actually I would call this common practice also in BASIC musics. Although I said "Drum channel is always last channel." I meant to say "Drum channel is always last FM channel" Actually last 3 parameters of PLAY #2-command are always reserved for PSG.

By sd_snatcher

Prophet (3261)

Аватар пользователя sd_snatcher

20-03-2016, 15:50

NYYRIKKI wrote:

BTW here and here are few of my favorite songs written in MSX-BASIC. (In MP3)

Nice songs! Would you mind to share them in BASIC format?

By ppeccin

Champion (374)

Аватар пользователя ppeccin

22-03-2016, 15:40

Grauw wrote:
ppeccin wrote:

As I hear it, the drum sounds in games are very different from those I get in BASIC.
I hope the fixed drum sounds of the chip are not unchangeable and ugly like those from BASIC.

They are unchangeable, but you can change the pitch (dunno how in Basic).

However if you are referring to Micro Cabin games, they used them very smartly and do e.g. mid-tone instrument changes to alter the tone, plus they use the PSG for drums as well. E.g. the “swirl” effect that plays in the Illusion City opening is made with the snare drum. You can’t tell from the sound Smile.

Of course also the pitch, volume, software adsr and combining instruments on different channels makes a difference.

Is this "Illusion City" Turbo R only? :-(
If so, can you point me to other titles (MSX2) that use the MSX-MUSIC heavily, to test my MSX-MUSIC implementation?

By Manuel

Ascended (16436)

Аватар пользователя Manuel

22-03-2016, 17:46

I like Xak The Tower of Gazzel Smile

By NYYRIKKI

Enlighted (5508)

Аватар пользователя NYYRIKKI

22-03-2016, 19:28

ppeccin wrote:

Is this "Illusion City" Turbo R only? :-(
If so, can you point me to other titles (MSX2) that use the MSX-MUSIC heavily, to test my MSX-MUSIC implementation?

I suggest you download Micro Music... It can play all of the Microcabin game musics... IIRC MSX1 is enough, but you need at least 128KB RAM.

By NYYRIKKI

Enlighted (5508)

Аватар пользователя NYYRIKKI

22-03-2016, 19:32

sd_snatcher wrote:

Nice songs! Would you mind to share them in BASIC format?

Here you go:

10 'WWWWW GIZENSHA VOX
20 CLEAR7500:_MUSIC(1,0,1,1,1,1,1,1):DEFSTRA-W:DIMX%(15),Y%(15):FORZ=5TO13:READW:X%(Z)=VAL("&H"+W):NEXT:FORZ=5TO13:READW:Y%(Z)=VAL("&H"+W):NEXT:SOUND7,49:SOUND6,3:DATA9,,,D1,92,,,2167,5BF,4,,,131,10CF,,,1267,5E0
30 'WWWWW MML
40 T="T150"
50 A="Q6C#4Q2C#R8C#R8C#R8CR8<":A0="@63O6V5L16"+A+"Q6B4Q2BR8BR8BR8>CR8"
60 A1="O6Q6C#4Q2C#R8C#R8C#R8CR8< Q6B4Q2BR8V4B>V3B<V2B>V1B<V0B>V15B>>CV7O2C8"
70 A3=A+"Q6BR8V4BR8V3BR8V2BR8V1BR8V0B"
80 A="R4F#R4.ER8D#R16":B="V7@63L16Q8"+A+A:C=A+"@20OV4":A4="O7"+B:B4="O6"+B:C4="O4"+B:A5=C+"G#2B-2":B5=C+"D#2F2":C5=C+"<B2>C#2":A6=A+"@3V3O5B4.>CC#8CC<B>":AD="R8B-2B8O5@8B-AB-AL32B-AB-AB16>C8CC#C16<F8@16>F8.
120 AH="@50L16O6V13R8G8V6GV13GGV5G8V15GGV5GV10GG8GV15GV13G8GGV4GV13GG8GV7GV15GV13G8V5GV13G"
130 AJ=LEFT$(AH,73)+"L24GGL12FF#"
140 A="L24GGL12GGGFF#":AK=A+A+A+A
150 AL="L8GF#F#FFEED#D#2&D#F#4L16FE"
160 AM="D#2&D#8F#4FED4L8D#.E.F.F#."
170 A="D#2&D#8F#4FE":AN=A+A:AO=A+"@19D#1"
180 B="Q6B-4Q2B-R8B-R8G#R8AR8":B0="@63O5V5L16"+B+"Q6G#4Q2G#R8G#R8G#R8AR8"
190 B1="O5Q6B-4Q2B-R8B-R8G#R8AR8 Q6G#4Q2G#R8V4G#>V3G#<V2G#>V1G#<V0G#>V15G#>AV7O1A8"
200 B3=B+"Q6G#R8V4G#R8V3G#R8V2G#R8V1G#R8V0G#"
210 B="V9@53L16R8C32C#32R16CR16<G>C32C#.R16C#R16CR16<G>C32C#.R16C#<G>C#8<G>C#8<G>C#8<G>D8.":B7="O6"+B:B9="O7"+B
220 BA="R8C32C#32R16CR16<GR16>C32C#32R16C32C#32R16CR16<G":B8=BA+">C#8<G>C#8<G>C#8D8D":BD="R8F#2G8O5@8F#FF#FL32F#FF#FG16G#8G#AG#16C#8@16>C#8.
240 BJ="@50L16O6V13R8D#8V6D#V13D#D#V5D#8V15D#D#V5D#V10D#D#8D#V15D#V13D#8D#D#V4D#V13D#D#8D#V7D#V15D#V13L24D#D#L12C#D"
250 B="L24D#D#L12D#D#D#C#D":BK=B+B+B+B
260 BL="L8D#DDC#C#CC<BB2&B>D4L16C#C<"
270 BM="B2&B8>D4C#C<B-4L8B.>C.C#.D."
280 B="B2&B8>D4C#C<":BN=B+B:BO=B+"@19B1"
290 C="Q6F#4Q2F#R8F#R8F#R8FR8":C0="@63O5V5L16"+C+"Q6E4Q2ER8ER8ER8FR8"
300 C1="O5Q6F#4Q2F#R8F#R8F#R8FR8 Q6E4Q2ER8V4E>V3E<V2E>V1E<V0E>V15E>FV7O1F8"
310 C3=C+"Q6ER8V4ER8V3ER8V2ER8V1ER8V0E"
320 C="V9@53L16R8B-32B32R16B-R16FB-32B.R16BR16B-R16FB-32B.R16BFB8FB8FB8F>C8.<":C7="O5"+C:C9="O6"+C
330 CA="R8B-32B32R16B-R16FR16B-32B32R16B-32B32R16B-R16F":C8=CA+"B8FB8FB8>C8C<":CD="R8D#2E8O5@8FEFEL32FEFEF#16G8GG#G16C8@16>C8.
350 CH="Y34,32Q8@3V7O6R2C4G4E1":CI="R2C4G4E2F2"
360 CJ="Q3L16@16V9O6B->D<B-F>FD<B->F>C<GFCFDAB->DC<GFGCDD#FB-B->FV3D#<V2D#>V1D#<V0D#>V15D#>EV7O1E8"
420 D3=D+"Q6D#R8V4D#R8V3D#R8V2D#R8V1D#R8V0D#"
430 A="B-B-B-B-":B="CCCC":D="R4C#R4.<BR8B-R16>":D4="V7@63L16Q8O6"+D+D:D5=D+"O5@3L32V0"+A+"V4"+A+"V8"+A+"V15"+A+"V0"+B+"V4"+B+"V8"+B+"V15"+B:D6=D+"@57O5V5B>B<BB>BC>C#<C>C#C<E":DD="R8C#2D8O5@8C#CC#CL32C#CC#CD16D#8D#ED#16<G#8@16>G#8.
450 DH="Y35,32Q8@3V7O5R2G4>D#4C#1":DI="R2O5G4>D#4C#2D2"
460 DJ="Q4L16@16V11O6FAFC>C<AF>CGDC<GC<A cff>C<DE<EE>E<F>F#<F>F#F<A<A>C8R8<B2.>C8":EC="R8<B2.>C8R8<B4.BR16B-AR16AR16A>":ED="R8B2>C8O@8G#GG#GL32G#GG#GA16B-8B-BB-16D#8@16>D#8.
530 E="Q8@3V7O6L32D#8&Y20,172&D#&Y20,182&D#&Y20,192&D#&Y20,202&D#>C8&Y20,80&C&Y20,90&C&Y20,80&C&Y20,70&C<"
540 EE=E0+"R4."+E:EF="Q7G#1."+E:EG="Q7G#64&Y20,16&G#1...":EH="R2"+E+"G#1":EI="R2"+E+"F#2G2"
550 EJ="@50L16O6V13R8C8V6CV13CCV5C8V15CCV5CV10CC8CV15CV13C8CCV4CV13CC8CV7CV15CV13L24CCL12<B-B>"
560 E="L24CCL12CCC<B-B>":EK=E+E+E+E
570 EL="L8CD."
610 F="O2D#.B-.>D#.R16<A.>D.":F0=F+"C#.<G#.C#.R16F#.>D."
620 F3=F+"C#4R2L32C#&Y21,95&C#&Y21,80&C#&Y21,65&C#&Y21,50&C#&Y21,35&C#&Y21,20&C#&Y21,5&C#"
630 F="O2L8G#G#>G#16<G#G#G#>F#16<G#>F":F4="V11Q6Y37,0"+F+F:F5=F+"L16CC#C#C#>C#<C#DG#G#16<G#G#G#>G#16<F#G#G#>G#G#16<G#16>Q6G#<G#16>G#<G#16>A"
660 F="O2L16G#R16G#8>G#<G#R16G#R16G#R16>G#<G#R16>A8":FB=F+F:FC=F+"<G#R16G#R16>G#<G#R16>G#G#R16GF#R16C#R16<F#":FD="O2G#G#G#8>G#<G#R16G#>G#<G#>FED#DD#DD#DEF8FF<B>D#.G#.R16D.G.":FH=F+"F#.C#.<F#.R16G.>D.":FI=F+"Q8D2D#2Q4"
680 FL="O3G16&Y21,22&G16GGF#F#FFE E.<B.E.>ED#<B>E.B.D#<B>D#.G#4G24G#24G24D#C<G#.>D#.G#.G16G#16FF#16<B>E.B.D#<B gd="R16R2.R2Y40,13M48M48M48M48M48M48M48M48M48M48M48M48Y40,7" gl="S!C8B8S!C8B8S!C8B8S!C16S!16S!B!16S!16 B!H16B!H16C16B!16S!H16H16C16S!16H16S!H16B!C8S!H16H16C16B!16" i j h h a>E<A>E>A<E>AV9G#V7G#V9G#V7G#V5G#V3G#<V9G#V7G#V5G#V3G#>V9G#V7G#<":I4="O6L32"+I+I+I+"OVF#4F4":I5="O6L32"+I+I
960 J4="VOL16E32F32F#2..E32F32F#2B4B-4":J5="E32F32F#2..."
970 I6=I5+"R2S8M1O7L64D#R64D#R64D#":J6=J5+"R2S8O6L64ER64ER64E"
980 I="O7ER32B-G#D#R32GR32ER32G#R32>D#R32CR32":I7="S14M1L32"+I+I+I+I
990 ID="R2.VO5C#2D#2":JD="V4O8B2.VO5G#2B-2"
1000 IM="V6O7"+II+"V9O8B2R4L64V11O1BB-AG#GF#FE"
1010 IO="V6O7"+II+"R8B8R8VO8B8B2"
1020 'WWWWW PLAY
1030 A%=0:PLAY#2,T,T,T,T,T,T,T,T,T,T
1040 _TRANSPOSE(0):POKE&HFA2C,70
1050 _VOICECOPY(Y%,@63)
1060 PLAY#2,A0,B0,C0,D0,E0
1070 PLAY#2,A1,B1,C1,D1,E0,"",G1,H1,I1
1080 PLAY#2,A0,B0,C0,D0,E0,"",G0,H0,I0
1090 PLAY#2,A0,B0,C0,D0,E0,F1,G0,H0,I0
1100 PLAY#2,A0,B0,C0,D0,E0,F0,G0,H0,I0
1110 PLAY#2,A1,B1,C1,D1,E0,F0,G2,H2,I2,J2
1120 PLAY#2,A0,B0,C0,D0,E0,F0,G0,H0,I0
1130 PLAY#2,A3,B3,C3,D3,E0,F3,G3,H3,I3,J3
1140 _VOICECOPY(X%,@63)
1150 PLAY#2,A4,B4,C4,D4,E4,F4,G4,H4,I4,J4
1160 PLAY#2,A5,B5,C5,D5,E5,F5,G5,H5,I5,J5
1170 PLAY#2,A4,B4,C4,D4,E4,F4,G4,H4,I4,J4
1180 PLAY#2,A6,B6,C6,D6,E6,F6,G6,H6,I6,J6
1190 IF A%=1 THEN 1590
1200 PLAY#2,A7,B7,C7,A7,E0,F7,G7,H7,I0
1210 PLAY#2,A8,B8,C8,A8,E0,F7,G7,H7,I0
1220 PLAY#2,A9,B9,C9,A9,E0,F7,G7,H7,I7
1230 PLAY#2,AA,BA,CA,AA,E0,F0,G2,H2,I2,J2
1240 IF A%=2 THEN 1640
1250 PLAY#2,AB,BB,CB,DB,EB,FB,G7,H7,I0
1260 PLAY#2,AC,BC,CC,DC,EC,FC,G7,H7,I6
1270 PLAY#2,AB,BB,CB,DB,EB,FB,G7,H7,I7
1280 PLAY#2,AD,BD,CD,DD,ED,FD,GD,"",ID,JD
1290 _VOICECOPY(Y%,@63)
1300 PLAY#2,A0,B0,C0,D0,E0,F0,G7,H7,I0
1310 PLAY#2,A1,B1,C1,D1,E0,F0,G7,H7,I0
1320 PLAY#2,A0,B0,C0,D0,E0,"",G7,H7,I0
1330 PLAY#2,A0,B0,C0,D0,EE,F1,G2,H2,I0
1340 PLAY#2,A0,B0,C0,D0,EF,F0,G0,H0,I0
1350 PLAY#2,A1,B1,C1,D1,EF,F0,G2,H2,I2,J2
1360 PLAY#2,A0,B0,C0,D0,EF,F0,G0,H0,I0
1370 PLAY#2,A3,B3,C3,D3,EG,F3,G3,H3,I3,J3
1380 PLAY#2,"","",CH,DH,EH,FH,G0,H0,I0
1390 PLAY#2,"","",CI,DI,EI,FI,G0,H0,I0
1400 PLAY#2,"","",CH,DH,EH,FH,G0,H0,I0
1410 PLAY#2,AH,AH,CI,DI,EI,FI,G0,H0,I0
1420 PLAY#2,AH,AH,"","",EE,FH,G0,H0,I0
1430 PLAY#2,AH,AH,"","",EE,FI,G0,H0,I0
1440 PLAY#2,AH,AH,CJ,DJ,EF,FH,G0,H0,I0
1450 PLAY#2,AH,AH,CJ,DJ,EG,FI,G2,H2,I2
1460 IF A%=1 THEN _TRANSPOSE(-9600):A%=2:GOTO 1060
1470 PLAY#2,AJ,BJ,CJ,DJ,EJ,FJ,G0,H0,I0
1480 PLAY#2,AK,BK,CJ,DJ,EK,FJ,G0,H0,I0
1490 PLAY#2,AL,BL,CL,DL,EL,FL,GL,HL,I0
1500 PLAY#2,AM,BM,CM,DM,EM,FM,GM,HM,IM
1510 PLAY#2,AJ,BJ,CJ,DJ,EJ,FJ,G0,H0,I0
1520 PLAY#2,AK,BK,CJ,DJ,EK,FJ,G0,H0,I0
1530 PLAY#2,AL,BL,CL,DL,EL,FL,GL,HL,I0
1540 FORZ=1TO3
1550 PLAY#2,AN,BN,CN,DN,EN,FK,GN,HN,I0
1560 _TRANSPOSE(Z*100):NEXT
1570 PLAY#2,AO,BO,CO,DO,EO,FO,GO,HO,IO
1580 _TRANSPOSE(0):POKE&HFA2C,70:A%=1:GOTO1060
1590 PLAY#2,"","",CH,DH,EH,FH,G7,H7,I0
1600 PLAY#2,"","",CI,DI,EI,FI,G7,H7,I0
1610 PLAY#2,"","",CH,DH,EH,FH,G7,H7,I7
1620 PLAY#2,AH,AH,CI,DI,EI,FI,G2,H2,I2,J2
1630 GOTO1420
1640 END
10 'WWWWW MASSACRE MARCH
20 CLEAR9999:_MUSIC(1,0,1,1,1,1,1,1):_TRANSPOSE(1190):DEFSTRA-Y:DIMX%(15):FORZ=5TO13:READW:X%(Z)=VAL("&H"+W):NEXT:SOUND7,49:SOUND6,31:DATAE,,,4FD0,B0,,,10,4270
30 'WWWWW MML
40 T="T150"
50  C0="V14CV11C"  :C1=C0+"VC"
60  C2="V14C#V11C#":C3=C2+"VC#"
70  D0="V14DV11D"  :D1=D0+"VD"
80  D2="V14D#V11D#":D3=D2+"VD#"
90  E0="V14EV11E"  :E1=E0+"VE"
100 F0="V14FV11F"  :F1=F0+"VF"
110 F2="V14F#V11F#":F3=F2+"VF#"
120 G0="V14GV11G"  :G1=G0+"VG"
130 G2="V14G#V11G#":G3=G2+"VG#"
140 A0="V14AV11A"  :A1=A0+"VA"
150 A2="V14A#V11A#":A3=A2+"VA#"
160 B0="V14BV11B"  :B1=B0+"VB"
170 A=E1+E1+G1+G1+A0+A0+E1+E1+D1+D1+D2+"V13D#"
180 A4="@63Q4O5L16R16"+A:A6="VC<"+A
190 A5="V5D#"+E1+E1+G1+G1+A0+A0+A3+A2+"V14B>"+C0+"V14C"+C1+C0+"V14C"
200 A=C3+C3+E1+E1+F2+F2+C3+C3+"<"+B1+B1+">"+C0+"V14C"
210 B4="@63Q4O5L16R16"+A:B6="VA"+A
220 B5="VC"+C3+C3+E1+E1+F2+F2+G1+G0+"V14G#"+A0+"V14A"+A1+A0+"V14A"
230 A=A1+A1+">"+C1+C1+D0+D0+"<"+A1+A1+G1+G1+G2+"V14G#"
240 C4="@63Q4O4L16R16"+A:C6="VF<"+A
250 C5="VG#"+A1+A1+">"+C1+C1+D0+D0+D3+D2+"V14E"+F0+"V14F"+F1+F0+"V14F"
260 AD="@63O6V12Q8D8.R1C"+D1+"V14D#"+F1+"V14D#"+D1+"V14C"
270 AE="V12D8R2.C8<"+A2+"V12B-B-B-B>"+C0+"V12CCCC#"+D0+"V12DD#"
280 BD="@63Q8O5V12B8.R1A"+B1+">V14C"+D1+"V14C<"+B1+"V14A"
290 BE="V12B8R2.A8"+G0+"V12GGGG#"+A0+"V12AAAB-"+B0+"V12B>C"
300 CD="Q8O5V12G8.R1F"+G1+"G#"+A3+"V14G#"+G1+"V14F"
310 CE="V12G8R2.F8"+D2+"V12D#D#D#E"+F0+"V12FFFF#"+G0+"V12GG#"
320 AF="@63O6Q4"+D1+D1+F1+F1+G0+G0+D1+D1+C1+C1+C2+C2
330 AG=D1+D1+F1+F1+G0+G0+G3+G3+A3+A3+A2+A2
340 BF="O5Q4"+B1+B1+">"+D1+D1+E0+E0+"<"+B1+B1+A1+A1+A2+A2
350 BG=B1+B1+">"+D1+D1+E0+E0+F1+F1+G1+G1+G0+G0
360 CF="O5Q4"+G1+G1+A3+A3+">"+C0+C0+"<"+G1+G1+F1+F1+F2+F2
370 CG=G1+G1+A3+A3+">"+C0+C0+C3+C3+D3+D3+D2+D2
380 DF="@63O5Q4"+F3+F3+A1+A1+B0+B0+F3+F3+E1+E1+F0+F0
390 DG=F3+F3+A1+A1+B0+B0+">"+C1+C1+D1+D1+D0+D0
400 A=C1+E1+"<"+A3+B1+">"+C1+"V5C":AH="@6O6Q3L16"+A+A:AI=C1+E1+"<"+A3+B1+">"+C0+C0+C3+C2+"V14D"+D2+"V14D#"+D3+D2+"V14E"
410 A=F1+A1+D3+E1+F1+"V5F":AJ=A+A:AK=F1+A1+D3+E1+F0+F0+F3+F3+"L24@63Q5L24"+F1+F1+F1+F1+F1
420 A=A1+">"+C1+"<"+G1+G3+A1+"V5A":BH="L16@6O5Q3"+A+A:BI=A1+">"+C1+"<"+G1+G3+A0+A0+A3+A2+"V14B>"+C0+"V14C"+C1+C0+"V14C#"
430 A=D1+F1+C1+C3+D1+"V5D":BJ=A+A:BK=D1+F1+C1+C3+D0+D0+D3+D3+"L24@63Q5L24"+D1+D1+D1+D1+D1
440 A=F1+A1+D3+E1+F1+"V5F":CH="@6O5Q3L16"+A+A:CI=F1+A1+D3+E1+F0+F0+F3+F2+"V14G"+G2+"V14G#"+G3+G2+"V14A"
450 A=A3+">"+D1+"<"+G3+A1+A3+"V5B-":CJ=A+A:CK=A3+">"+D1+"<"+G3+A1+A2+A2+B1+B1+"L24@63Q5L24"+A3+A3+A3+A3+A3
460 A=E1+G1+D1+D3+E1+"V5E":DH="@6O5Q3L16"+A+A:DI=E1+G1+D1+D3+E0+E0+F1+F0+"V14F#"+G0+"V14G"+G1+G0+"V14G#"
470 A=A1+">"+C1+"<"+G1+G3+A1+"V5A":DJ=A+A:DK=A1+">"+C1+"<"+G1+G3+A0+A0+A3+A3+"L24@63Q5L24"+A1+A1+A1+A1+A1
480 A="@55Y0,11Y3,16V12L8Q8F#1.&F#AG#G":AL="O1"+A:BL="O8"+A:AM="F#.C#.F#&F#1."
490 BM="V12@6Q4O5L16R1R8AAAAR8AAAA"
500 CM="V12@6Q4O5L16R1R8EEEER8EEEE"
510 D6="@48Q3O4L16"+G1+G1+G1+G1+G2+F0+G1+G1+G1+"V13F"+F0+F0+F2
520 D5=G1+G1+G1+G1+F2+F2+G1+G1+A1+A1+A0+A0
530 D="R8C#R8DR8ER8D"
540 DB="Y35,32@6V6O5L8Q8"+D+D
550 DC=D+"F8R16F16R16F16F#16G8R16G16G16R16G16L32GDCCCC<B aaaaab-bbbbb>CC#C#C#D"
580 E6="@48Q3O4L16"+C1+C1+C1+C1+C2+"<"+A2+">"+C1+C1+C1+"<V13A#"+A2+A2+B0+">"
590 E5=C1+C1+C1+C1+"<"+B0+B0+">"+C1+C1+D1+D1+D0+D0
600 D="R8AR8BR8>C#R8<B>D8R16D16R16D16D#16E8R16E16E16R16E16L32EGD>D<G>G<D>D<<":EF="@16Q8L32V10O5"+E+E+E+E+E+E+E+E
660 EH="@14Q1V15O1L8D.F.C.C#.D4D.F.C.C#.D4":EI="D.F.C.C#.DDD#.D#.F.F.FF"
670 EJ="G.B-.F.F#.G4G.B-.F.F#.G4":EK="G.B-.F.F#.GGG#.G#.@16Q8O2V15D#2"
680 F6="@63O3V14L8Q3R16D.D.DR2D.D.DR8<AB->Q8F16"
690 F5="Q3O3R16D.D.F.F.GGF.FF#16GG16D.E8<F8FF8F#G8>D8G8AA<A>A8<A>AA<A>A<AB->B-<G>G<A>A8<A>AA<A>AA<G>G<GG>G<G#>G#"
730 FA="O1A>AA<A>AA<A>AA<A>A<AA>A<B>B>C<CC>C<CC#D>D<DQ2E<A8A>Q7F#8<A8>Q2G<A8A>Q7F#8<A8>Q2E<A8A>Q3F#8AGF#EGF#ED"
750 FC="O1Q7AA>Q2A<A8AQ7>GQ2F#8GF#D<A>A<B>BQ5C8<G>C8C#D8Q2FA>ED<BQ8L32A>A>A>AL16
760 FD="V10Q6O2GGG8GGGG8GGGF#G#BG#GGGFGGGG#B-B-B-G#GGGF"
770 FE="EBB-BEB<B>BEBF#BGBDD#C8.C8C#D8DD8D#L32EFF#GG#AB-BL16"
780 FF="O2"+STRING$(32,"G")
790 FG="GGGGGGGGGGGGAAAAB-B-B-B-B-B-B-B>CCC<G16>CC#16D.D.L32D&Y21,112&D&Y21,102&D&Y21,92&D&Y21,82&D&Y21,72&D&Y21,62&D&Y21,52&D"
830 FZ="R1..@55Y0,11Y3,16V15Q8O8F#1..."
840 G6="Y22,8Y23,78Y24,132V3@A15B!8H16H16S!B!8H16H16B!8H16H16S!B!8H16HB!16B!16S!32S!32M!H32M!32B!H32B!32B!8H16B!H16S!B!M!8S!B!M!8S!B!M!8H16H16"
850 G7="V15MB16B8B16S8B16S8S16B8S8.B16B8B8S8B16S8S16B16S8B16S8"
860 G="B!C8S!C16B!16C16B!16S!C8":G8="V6Y24,192"+G+G+G+G
870 G9=G+G+G+"B16S16S16S16B16SB16S16B16"
880 GA=G+G+G+"B16S16S16B16S32S32SB32B32S32S32BS32S32"
890 G="BC8S8BC8S8BC8S8S8S16S16":GD="V15"+G+G
900 GE="BC8S8BC8S8BC8S8BC8S8BC8S8BC8S8BC8S16S16S16S16S64S64S64S64S64S64S64S64"
910 G="BC8S8":GF=G+G+G+G+G+G+G+G
920 G="BSC8.BSC8.BSC8.BSC8.BSC4":GH=G+G
930 GI="BSC8.BSC8.BSC8.BSC8.BSC8BSC8BS16S16MS16S16BS16S16MS16BS16BS16BS16MBS16S16BS16S16MBS16S16"
940 I="V12CV10C":H=I+"VCV6C":H4=H+"R8"
950 H6="L32R"+H4+"R"+H4+"R2"+H+H+H
960 H7="R8VC8"+H+"VCC"+H+I+"VC8"+H+"VC8R8C8"+H+"VCC"+H+I+"VCC"+H+"R16"+I+"VCC"
970 HA="R8"+H4+H4+H4+H4+H4:H8=HA+H4+H4+H
980 H9=HA+H+"R16"+I+I+"SM3000C8C16C8"
990 HA=HA+H+"R16"+I+H+"SM2000CCC.CCCC"
1000 J4="V11CV10CCV9C":J=J4+"CVCCV7C":HD=J+J+J4+H+H+I+I+J+J+J4+H+H+I+I
1010 HE=J+J+J+J+J+J+J4+I+I+I+I+"SM1500L64CCCCCCCCL32":HF=J+J+J+J+J+J+J+J
1020 J=H+"R16":HH=J+J+J+J+H4+J+J+J+J+H4
1030 HI=J+J+J+J+H+H+I+I+I+I+I+I+I+I+I+I+I+I+I+I+I+I
1040 I="R8AG#GF#":I7="VO8L32"+I+I+I+I+I+I+I+I
1050 I="O7BF#C#C#8<":B="F#V6F#V10F#V6F#V10":CN="V13@4Q7"+A+"F#F#B8F#F#A8F#F#B8F#F#":JN="V10"+A+"L32"+B+"B8"+B+"A8"+B+"B8"+B
1080 A="C#V6C#V10C#V6C#V10":IN="V10L16O5C#4&C#CC#D#E4&ED#EF#G#8L32"+A+"F#8"+A+"E8"+A+"F#8"+A
1090 CO=">C#1C#1L32C#<AF#>C#<BG#EC#<BA>C#D#C#<B>D#"
1130 IP="G#EC#G#F#D#<BF#EG#B>D#F#<B>C#F#ED#C#EF#ED#F#G#F#EG#B-G#F#B-"
1140 CQ="Q8L32D#E2....C#DD#EFF#F"
1180 IR="L24O5G#EC#F#D#<B>EC#<G#>G#EC#B-G#F#BB-G#>C#<BB->D#C#DEC#<G#>D#<BF#FG#>C#D<B->FF#D#<B>C#FG#AB-B>CC#C<"
1190 CS="ED#C#F#D#EG#F#EBB-F#G#F#EF#ED#ED#C#F#D#<BAF#FG#ED#GDC#F#CC#<B-B>D#C#<B>F#FC#D#C#<B>C#<BB-BB-G#>C#<B-F#EC#CD#C#F#B>EAB-FC<GDD#G#>C#"
1220 CU="L32O4C#F#B>EA>DG>CFB->D#G#AB-BN96L16BAG#F#ED#C#D#E8F#G#G8FGF#2"
1230 IT="O5L32BG#EB>C#<B-F#FEG#B>D#FC#<G#>FE<BG#>ED#<B-A>DC#<G#GC#CFB->D#G#>C#F#B>EFC<GDD#G#"
1240 IU="L32O3G#>C#F#B>EA>CFB>FB->D#EFF#GL16F#ED#C#<BB-G#B-B8>C#D#C8<B->CC#2"
1250 'WWWWW PLAY
1260 PLAY#2,T,T,T,T,T,T,T,T,T,T
1270 _VOICECOPY(X%,@63)
1280 PLAY#2,A4,B4,C4
1290 PLAY#2,A5,B5,C5
1300 PLAY#2,A6,B6,C6,"","",F6
1310 PLAY#2,A5,B5,C5,"","",F5
1320 PLAY#2,A6,B6,C6,"","",F6,G6,H6
1330 PLAY#2,A5,B5,C5,"","",F5,G6,H6
1340 PLAY#2,A6,B6,C6,D6,E6,F7,G6,H6
1350 PLAY#2,A5,B5,C5,D5,E5,F8,G6,H6
1360 FORZ=0TO1
1370 PLAY#2,A6,B6,C6,D6,E6,F9,G7,H7,I7
1380 PLAY#2,A5,B5,C5,D5,E5,FA,G7,H7,I7
1390 NEXT
1400 PLAY#2,A6,B6,C6,DB,EB,FB,G8,H8,I7
1410 PLAY#2,A5,B5,C5,DC,EC,FC,G9,H9,I7
1420 PLAY#2,A6,B6,C6,DB,EB,FB,G8,H8,I7
1430 PLAY#2,A5,B5,C5,DC,EC,FC,GA,HA,I7
1440 X%(12)=96:_VOICECOPY(X%,@63)
1450 FORZ=0TO1
1460 PLAY#2,AD,BD,CD,DD,ED,FD,GD,HD,I7
1470 PLAY#2,AE,BE,CE,DE,EE,FE,GE,HE,I7
1480 NEXT:X%(12)=16:_VOICECOPY(X%,@63)
1490 FORZ=0TO1
1500 PLAY#2,AF,BF,CF,DF,EF,FF,GF,HF,I7
1510 PLAY#2,AG,BG,CG,DG,EF,FG,GF,HF,I7
1520 NEXT
1530 PLAY#2,AH,BH,CH,DH,EH,FH,GH,HH,IH
1540 PLAY#2,AI,BI,CI,DI,EI,FI,GI,HI,IH
1550 PLAY#2,AJ,BJ,CJ,DJ,EJ,FJ,G7,H7,IH,I7
1560 PLAY#2,AK,BK,CK,DK,EK,FK,G7,H7,IH,I7
1570 PLAY#2,A4,B4,C4,D6,E6,F6,GF,HF,I7
1580 PLAY#2,A5,B5,C5,D5,E5,F5,GF,HF,I7
1590 PLAY#2,A6,B6,C6,D6,E6,F7,GF,HF,I7
1600 PLAY#2,A5,B5,C5,D5,E5,F8,GF,HF,I7
1610 FORZ=0TO1
1620 PLAY#2,A6,B6,C6,DB,EB,FL,GF,HF,I7
1630 PLAY#2,A5,B5,C5,DC,EC,FM,GF,HF,I7
1640 NEXT
1650 PLAY#2,AL,"","",DB,EB,FL,GF,HF,AL
1660 PLAY#2,AM,BM,CM,DB,EB,FM,GF,HF,AM,JM
1670 PLAY#2,AL,BL,"",DB,EB,FL,GF,HF,AL
1680 PLAY#2,AM,BM,CM,DB,EB,FM,GF,HF,AM,JM
1690 PLAY#2,AL,"",CN,DB,EB,FL,GF,HF,IN,JN
1700 PLAY#2,AM,BM,CO,DB,EB,FM,GF,HF,IO,JO
1710 PLAY#2,AL,BL,CP,DB,EB,FL,GF,HF,IP,CP
1720 PLAY#2,AM,BM,CQ,DB,EB,FM,GF,HF,IQ,JQ
1730 PLAY#2,AL,"",CR,DB,EB,FL,GF,HF,IR,CR
1740 PLAY#2,AM,BM,CS,DB,EB,FM,GF,HF,IS,CS
1750 PLAY#2,AL,BL,CT,DB,EB,FL,GF,HF,IT,CT
1760 PLAY#2,AM,BM,CU,DB,EB,FM,GF,HF,IU,CU
1770 PLAY#2,AH,BH,CH,DH,EH,FH,GH,HH,IH
1780 PLAY#2,AI,BI,CI,DI,EI,FI,GI,HI,IH
1790 PLAY#2,AJ,BJ,CJ,DJ,EJ,FJ,G6,H6,IH,I7
1800 PLAY#2,AK,BK,CK,DK,EK,FK,G6,H6,IH,I7
1810 PLAY#2,A4,B4,C4,"","","","","",I7
1820 PLAY#2,A5,B5,C5,"",EH,FZ,GH,HH,IH,I7

By ppeccin

Champion (374)

Аватар пользователя ppeccin

22-03-2016, 23:37

NYYRIKKII suggest you download [URL=https://www.msx.org/wiki/Micro_Music wrote:

Micro Music[/URL]... It can play all of the Microcabin game musics... IIRC MSX1 is enough, but you need at least 128KB RAM.

Holy!!! That is amazing.
I can't believe it worked in WMSX right away... So many things I never tried. TSR software... Music player... On the just implemented MSX-MUSIC support.

I can't of course say the songs are playing correctly, but its looking (sounding) good so far!

Thanks for the tip!
Paulo

Страница 28/48
21 | 22 | 23 | 24 | 25 | 26 | 27 | | 29 | 30 | 31 | 32 | 33