• IchigoJam

10 'ｲｹﾉｱﾒ
20 CLS:?"ｲｹﾉｱﾒ"
30 L=8:N=2:P=20
40 M="C-D-E-F-G---A-F-":GSB@PL
50 M="E-__D-__C---____":GSB@PL
60 M="G--FE-G-F-E-D---":GSB@PL:GSB@PL
70 M="C-D-E-F-G---A-F-":GSB@PL
80 M="E-__D-__C---____":GSB@PL
90 END:LRUNFILE()+1
100 @PL:O=20:I=0
110 @RD:C=PEEK(M+I):I=I+1:F=0
120 IFC=34OUT5,0:RTN
130 IFC=60O=O/2
140 IFC=61O=20
150 IFC=62O=O*2
160 IFC=95GSB@RE
170 IFC=45GSB@WT
180 IFC=67F=3822
190 IFC=99F=3608
200 IFC=68F=3405
210 IFC=100F=3214
220 IFC=69F=3034
230 IFC=70F=2863
240 IFC=102F=2703
250 IFC=71F=2551
260 IFC=103F=2408
270 IFC=65F=2273
280 IFC=97F=2145
290 IFC=66F=2025
300 IFF>0GSB@NT
310 GOTO@RD
320 @RE:OUT5,0:WAITL:GOTO@P
330 @NT:F=F/O:PWM5,F*P/100,F
340 @WT:IFPEEK(M+I)=45WAITL:ELSEWAITL-N:OUT5,0:WAITN
350 @P:IFINKEY()=8OUT5,0:END:ELSERTN

Pagetop