15 CLS:LC12,10:?CHR$(182,220,184,192,222,216);" HISCORE:";PEEK(#FFF):C=B 16 INPUT"HAYASA?",A 20 CLS:CLT:X=12 30 LCRND(31),23:?CHR$(244) 40 X=X-(BTN(28)*(X>0))+(BTN(29)*(X<30)) 50 IFSCR(X,4)GOTO 70 60 LCX,5:?CHR$(237):WAITA:GOTO30 70B=TICK():B:IFB>C?"HISCORE!":POKE#FFF,B:WAIT180:GOTO15:ELSEWAIT180:GOTO15 SAVE0
ユーザが速さを変えられるのは嬉しいですね。ハイスコアも出してくれてナイス!