■SLIDE SHOT■
著作制作…………よなぷー
制作年月日………2016年3月27日
対応機種…………PB-100/110/120用ゲームプログラム
使用メモリ………544ステップ
※「ク」はクラブ、「ス」はスペード、「ハ」はハートの記号です。
※「●」はスペース一個です。
※「○」はEXTモードの[SHIFT][A]です。
※「⊂」は[ANS]の下の[E]です。
適当なプログラムエリア
3 PRINT "●SLIDE●SHOT","HISC";T,"BY●";U$:F=0:A=1:B=6:S=0
6 $="123456":F=F+1:PRINT "●●PHASE";F:H=10:G=H:D=0:E=0
9 PRINT CSR0;A;"●";$;CSR9;B;:C=2:IF KEY="Q";$=MID(2)+MID(1,1)
20 IF KEY="W";$=MID(LEN($),1)+MID(1,LEN($)-1)
25 IF KEY="6";IF INT(VAL($)/1⊂5=A;PRINT CSR1;"*←";:C=0
30 IF KEY="-";IF 10*FRAC(VAL($)/10=B;PRINT CSR9;"→*";:C=1
35 IF C≦1;A(C)=INT(RAN#*6+1:D(C)=0:G=G-1:S=S+1
40 D=D+1:IF D≧16-F;D=0:PRINT CSR2;"→*";:H=H-SGN SIN COS TAN π
45 E=E+1:IF E≧16-F;E=0:PRINT CSR8;"*←";:H=H-SGN SIN COS TAN π
50 IF H≦0 THEN 80
55 IF G≧1 THEN 9
60 PRINT CSR3;"CLEAR!";:S=S+H:GOSUB 75:PRINT "HP●BONUS+";H;
65 GOSUB 75:IF F>9;F=9
70 GOTO 6
75 FOR J=0 TO 150:NEXT J:PRINT:RETURN
80 GOSUB 75:PRINT "●GAME●OVER!","SC";S;:IF T>S;END
85 STOP:INPUT "NAME",$:G=LEN($):IF G≧8;G=7
90 U$=MID(1,G):T=S
著作制作…………よなぷー
制作年月日………2016年3月27日
対応機種…………PB-100/110/120用ゲームプログラム
使用メモリ………544ステップ
※「ク」はクラブ、「ス」はスペード、「ハ」はハートの記号です。
※「●」はスペース一個です。
※「○」はEXTモードの[SHIFT][A]です。
※「⊂」は[ANS]の下の[E]です。
適当なプログラムエリア
3 PRINT "●SLIDE●SHOT","HISC";T,"BY●";U$:F=0:A=1:B=6:S=0
6 $="123456":F=F+1:PRINT "●●PHASE";F:H=10:G=H:D=0:E=0
9 PRINT CSR0;A;"●";$;CSR9;B;:C=2:IF KEY="Q";$=MID(2)+MID(1,1)
20 IF KEY="W";$=MID(LEN($),1)+MID(1,LEN($)-1)
25 IF KEY="6";IF INT(VAL($)/1⊂5=A;PRINT CSR1;"*←";:C=0
30 IF KEY="-";IF 10*FRAC(VAL($)/10=B;PRINT CSR9;"→*";:C=1
35 IF C≦1;A(C)=INT(RAN#*6+1:D(C)=0:G=G-1:S=S+1
40 D=D+1:IF D≧16-F;D=0:PRINT CSR2;"→*";:H=H-SGN SIN COS TAN π
45 E=E+1:IF E≧16-F;E=0:PRINT CSR8;"*←";:H=H-SGN SIN COS TAN π
50 IF H≦0 THEN 80
55 IF G≧1 THEN 9
60 PRINT CSR3;"CLEAR!";:S=S+H:GOSUB 75:PRINT "HP●BONUS+";H;
65 GOSUB 75:IF F>9;F=9
70 GOTO 6
75 FOR J=0 TO 150:NEXT J:PRINT:RETURN
80 GOSUB 75:PRINT "●GAME●OVER!","SC";S;:IF T>S;END
85 STOP:INPUT "NAME",$:G=LEN($):IF G≧8;G=7
90 U$=MID(1,G):T=S