■SHOOT MANIAC■
著作制作…………よなぷー
制作年月日………2018年1月4日
対応機種…………PB-100/110/120用ゲームプログラム
使用メモリ………430ステップ
※「ク」はクラブ、「ス」はスペード、「ハ」はハートの記号です。
※「●」はスペース一個です。
※「○」はEXTモードの[SHIFT][A]です。
※「⊂」は[ANS]の下の[E]です。
適当なプログラムエリア
1 GOTO 8
2 FOR A=0 TO 11:PRINT CSR4;"[●]";CSRA;D$;:IF A≠0;PRINT CSRA-1;"●";
3 K$=KEY:IF K$="" THEN 6
4 IF C=0;PRINT CSR4;"[・";:GOSUB 90:C=1:IF A=5;GOSUB 30
5 IF C=1;IF A≦10;GOSUB 60:A=11
6 NEXT A:IF C=0;GOSUB 60
7 GOTO 9
8 PRINT "SHOOT●MANIAC","TOP";J,"BY●";L$:$="○△ス□◆ク":G=0:H=3:E=1
9 F=INT(RAN#*6+1:D$=MID(F,1):C=0:PRINT "RD";E;":H";H;:GOSUB 90
20 GOTO 2
30 A=11:PRINT "HIT!";:GOSUB 90:IF F≧4;IF K$≠"-" THEN 60
40 IF F≦3;IF K$≠"Q" THEN 60
50 PRINT "NICE!";:C=3:G=G+E:E=E+1:GOTO 90
60 PRINT:PRINT "MISS!";:C=2:H=H-1:IF H≧1 THEN 90
70 STOP:PRINT "●GAME●OVER!";:IF J≧G;END
80 STOP:J=G:INPUT "NAME",L$:END
90 FOR B=0 TO 99:NEXT B:PRINT:RETURN
(430STEP)