■ＰＵＲＯＲＥＳＵ！’１６■

　著作制作…………よなぷー
　制作年月日………２０１５年１２月１３日
　対応機種…………ＰＢ－１００／１１０／１２０用ゲームプログラム
　使用メモリ………５４４ステップ
　※「ク」はクラブ、「ス」はスペード、「ハ」はハートの記号です。
　※「●」はスペース一個です。
　※「○」はＥＸＴモードの［ＳＨＩＦＴ］［Ａ］です。
　※「⊂」は［ＡＮＳ］の下の［Ｅ］です。
※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