10 'SHOOTING GAME PanCake ver. 20 ?"PC RESET":CLV:P=#80:X=#23:Y=#26:T=#14:H=1 30 ?CHR$(P,4,6,6) 40 ?CHR$(P,5,7,0,#1D) 50 ?CHR$(P,5,7,1,#1C) 60 K=INKEY() 70 IF K=28&&X>0 X=X-1 80 IF K=29&&X<#49 X=X+1 90 IF K=32&&F=0 F=1:?CHR$(P,5,7,2,#57):C=X:B=Y-8 100 IF F=0 GOTO140 110 ?CHR$(P,6,8,2,C,B) 120 B=B-1 130 IF B<0 ?CHR$(P,5,7,2,#FF):F=0 140 ?CHR$(P,6,8,0,T,2) 150 ?CHR$(P,6,8,1,X,Y) 160 ?CHR$(P,6,8,3,T,2) 170 IF F=1&&B<6&&ABS(T-C)<4 ?CHR$(P,5,7,2,#FF):?CHR$(P,5,7,3,#59):WAIT8:GOTO210 180 T=T+H 190 IF T<0||T>#48 H=-H 200 GOTO60 210 ?CHR$(P,4,6,#FF) 220 LET[0],184,216,177,33 230 FOR I=0 TO4 240 ?"PC STAMP1 ";HEX$(I*8+#18,2);" 14 01 "; 250 FOR V=0 TO7 260 ?HEX$(PEEK([I]*8+V),2); 270 NEXT:?:NEXT
相手の弾をよけるゲームが世の中に多い中、まさしく"シュート"をメインにしたシューティングゲームですね。弾の遅さを考慮して、じっくり狙わなければ……。弾数の制限があっても面白そうです。