• IchigoJam

10 'ｶｴﾙﾉｳﾀ
20 CLS:PRINT "ｶｴﾙﾉｳﾀ"
30 L=20:N=2:P=50:O=20
40 M="CDEFEDC-":GSB@PL
50 M="EFGAGFE_":GSB@PL
60 M="C_C_C_C_":GSB@PL
70 M="CDEFEDC-":GSB@PL
80 END
90 @PL:I=0
100 @RD:C=PEEK(M+I):I=I+1:F=0
110 IFC=34OUT5,0:RTN
120 IFC=95GSB@RE
130 IFC=45GSB@WT
140 IFC=103F=5012
150 IFC=97F=4545
160 IFC=98F=4050
170 IFC=67F=3822
180 IFC=68F=3405
190 IFC=69F=3034
200 IFC=70F=2863
210 IFC=71F=2551
220 IFC=65F=2273
230 IFC=66F=2025
240 IFC=99F=1911
250 IFC=100F=1703
260 IFC=101F=1517
270 IFC=102F=1432
280 IFF>0GSB@NT
290 GOTO@RD
300 @RE:OUT5,0:WAITL:GSB@P:RTN
310 @NT:F=F/O:PWM5,F*P/100,F
320 @WT:WAITL-N:IFPEEK(M+I)<>45OUT5,0
330 WAITN:GSB@P:RTN
340 @P:IFINKEY()=10OUT5,0:END:ELSERTN

Pagetop