5 'WR 10 CLV:X=31:V=59:U=8:C=40 20 IF D<1 GOTO180 30 IF C<0 GOTO210 40 CLS:?:?"Time:";C,"Dst:";D,"Spd:";S/5;:LC16,23:?"Stage:";T,"Rank:";U; 50 POKE#B6D,#86,#85,#8A,#89:DRAW26,37,33,37 60 A=2:B=(B+!!S)%3:H=0 70 FORI=0TO7:A=A+I:G=[7-I]+X:IF V/10=I GSB230:H=I 80 DRAWG-A-B,11+A+B:DRAWG+A+B,11+A+B:NEXT 90 BEEP(350-S/3)*!E+5,90:U=U-(H=7)*(Y=6)+(H=6)*(Y=7) 100 IF H=6 AND ABS(G-30)<7 BEEP20:SCROLL0:S=S-S/9 110 Y=H:F=BTN(32):E=BTN(88)*!F:X=X-(BTN(29)-BTN(28))*(E*4+9-F*4) 120 S=S+F*12-S/120-E*25 130 IF G<1 OR G>59 BEEP60,30:SCROLL0:S=S-S/16 140 S=S*(S>0):C=C-1:D=D-S/100 150 V=V+S/100+(U-15)/2:Q=V>-8:V=V*(V<100)*Q+100*!Q:IF !S GOTO20 160 M=M*(ABS(M)<5)+(RND(3)-1)*(!B OR S>700) 170 FORW=0TOS/250:COPY#800,#802,14:[7]=[6]+M:NEXT:GOTO20 180 BEEP2,90:T=T+1:C=C+175:D=700+T*100 190 IF T<6 CLS:LC13,10:?"Stage",T:WAIT35:GOTO20 200 LC13,7:?"GOAL!" 210 WAIT150:LC11,10:?"GAME OVER";:CLK 220 IF INKEY()=10 RUN ELSE CONT 230 J=14+A:K=G-A/6:L=G+A/6:DRAWK,J,K,J-I/4:DRAWL,J,L,J-I/4 240 DRAWK,J-I/5,L,J-I/5:DRAWG-A/8,J-I/2,G+A/8,J-I/2:RTN
ムズい! 速い! 面白い! ビジュアルもカッコいいですし、ライバル車とのデッドヒートも熱い。これは燃えますね……! スピードを上げながら上手く曲がれたときのスリルも素晴らしいです。