#10 Article 423 Posted at 1989/03/16 23:15:43 by MX (MAP632) [RBBS]
Subject: 花のささやき
こんにちは、ＭＸです。僕がよく行く、アマチュア無線のＲＢＢＳに「小公女セ
ーラ」の主題歌のＢＡＳＩＣプログラムが＠ＪＰＮ経由で転送されて来たので、転
載します。(ｽｺｼ ﾊﾞｹﾃﾙｹﾄﾞ･･･)僕はＦＭ音源ボードを持っていないので聞けないの
ですが、何方か上手く聞けた方がいらっしゃいましたら、どんなものか教えてくだ
さい。ではではいきますのよ。
■ 電子掲示板 # 13 ｢音楽｣
[(H)説明(F)一覧(FN)未読(R)読む(K)削除(W)書込(W@)転送書込(Q)初期ﾒﾆｭｰ(B)ﾎﾞｰﾄﾞ]
>番号_容量__________________表題____________________読_日付_発信者_宛(To)_転送__
5 6409 『少公女セーラ』主題歌 BASIC [ 4]0308 JH7AUY MUSIC JPN
書込人 : JH7AUY 転送元BBS : JR7YED
書込日時 : 890307/2122
転送経路 : JS1CYI<JF1OMT<JA1ZTV<JE1ZIC<JF1FGE<JF1FGE<JK1PZM<JA1WOI<JA1WOI<JH0EXA<JH0ZHW<JR7YED
MsgId: 9057_JR7YED
1000 '★★★★★★★★★★★★★★★★★★★★★★★★★★★★
1010 '★ ★
1020 '★ ＢＡＳＩＣ ＭＵＳＩＣ ★
1030 '★ ★
1040 '★ 花 の さ さ や き ★
1050 '★ ★
1060 '★ テレビアニメ 『 少公女セーラ 』 主題歌 ★
1070 '★ ★
1080 '★ なかにし 礼 作詞 森田 公一 作曲 ★
1090 '★ ★
1100 '★ 1985 by NAOS Co.,Ltd. ★
1110 '★ ★
1120 '★ 1989 - 03 - 07 ｄｅ ＪＨ７ＡＵＹ ★
1130 '★★★★★★★★★★★★★★★★★★★★★★★★★★★★
1140 '
1150 ' 私の胸の 片隅に咲いている
1160 ' 小さな花に 名前はないけど
1170 ' 悲しい時は 赤い花びら一枚
1180 ' 目がしらに あてるの
1190 ' すると涙が 消えてゆく
1200 ' 私だって 泣こうと思ったら
1210 ' 声をあげて いつでも泣けるけど
1220 ' 胸の奥に この花あるかぎり
1230 ' 強く生きて みようとおもう
1240 '
1250 ' 明日はきっと 今日冾謔閧ﾍいい日と
1260 ' 祈りを込めて 星空を見ると
1270 ' 淋しくたって 一人ぼっちじゃないよと
1280 ' ささやいてくれるの
1290 ' 胸に咲いてる 赤い花
1300 ' 私だって 幸せほしいけど
1310 ' ほかにもっと 大事なものがある
1320 ' それが愛か 優しい心かは
1330 ' 生きてみれば わかると思う
1340 '
1350 CLS 3:CONSOLE 0,25,0,1:WIDTH 80,25
1360 LINE (60,0)-(480,140),1,BF
1370 LINE (80,10)-(500,160),4,BF
1380 LINE (100,20)-(520,180),6,BF
1390 LINE (120,30)-(540,200),5,BF
1400 LINE (150,50)-(500,180),9,BF
1410 COLOR 3:LOCATE 30,10:PRINT "ＢＡＳＩＣ ＭＵＳＩＣ"
1420 COLOR 5:LOCATE 30,13:PRINT "花 の さ さ や き"
1430 COLOR 2:LOCATE 35,15:PRINT "テレビアニメ"
1440 COLOR 7:LOCATE 28,17:PRINT "『 少公女セーラ 』 主題歌"
1450 COLOR 4:LOCATE 30,20:PRINT "ｄｅ"
1460 COLOR 6:LOCATE 38,20:PRINT "ＪＨ７ＡＵＹ"
1470 COLOR 7
1480 PLAY "@00V13L8O5","@13V11LL8O4","@31V13L8O3"
1490 PLAY ,,,"V08Q8L8","V07T100S0M1500Y7,08Y6,204L8Q3"
1500 I00$="R1 CD-<B>CGEF4 >{D-C<B>CGFEFB-A-GA-GA-B->C}1 E-4.D-<F+G>C<B-"
1510 I01$="B-A-C2FG A-4.G16A-16C+DGF F2FD-<B-G A-2&G2"
1520 I02$="{CDEFDEFGEFGA-FGA-B-}1 {GA-B->CDEFGCDEFGA-B-B}1"
1530 S00$="C4"
1540 S01$="V11R<CFGA-2 <B->D-FD-B-FD-F <B->D-FD-B-FD-F D-FGFB-GFG"
1550 S02$="CEGEB-GEG D-FA-F>D-<A-FA- R>C<FG>C2 <CFA-F>C<A-FA-"
1560 S03$="CFA-F>C<A-FA- CFAF>C<AFE- <B->D-FD-B-FD-F CEGEB-GEG"
1570 S04$="D-FA-F>D-<A-FA- CEGEB-GEG RCFA-FGA->C F2<A2"
1580 S05$="@48V13B-1 B-1 A-1 A-1"
1590 S06$="G1 G1 A-1 A1 R4B-4R4B-4"
1600 S07$="R4G4R4G4 R4A-4R4A-4 R4A-4R4A-4 R4G4R4G4 >C1"
1610 S08$="@13V11<GA->C<F&FA->CR4<GEFGA->CE-4.D-&D-2RD-CD-G4.D-D-4.&CC2"
1620 S09$="RC<B>CA-4.CC4.&<B-B-2RA-GFF4EFG2>B->CD-GA-B-D-E-F<B->CD-<A-2&G2"
1630 S10$="@13C>C<B-B-A-A-G GFFE-E-D-D-C C<B-B-A-A-GGF F2E2 F1"
1640 M00$="C4.CD-C<B>C"
1650 M01$="A-2&A-A-GF E-4D-4F4.D- C4<B-2. B-4.B->C<B-AB-"
1660 M02$=">G2&GGFE F4<A-4A-4.B- >C2.R4 C4.CD-C<B>C"
1670 M03$="A-2&A-FGA- >C<FEF>D-4.C C4<B-4&B-B->CD- C4<C4&CGA-G"
1680 M04$="A-2&A-FGA- A-GECA-GEC F1 R4F4>C4.D-"
1690 M055$="C4<B->D-&D-2 R4<E-FGA-B->C <B-4A->C&C2 R4<C4A-4.B-"
1700 M06$="A-4GG&G2 R4EFGA-B->C D-4.CC2 R4<F4>C4.D- C4<B->D-&D-2"
1710 M07$="<R4E-FGA-B->C <B-4A->C&C2 R4<C4A-4.B- A-4GG&G2 R4GA-B->C&C4"
1720 M08$="<A-G4F&F2& F2.R4 R1 R1 R1"
1730 M09$="R1 R1 R1 R1 R1 R1"
1740 M10$="<A-G4F&F2& F2.R4 R1 R1 R1"
1750 B00$="{G&G+&A&A+&B&>C&C+&D&D+&E&F&F+&G&G+&A&A+}1 O3>C2B2 B-2A2 F2G2"
1760 B01$=">C2<B-2 A2E-2 F2D-2 G1"
1770 B02$="G1 G1"
1780 B03$="C1"
1790 B04$="O5R<G>C<B-A-2 F4.CF2 F4.CF4.E- D-4.D-D-2"
1800 B05$="G4.D-<G2 A-4.A-A-2 G4.>D-GFE-D- C4.CC2"
1810 B06$="C4.CC2 C4.<G>D-2 F4.CF2 <G4.GG2"
1820 B07$="A-4.A-A-2 G4.GG2 >C4.<G>CG4C C4.C4"
1830 B08$="F4.F16F16R4F4 R<B-R16B-16RB-2 >E-4.E-16E-16R4E4 R<A-R16A-16RA-2"
1840 B09$=">D-4.D-16D-16R4D-4R<GR16G16RG2>C4.C16C16R4>D-<GRCR16C16RC4G4F4.FF2"
1850 B10$="<B-4.B-B-2 >E-4.E-E-2 <A-4.A-A-2 >D-4.D-D-2 <G1"
1860 B11$=">C2.<G4>CCCCCCCCFA->CF<FA->C<F<B->D-FB-D-FB->D-<E-GB->E-<GB->E-<E-"
1870 B12$="<A->E-A->C<E-A->CE-<FA->CF<FA->C<FD-FA->C<FA->CD-<G2&GD-E-FG1<G2G2>"
1880 B13$=">C1 G1 F1 G2<G2 >C1"
1890 D00$="CR4CCR4."
1900 D01$="CRRCCRRR CRRCCRRR CRRCCRRR CRRCCRRR"
1910 D05$="CRRCCRRR CRRCCRRR CRRCCCCC CRRRCRRR"
1920 D02$="RRCRRRCR RRCRRRCR RRCRRRCR RRCRRRCR"
1930 D03$="RRCRRRCR RRCRRRCR RRCRRRCR RRCRRRCR RRCRRRCR"
1940 D07$="RRCRRRCR RRCRRRCR RRCRRRCR RRCRRRCR R1"
1950 D06$="RRCRRRCR RRCCCCCC RRCRRRCR RRCRRRCR RRCRRRCR"
1960 D04$="RRCRRRCR RRCRRRCR RRCRRRCR RRCRRRCR RRCRRRCR R1"
1970 N=1
19880 PLAY ,I00$,B00$,"R1F2F2F2F2B-2C2"
1990 PLAY ,I01$,B01$,"F2F2F2G2B-2G2C2C2"
2000 PLAY ,I02$,B02$,"C2C2"
2010 PLAY M00$,S00$,B03$
2020 PLAY M01$,S01$,B04$,"O5F2D-2B-2B-2R1G2G2",D01$
2030 PLAY M02$,S02$,B05$,"C2C2D-2D-2C2C2F2F2",D01$
2040 PLAY M03$,S03$,B06$,"F2F2F2F2B-2B-2C2C2",D01$
2050 PLAY M04$,S04$,B07$,"D-2D-2C2C2F2F2R1",D05$
2060 PLAY M05$,S05$,B08$,"B-2B-2E-2E-2A-2A-2D-2D-2",D02$
2070 PLAY M06$,S06$,B09$,"G2G2C2C2F2F2F2F2B-2B-2",D03$
2080 PLAY M07$,S07$,B10$,"E-2E-2A-2A-2D-2D-2G2G2C2C2",D03$
2090 IF N=2 THEN 2130
2100 PLAY M08$,S08$,B11$,"F2F2R1B-2B-2E-2E-2A-2A-2",D06$
2110 PLAY M09$,S09$,B12$,"D-2D-2B-2B-2G2G2C2C2R1E-2C2",D04$
2120 N=2:GOTO 2010
2130 PLAY M10$,S10$,B13$,"F2F2R1B-2B-2C2C2F1",D07$
2140 END
メッセージ 5番 はこれで終りよ．
■ 電子掲示板 # 13 ｢音楽｣ (F,FA,FM,FN,L,R,W,W@,K,A,Q,B,D,?) >