Program post site for everyone
OUT 5 に 圧電サウンダを接続します。
PLAYよりも正確な音程で音楽を演奏します。
演奏中にBSキーで中断。ESCで止めた場合はOUT 5,0で消音。
曲のMMLデータを書き換えて、投稿OK
音楽著作権にはご注意ください。
MML
CDEFGABH ドレミファソラシド
cdfga #
- 伸ばす
_ 休符
= オクターブ初期化
< オクターブダウン
> オクターブアップ
L= 音符の長さ 1/60秒単位
N= 音符間の無音時間
P= パルスのHL比 %
10 'ｲﾁｶﾞﾂﾂｲﾀﾁ 20 CLS:?"ｲﾁｶﾞﾂﾂｲﾀﾁ" 30 L=10:N=1:P=20 40 M="G---A-G-E--DC-C-":GSB@PL 50 M="D-D-G--FE-------":GSB@PL 60 M="G---A-G-E--DC-C-":GSB@PL 70 M="D-D-E--DC-------":GSB@PL 80 M=">C-C-C-<A->C---<G-G-":GSB@PL 90 M="A-A-G--FE-------":GSB@PL 100 M="G---A-G->C--<AG-F-":GSB@PL 110 M="E-G-F--DC-------":GSB@PL 120 END:LRUNFILE()+1 130 @PL:O=20:I=0 140 @RD:C=PEEK(M+I):I=I+1:F=0 150 IFC=34OUT5,0:RTN 160 IFC=60O=O/2:GOTO@RD 170 IFC=61O=20:GOTO@RD 180 IFC=62O=O*2:GOTO@RD 190 IFC=95GSB@RE:GOTO@RD 200 IFC=45GSB@WT:GOTO@RD 210 IFC=67F=3822 220 IFC=99F=3608 230 IFC=68F=3405 240 IFC=100F=3214 250 IFC=69F=3034 260 IFC=70F=2863 270 IFC=102F=2703 280 IFC=71F=2551 290 IFC=103F=2408 300 IFC=65F=2273 310 IFC=97F=2145 320 IFC=66F=2025 330 IFC=72F=1911 340 IFF>0GSB@NT 350 GOTO@RD 360 @RE:OUT5,0:WAITL:GOTO@P 370 @NT:F=F/O:PWM5,F*P/100,F 380 @WT:IFPEEK(M+I)=45WAITL:ELSEWAITL-N:OUT5,0:WAITN 390 @P:IFINKEY()=8OUT5,0:END:ELSERTN
