Program post site for everyone
CDEFGABがわかりにくい人のために、音符 を ﾄﾞﾚﾐﾌｧｿﾗｼ にしました。
かなキーを押してローマ字入力DOREMIFASORASIで入力
DRMFSLTに改造してもいいかな。
半音はありません。
<=>でオクターブ指定
_ 休符 マイナスと長音記号で音を伸ばします。
ふしづくりの学習に
10 'ﾁｭｰﾘｯﾌﾟ 20 CLS:PRINT "ﾁｭｰﾘｯﾌﾟ" 30 L=10:N=2:P=50:O=20 40 M="ﾄﾞﾚﾐ_ﾄﾞﾚﾐ_ｿﾐﾚﾄﾞﾚﾐﾚｰ":GSB@PL 50 M="ﾄﾞﾚﾐ_ﾄﾞﾚﾐ_ｿﾐﾚﾄﾞﾚﾐﾄﾞｰ":GSB@PL 60 M="ｿｿﾐｿﾗﾗｿｰﾐﾐﾚﾚﾄﾞｰｰｰ____":GSB@PL 70 END 80 @PL:I=0 90 @RD:C=PEEK(M+I):I=I+1:F=0 100 IFC=34OUT5,0:RTN 110 IFC=60O=10 120 IFC=61O=20 130 IFC=62O=40 140 IFC=95GSB@RE 150 IFC=45GSB@WT 160 IFC=45C=176 170 IFC=176GSB@WT 180 IFC=196F=3822:IFPEEK(M+I)=222I=I+1 190 IFC=218F=3405 200 IFC=208F=3034 210 IFC=204F=2863:IFPEEK(M+I)=167I=I+1 220 IFC=191F=2551 230 IFC=215F=2273 240 IFC=188F=2025 250 IFF>0GSB@NT 260 GOTO@RD 270 @RE:OUT5,0:WAITL:GSB@P:RTN 280 @NT:F=F/O:PWM5,F*P/100,F 290 @WT:WAITL-N:IFPEEK(M+I)<>176OUT5,0 300 WAITN:GSB@P:RTN 310 @P:IFINKEY()=10OUT5,0:END:ELSERTN
