■天を喰らえ　０■
　著作制作…………よなぷー
　制作年月日………２０１５年４月２１日
　対応機種…………ＰＢ－１００／１１０／１２０用ゲームプログラム
　使用メモリ………５４４ステップ
　※「クラブ」「スペード」「ハート」は、その記号を入力してください。
　※「●」はスペース一個です。


◆◆◆ P0 ◆◆◆

4 GOTO 52

8 PRINT:PRINT CSR5;"クラブ";CSR10;A;CSRX;E$;CSRY;E$;

12 IF R≧15;Z=Z+1:PRINT CSRZ;K$;:IF Z=5;GOSUB #2:Z=2

16 IF KEY="Q";F=4:GOSUB #1:IF H≦0 THEN 40

20 IF KEY="-";F=6:GOSUB #1

24 X=X+1:IF X=5;GOSUB #2:X=3

28 Y=Y-1:IF Y=5;GOSUB #2:Y=7

32 IF A≦0 THEN 48

36 GOTO 8

40 STOP:S=S+R+G↑2:R=0:IF G≦4 THEN 56

44 GOSUB 70

48 STOP:PRINT "SC";R+S;:END

52 VAC:GOSUB 70:$="oμπ@Ω￥&Σ":STOP

56 G=G+1:PRINT "●●ROUND";G:H=G*5:A=9:X=0:Y=9

60 B=G:C=G:Z=-1:E$=MID(G,1):K$=MID(G+3,1):GOTO 8

70 $="EatHeaven0●Happy●End!●":FOR P=1 TO 11:FOR J=11 TO P STEP -1

80 PRINT CSRJ;MID(P+SGNA*11,1);:NEXT J:NEXT P:RETURN


◆◆◆ P1 ◆◆◆

10 PRINT CSRF;"-";:IF F=Z;H=H-1:PRINT CSR4;"!";:Z=1

20 IF X≠F;IF Y≠F;RETURN

30 PRINT CSRF;"■";:F=INT(F/5:B(F)=B(F)-1

40 X(F)=2+F*6:IF B(F)≦0;B(F)=G:X(F)=F*12-1:R=R+1

50 RETURN


◆◆◆ P2 ◆◆◆

10 PRINT CSR5;"*";:A=A-G:RETURN