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


◆◆◆ P0 ◆◆◆

1 GOSUB 85:GOTO 3

2 IF RAN#*SGN W>.8;K=W:R=K↑3+5:GOSUB #1:GOTO 1

3 C=0:FOR J=-3 TO 3:B$=MID(X+J,1):IF B$=".";B$=MID(27+J,1)

4 IF Y=W+3;IF B$="↑";B$="↓":IF X+J=20;B$="?"

5 IF J=0;A$=B$

6 C$=C$+B$:NEXT J:PRINT CSR0;C$;Y;"●●";CSR3;"i";

7 IF KEY="Q";J=-1

8 IF KEY="W";J=1

9 IF J≦1;IF MID(X+J,1)≠"#";X=X+J:GOTO 2

10 IF KEY="6";PRINT:PRINT "Hp";P;-F,"Swd";E,G;"G:Gem";H:GOTO 1

20 IF KEY≠"-" THEN 7

30 IF A$="↑";Y=Y+1:IF W=0;W=Z+1:X=4

40 IF A$="↓";Y=Y-1:IF Y=0;W=0

50 IF A$="?";K=W+1:R=K↑4+99:GOSUB #1:PRINT ":Gem!":H=Z+1:Y=0:W=0

60 IF A$="n";PRINT:GOSUB 60+X

61 GOTO 1

65 J=E↑2+9:PRINT "Shop","NewSwd=";J

66 IF G≧J;G=G-J:E=E+2:PRINT "GetNewSwd!"

67 RETURN

72 PRINT "Healer","HpMax!":P=F:RETURN

78 PRINT "Elder":IF H=3;PRINT "●Completed!●HappyEnd!!●";:END

79 IF H>Z;Z=H:PRINT "ReturnGem!","OpenNewGate!"

80 RETURN

85 IF W=0;A$="クラブクラブスペードiクラブスペードスペード":$="InI....InI...InI↑"

86 IF W=1;A$="/yyi/yy":GOSUB 92+Y

87 IF W=2;A$="(●●i●●)":GOSUB 99-Y

88 IF W=3;A$=">+-i-+<":GOSUB 95+Y

92 $="###"+$+"###"+A$:RETURN

93 $="..↑#↓......↑..↑.↓":RETURN

94 $="↑..#↓....↓#↑#↓.#↑":RETURN

95 $=".↓↑#↑#↓.#.↓↑#↓↑#↑":RETURN

96 $="↑#↓..↑.↑#↓..↓↑#.↑":RETURN

97 $="↑#.↓..↑#↑#↓↑#↑↓↓↑":RETURN

98 $="↑#↓.↑↑.#.↓.↑#...↑":RETURN

99 $=".↓↑#↑#↓#↑...#↑...":RETURN

100 $="↑.↓#.↑↓.#↑#↑....↓":RETURN

101 $="..↓#↓.#↓..#.....↑":RETURN


◆◆◆ P1 ◆◆◆

1 $="●●●←---↑↓●●●●Σ゜≦===":L=5:M=1:Q=1

2 PRINT CSR0;"i/";CSR7;P;"●";:IF N=1 THEN 5

3 IF KEY="-";N=1

4 GOSUB K*20:GOTO 2

5 FOR J=1 TO L:PRINT CSRJ;"-";:NEXT J

6 IF Q≠0;PRINT CSRL+SGN(1-M;"*";:R=R-E

7 N=0:IF R≧1 THEN 4

8 PRINT CSR2;"Win!";:F=F+1:G=G+K↑2:RETURN

9 PRINT CSR0;"*";:P=P-N*K↑2-K:N=0:IF P≧1;RETURN

10 Y=0:W=0:X=4:P=1:G=INT(G/2:END

20 PRINT CSR2;"●●●●●";CSRL;"o";:IF L=1;GOSUB 9

22 IF ABS(L-3.5>2;M=-M

24 L=L+M:RETURN

40 IF M<0;PRINT CSR2;MID(-M,4);"@";:M=M+1:RETURN

42 PRINT CSR2;"●●●";MID(M+8,1);"@";:M=1-M:Q=0

44 IF RAN#>.8;M=-4:PRINT CSR1;"←----";:GOSUB 9:Q=1

46 RETURN

60 IF M=1;$="●●●●●":M=0:T$="●":U$="="

62 PRINT CSR1;MID(1,5);"￥";:IF MID(1,1)="=";GOSUB 9

64 $=MID(2,4)+T$(RAN#*2):RETURN

80 PRINT CSR1;MID(15-L,6);:IF L=1;GOSUB 9:Q=1

82 IF L=6;PRINT CSR1;"■■■■■>";:GOSUB 9:Q=0

84 GOTO 22


◆◆◆ P9 ◆◆◆

10 PRINT "●●PALACE●0":VAC:X=4:P=15:E=2:F=P:GOTO #0