10 'CAVE FLIGHT 20 CLS:CLV:N=20:A=9:X=15:Y=22 30 GSB 150:IF RND(4)=0 THEN M=RND(3)-1:A=RND(22)+3 40 IF M+N<10 OR M+N>35 THEN M=-M 50 N=N+M:X=X-BTN(28)*2*(X>1)+BTN(29)*2*(X<55) 60 Y=Y-BTN(30)+BTN(31):GSB 150 70 E=POINT(X,Y)+POINT(X-1,Y) 80 DRAW X,Y:LC 0,23:IF S=1600 THEN ?" CLEAR ";:GOTO 30 85 S=S+1:? S; 90 BEEP ABS(SIN(S*20))/10+Y,9 100 IF S<1400 THEN WAIT-1400+S 110 IF E=0 THEN GOTO 30 120 WAIT 60:BEEP 200,60 130 LC 12,10:?"GAME OVER":CLK 140 IF INKEY()=10 THEN RUN ELSE CONT 150 SCROLL 3:DRAW 58,N-A,63,0 160 DRAW 58,N+A,63,47:RTN
むちゃくちゃ面白い……! 加速減速を駆使して洞窟の細い隙間を抜けていくスリルと爽快感がたまりません。蛇足どころか、私はこちらの方が好きです。