Program post site for everyone
ゴールデンボンバーの「令和」のサビをIchigojamで演奏します。
OUT2 と GNE に圧電サウンダを接続して、PWM命令で音を鳴らします。
10 'REIWA 20 CLS:?"REIWA" 30 L=10:N=1:H=50:P=2 40 M="A-A-A-AAGE-G-AA-":GSB@PL 50 M="A-A-A-BHBA-G-A-E":GSB@PL 60 M="A-A-A-AAGE-G-AA-":GSB@PL 70 M="_DDDFFAABBHB----":GSB@PL 80 M="A-A-A-AAGE-G-AA-":GSB@PL 90 M="A-A-A-BHBA-G-A-E":GSB@PL 100 M="A-A-A-AAGE-G-AA-":GSB@PL 110 M="_DDDFFAAB->CD-C<B>C":GSB@PL 120 M="A-------":GSB@PL 130 END 140 @PL:O=20:I=0 150 @RD:C=PEEK(M+I):I=I+1:F=0 160 IFC=34OUTP,0:RTN 170 IFC=60O=O/2:GOTO@RD 180 IFC=61O=20:GOTO@RD 190 IFC=62O=O*2:GOTO@RD 200 IFC=95GSB@RE:GOTO@RD 210 IFC=45GSB@WT:GOTO@RD 220 IFC=67F=3822 230 IFC=99F=3608 240 IFC=68F=3405 250 IFC=100F=3214 260 IFC=69F=3034 270 IFC=70F=2863 280 IFC=102F=2703 290 IFC=71F=2551 300 IFC=103F=2408 310 IFC=65F=2273 320 IFC=97F=2145 330 IFC=66F=2025 340 IFC=72F=1911 350 IFF>0GSB@NT 360 GOTO@RD 370 @RE:OUTP,0:WAITL:GOTO@P 380 @NT:F=F/O:PWMP,F*H/100,F 390 @WT:IFPEEK(M+I)=45WAITL:ELSEWAITL-N:OUTP,0:WAITN 400 @P:IFINKEY()=8OUTP,0:END:ELSERTN
