■PURORESU!’16■
著作制作…………よなぷー
制作年月日………2015年12月13日
対応機種…………PB-100/110/120用ゲームプログラム
使用メモリ………544ステップ
※「ク」はクラブ、「ス」はスペード、「ハ」はハートの記号です。
※「●」はスペース一個です。
※「○」はEXTモードの[SHIFT][A]です。
※「⊂」は[ANS]の下の[E]です。
※102行の真ん中ら辺の「''」は「'」の二個並びです。
適当なプログラムエリア
4 GOTO 60
8 PRINT:PRINT "I●●ii●●I";INT G;:T=5:R=1:FOR Q=0 TO 50:IF KEY≠"";R=0
20 NEXT Q:FOR A=0 TO 5-B:PRINT CSR3;";;";:IF KEY≠"";T=A
25 NEXT A:IF T≧5-B;R=0:T=INT(RAN#*5
30 C=.08*(5-T)+.01*(G+H:IF C≧1;C=.99
35 GOSUB R*3+C/.34+99:FOR Q=0 TO 3
40 PRINT CSR2;MID(Q*4+1,4);:FOR A=0 TO 80:NEXT A:NEXT Q
45 G(R)=G(R)+C*20:IF G(R)<50 THEN 8
50 PRINT CSR9;"KO!","P+";INT G*R:E=E+G*R:IF E≧100*B+100;B=B+1:E=0
55 GOTO 70
60 PRINT "PURORESU!'16"
70 $="Ko.HallBudokanTo.DomeCLEAR!!":G=0:H=0
80 PRINT MID(B*7+1,7);INT E:IF B<3 THEN 8
90 B=2:PRINT "[HAPPY●END!]";:END
99 $="●π>●・'i●●●/●.≧>●":RETURN
100 $="●!i●・=・●.≦.●._.●":RETURN
101 $="._●i._゜●・=・●.≧.●":RETURN
102 $="●i!●●''●●;>●●i._":RETURN
103 $="i●i●●'→/●i<.●i_.":RETURN
104 $="●i<●-i-i●i=・●if.":RETURN
著作制作…………よなぷー
制作年月日………2015年12月13日
対応機種…………PB-100/110/120用ゲームプログラム
使用メモリ………544ステップ
※「ク」はクラブ、「ス」はスペード、「ハ」はハートの記号です。
※「●」はスペース一個です。
※「○」はEXTモードの[SHIFT][A]です。
※「⊂」は[ANS]の下の[E]です。
※102行の真ん中ら辺の「''」は「'」の二個並びです。
適当なプログラムエリア
4 GOTO 60
8 PRINT:PRINT "I●●ii●●I";INT G;:T=5:R=1:FOR Q=0 TO 50:IF KEY≠"";R=0
20 NEXT Q:FOR A=0 TO 5-B:PRINT CSR3;";;";:IF KEY≠"";T=A
25 NEXT A:IF T≧5-B;R=0:T=INT(RAN#*5
30 C=.08*(5-T)+.01*(G+H:IF C≧1;C=.99
35 GOSUB R*3+C/.34+99:FOR Q=0 TO 3
40 PRINT CSR2;MID(Q*4+1,4);:FOR A=0 TO 80:NEXT A:NEXT Q
45 G(R)=G(R)+C*20:IF G(R)<50 THEN 8
50 PRINT CSR9;"KO!","P+";INT G*R:E=E+G*R:IF E≧100*B+100;B=B+1:E=0
55 GOTO 70
60 PRINT "PURORESU!'16"
70 $="Ko.HallBudokanTo.DomeCLEAR!!":G=0:H=0
80 PRINT MID(B*7+1,7);INT E:IF B<3 THEN 8
90 B=2:PRINT "[HAPPY●END!]";:END
99 $="●π>●・'i●●●/●.≧>●":RETURN
100 $="●!i●・=・●.≦.●._.●":RETURN
101 $="._●i._゜●・=・●.≧.●":RETURN
102 $="●i!●●''●●;>●●i._":RETURN
103 $="i●i●●'→/●i<.●i_.":RETURN
104 $="●i<●-i-i●i=・●if.":RETURN