#10 Article 450 Posted at 1989/05/02 13:51:17 by MX (MAP632) [YAMATO]
Subject: 『宇宙戦艦ヤマト』 BASIC MUSIC
またもやＲＢＢＳに全国ＮＥＴで転送されてきたので転載します。でもＶＡユー
ザーなんているかなぁ。転載元は４３１．１８ＭｈｚのＪＳ１ＣＹＩ－ＲＢＢＳで
す。
ＭＸ／ＭＡＰ６３２
■ 電子掲示板 # 1 ｢全国・その他｣ (F,FA,FM,FN,F>,F<,L,R,W,W@,K,A,Q,B,D,?) >
番号_容量__________________題名___________________回数_日付_書込人_宛____転送_
232 6400 『 宇宙戦艦ヤマト 』 BASIC MUSIC 0 0501 JH7AUY MUSIC JPN
書込人 : JH7AUY 転送元BBS : JR7YED
書込日時 : 890430/0240
転送経路 : JS1CYI<JF1OMT<JA1ZTV<JA1ZOE<JA1EOD<JA1OGZ<JA2ECD<JF2PZG<JH0ZDS<JH0EXA<JH0ZHW<JR7YED
MsgId: 13548_JR7YED
1000 '★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★
1010 '★ ★
1020 '★ ＢＡＳＩＣ ＭＵＳＩＣ ★
1030 '★ ★
1040 '★ 『 宇 宙 戦 艦 ヤ マ ト 』 ★
1050 '★ ★
1060 '★ ★
1070 '★ ★
1080 '★ Ａｒｒａｎｇｅ ： ＪＨ７ＡＵＹ ★
1090 '★ ★
1100 '★ ★
1110 '★ for NEC PC-88VA V3 mode ★
1120 '★ ★
1130 '★ 1989 - 04 - 30 ★
1140 '★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★
1150 CLS 3:CONSOLE 0,25,0,1:WIDTH 80,25
1160 LINE (60,0)-(480,140),1,BF
1170 LINE (80,10)-(500,160),4,BF
1180 LINE (100,20)-(520,180),6,BF
1190 LINE (120,30)-(540,200),5,BF
1200 LINE (150,50)-(500,180),0,BF
1210 COLOR 3:LOCATE 30,8:PRINT "ＢＡＳＩＣ ＭＵＳＩＣ"
1220 COLOR 4:LOCATE 28,12:PRINT "『 宇 宙 戦 艦 ヤ マ ト 』"
1230 COLOR 5:LOCATE 28,17:PRINT "for NEC PC-88VA V3 mode"
1240 COLOR 7:LOCATE 30,19:PRINT "演奏時間 ２分２７秒"
1250 COLOR 2:LOCATE 25,21:PRINT "Ａｒｒａｎｇｅ"
1260 COLOR 6:LOCATE 42,21:PRINT "ＪＨ７ＡＵＹ"
1270 COLOR 7
1280 STOPM
1290 PLAY "O5L8","V14@13O5L8","V13@31L8O4"
1300 PLAY ,,,"O4Q4L8","V10O5Q4L8","T126L8S0Y8,20Y6,255"
1310 MX0$="@50V12<B-4B-.B-16>E-4GE- F.B-16B-2>C16<B-16A-"
1320 MY0$="B-E-16R16G16R16B-16R16>D4E-16D16E- R4E-16D16E-<B-RB4"
1330 M00$=MX0$+MY0$
1340 MX1$=">C4<B-A-B-4G4 A-4GFG4E-4 G16>C16D16R16 <G16>C16D16R16"
1350 MY1$="<G16>C16D16<G16&G16>C16D16R16"
1360 MZ1$="D16F16G16R16D16F16G16R16D16F16G16D16&D16F16G16R16"
1370 M01$=MX1$+MY1$+MZ1$
1380 M02$="R1 R2R4<<@13GG"
1390 M03$="O5@13C2&CCD<B- >C2.<GG >C2&CDE-C G2.GG"
1400 M04$="F2&FFE-F G2.R4 D2<B-2 >C1& C2R2"
1410 M05$="C.C16CCCE-G4 F.G16FE-DD<B-4 >C.C16CCCE-G4 B-B-4>C<B-4FA-"
1420 M06$="G2&GRGG >C2&CCD<B- >C2.<GG >C2&CE-D<B-"
1430 M07$=">C2.<A-G FF4.&FFA->C <G2.A-G F4.F{FA->C}2 D1& D2R2"
1440 M08$="<C.C16CCCE-G4 F.G16FE-DD<B-4 >C4D4E-4.C F4FA-G2"
1450 MX9$=">DD4E-D4<B-4 >E-2D2 C1& C2.R4"
1460 MY9$="@16{CC+DD+EFF+GG+AA+B>CC+DD+EFF+GG+AA+B}1"
1470 MZ9$="{CC+DD+EFF+GG+AA+B<BA+AG+GF+FED+DC+C}1"
1480 M09$=MX9$+MY9$+MZ9$
1490 MAA$=">DD4E-D4<B-4 >E-2D2 C1& C2.R4 R4{<GA-A}4B-2"
1500 MBB$="{GA-A}4B-2{>D-<B->D-}4 C4<C16CC16CRR4"
1510 M10$=MAA$+MBB$
1520 S00$="R1R1R1R1"
1530 S01$="R1R1R1R1"
1540 S02$="V14>C1& C2."
1550 S03$="V12R<GRGRGRG V14RG{B-B-B-}4A2 V12RGRGRGRG V14RG{DDD}4D-2"
1560 S04$="V12RA-RA-RA-RA- V14{GAB-}2{B>CC+}2 D2<B-2V12C.G16F+2{CCC}4C.G16F+2."
1570 S05$="V14>C1 D1 E-1 F1"
1580 S06$="V12G.F16E-16R16F16R16G16R16G4G RE-4E-RCD<B- >CCE-CG2 RE-4E-RE-D<B-"
1590 SX7$=">CCE-C<A-2 RA-RA-RA-RA- RGRGRGRG RA-RA-{FA->C}2"
1600 SY7$="<G16>C16D16R16<G16>C16D16R16<G16>C16D16<G16&G16>C16D16R16"
1610 SZ7$="D16F16G16R16D16FG16&G4G16F16E-16D16"
1620 S07$=SX7$+SY7$+SZ7$
1630 S08$="V14C1 D1 E-1 F1"
1640 S09$="V12DD4E-D4<B-4 >E-2D2 E1& E1 E-1& E-1"
1650 S10$="DD4E-D4<B-4 >E-2D2 E1& E1 @16E-1D1C1"
1660 B00$="B-4B-4B-4B-4 B-4B-4B-4B-4 E-4E-4E-4E-4 E-4E-4E-RG4"
1670 B01$="A-4GFG4E-4 F4E-DE-4C4 G4G4G4G4 G4G4G4G4"
1680 B02$="C4G4C4G4 C4G4C4G4"
1690 B03$="C4G4C4G4 C4G4C4G4 C4G4C4G4 E-4B-4E-4B-4"
1700 B04$="A-4E-4A-4E-4 {GFG-}2{GA-A}2 R4B-4R4G4 C4G4C4G4 C4G4C4G4"
1710 B05$="C4G4C4G4 B-4F4B-4F4 A-4E-4A-4E-4 B-4F4B-4F4"
1720 B06$="E-4B-4G4G4 C4G4C4G4 C4G4C4G4 A-4E-4A-4E-4"
1730 B07$="A-4E-4A-4E-4F4>C4<F4>C4<G4>C4<G4>C4<F4>C4<{FFF}2G4G4G4G4G4G4G4R4"
1740 B08$="C4G4C4G4 B-4F4B-4F4 A-4E-4A-4E-4 F4F4G4G4"
1750 B09$="G4R4R2 R4A-4R4B-4 C4G4C4G4 C4G4C4G4 C4G4C4G4 C4G4C4G4"
1760 B10$="G4R4R2 R4A-4R4B-4 C4G4C4G4 C4G4C4G4 C2D-4D-4 C2D-4D-4 CRC16CC16CRR4"
1770 XAA$="V15Q8O8L8{BA+AG+GF+FED+DC+C<BA+AG+GF+FED+DC+C<BA+AG+GF+FED+DC+C"
1780 XBB$="<BA+AG+GF+FED+DC+C}1 R1 >>>{BA+AG+GF+FED+DC+C<BA+AG+GF+FED+DC+C"
1790 XCC$="<BA+AG+GF+FED+DC+C<BA+AG+GF+FED+DC+C}1 R1"
1800 X00$=XAA$+XBB$+XCC$
1810 X01$="R1R1R1R1"
1820 X02$="V10Q4O5L8C4R4C4R4 C4R4C4R4"
1830 X03$="C4R4C4R4 C4R4C4R4 C4R4C4R4 R1"
1840 X04$="R1R1R1C4R4C4R4 C4R4C4R4"
1850 X05$="C4R4C4R4 R1R1R1"
1860 X06$="R1 C4R4C4R4 C4R4C4R4 R1"
1870 X07$="R1R1R1R1R1R1"
1880 X08$="C4R4C4R4 R1R1R1"
1890 X09$="R1R1 C4R4C4R4 C4R4C4R4 C4R4C4R4 C4R4C4R4"
1900 X10$="R1R1 C4R4C4R4 C4R4C4R4 C2D-4D-4 C2D-4D-4 CRR2R4"
1910 Y00$="R1R1R1 B-2&B-RF4"
1920 Y01$="E-2E-2 D2C2 R1 B2B2"
1930 Y02$="RE-RE-RE-RE- RE-RE-RE-RE-"
1940 Y03$="RE-RE-RE-RE- RE-R4RE-RE- RE-RE-RE-RE- RE-R4RGRG"
1950 Y04$="RFRFRFRF {<B>CD-}2{DE-E}2 B-2G2 R4RCRCR4 R4RCRCRC"
1960 Y05$="RE-RE-RE-RE- RB-RB-RB-RB- R>CRCRCRC RDRDRDRD"
1970 Y06$="R2RD4D RC4CRR<GG GGR4R>CRC RC4CR<A-4."
1980 Y07$="A-A-R4RE-RE- EFEFEFEF RE-RE-RE-RE- RFRF{CFA-}2 R1 B4B2R4"
1990 Y08$="RE-RE-RE-RE- RFRFRFRF RA-RA-RA-RA- RA-RA-RBR4"
2000 Y09$="GG4.&G4R4 R4E-4R4D4 RGRGRGRG RGRGRGRG RGRGRGRG RGRGRGRG"
2010 Y10$="GG4.&G4R4 R4E-4R4D4 RGRGRGRG RGRGRGRG R4E4R4F4 E2F2 ERR2R4"
2020 N=1
2030 PLAY M00$,S00$,B00$,X00$,Y00$
2040 PLAY M01$,S01$,B01$,X01$,Y01$
2050 PLAY M02$,S02$,B02$,X02$,Y02$
2060 PLAY M03$,S03$,B03$,X03$,Y03$
2070 PLAY M04$,S04$,B04$,X04$,Y04$
2080 PLAY M05$,S05$,B05$,X05$,Y05$
2090 PLAY M06$,S06$,B06$,X06$,Y06$
2100 PLAY M07$,S07$,B07$,X07$,Y07$
2110 PLAY M08$,S08$,B08$,X08$,Y08$
2120 IF N=2 THEN 2150
2130 PLAY M09$,S09$,B09$,X09$,Y09$
2140 N=2:GOTO 2060
2150 PLAY M10$,S10$,B10$,X10$,Y10$
2160 END
メッセージ 232番 終了
■ 電子掲示板 # 1 ｢全国・その他｣ (F,FA,FM,FN,F>,F<,L,R,W,W@,K,A,Q,B,D,?) >