■ＤＥＭＯＮ ＢＵＳＴＥＲ■
著作制作…………よなぷー
制作年月日………２０１６年６月４日
対応機種…………ＰＢ－１００／１１０／１２０用ゲームプログラム
使用メモリ………１５６８ステップ
※「ク」はクラブ、「ス」はスペード、「ハ」はハートの記号です。
※「●」はスペース一個です。
※「○」はＥＸＴモードの［ＳＨＩＦＴ］［Ａ］です。
※「⊂」は［ＡＮＳ］の下の［Ｅ］です。
※Ｐ５の４５行の「”’’”」は「”」の間に「’」が二個並びです。ご注意を！
P0
1 IF KEY="Q";X=X-SGN X:Z=-1
2 IF KEY="W";X=X+SGN (10-X:Z=1
3 GOSUB #B:IF KEY="-";IF Y=0;W=1
4 IF KEY≠"5" THEN 7
5 Q=SGN(C-X:IF B*SGN R*ABS Q≠2 THEN 7
6 FOR G=X+Q TO C-Q STEP Q:PRINT CSRG;"÷";:NEXT G:R=R-1:N=N-4:GOSUB #7
7 IF KEY≠"6" THEN 40
8 G=X+Z:IF ABS(5-G≧6 THEN 40
9 IF Y=2;PRINT CSRG;"↓";:GOSUB #4:GOTO 80
20 PRINT CSRG;"-";:GOSUB #4:IF W≠0 THEN 80
30 G=G+Z:IF ABS(5-G≦5;PRINT CSRG;"-";:GOSUB #4
40 IF B=2;GOSUB #5
50 IF W≠0;Y=Y+W:IF Y=2;W=-1
60 IF Y=0;W=0
70 GOTO 1
80 Y=0:IF B=2;GOSUB #5
90 GOTO 60
P1
1 $=M$+"]クク●":PRINT CSR10;A;CSR0;$;CSRX;H$(Y);:IF KEY≠"E";RETURN
2 IF MID(X+1,1)="n" THEN 6
3 IF MID(X+1,1)="□";$="≧゜===(≦":E=6:G=9:N=16:C=9:GOTO 50
4 PRINT:PRINT "Round";K:GOSUB 60:FOR Q=0 TO 3:PRINT MID(Q*4+5,4);R(Q)
5 NEXT Q:GOTO 1
6 G=INT(10*FRAC(K*LN(X+9:GOSUB 60:PRINT:IF G≧5;G=5
7 PRINT MID(G*4+1,4);"!":$="."+M$+".":IF G=0;A=9
8 $=MID(1,X+1)+"_"+MID(X+3):M$=MID(2,7)
9 IF M$="_●_●_●_";GOSUB #6:IF G=5;K=K-1
20 E=INT(RAN#*5+1:N=INT(RAN#*6+4:IF G=1;R=R+1:GOTO 40
30 Q(G)=1
40 $="smμΩw":D$=MID(E,1):C=10:IF G≦4 THEN 1
50 B=2:P=0:X=0:Y=0:Z=1:W=0:F=-1:RETURN
60 $="PotnScrlShldSwrdSptrEnmy":RETURN
P2
10 PRINT:PRINT CSR10;A;CSRX;H$(Y);CSRC;D$;:RETURN
P3
10 B=3:PRINT "Round";K,"Sc";L;
P4
10 IF B=1;RETURN
20 IF G≠C;RETURN
30 IF E=2;IF Z=-F;PRINT CSRC;"△";:RETURN
40 N=N-Y↑2-1-T*2:IF RAN#≦.02;T=0
50 GOTO #7
P5
3 P=P+1:G=SGN(X-C:IF X=C;IF W=0;GOSUB #8
6 GOTO E*9
9 C=C+F:IF FRAC(C/10=0;F=-F
10 RETURN
18 GOTO 9
27 IF P≦2;Q=INT(RAN#*3-1:IF ABS(5-C-Q≦5;C=C+Q
28 IF P≧5;P=0:IF G≠0;PRINT CSRC+G;"_";:IF X=C+G;IF Y=0 THEN #8
29 RETURN
36 GOSUB 9:IF P≦3;RETURN
37 PRINT CSRC;"$";CSRC+F*SGN FRAC(C/10;"$";:P=0
38 IF X≠C;IF X≠C+F;RETURN
39 GOTO #8
45 PRINT CSR8;"''";:IF X≧8;IF Y=2;GOSUB #8
46 IF P≧6;PRINT CSR2;".......・";:P=0:IF X≧2;IF Y=0 THEN #8
47 RETURN
54 IF P≧5;PRINT CSRC-3;"(●>";:P=0:IF ABS(C-X-2≦1;GOSUB #8
55 IF ABS(7-C=3;F=-F
56 C=C+F:D$=MID(1,11-C):RETURN
P6
10 M$="n●n●n●n":K=K+1:IF FRAC(K/8=0;M$="I__□__I"
20 RETURN
P7
10 PRINT CSRG;"*";:IF N≧1;RETURN
20 STOP:PRINT "Win!!":IF E*U=6;PRINT "●Princess!!":L=L+40:U=0
30 A=A+SGN(9-A:X=3:B=1:L=L+E+A:IF K≦63 THEN #6
40 PRINT "YouSaveKing!","●NiceClear!","●Happy●End!":GOTO #3
P8
10 PRINT CSRX;"■";:W=0:Y=0:A=A-2+S:IF RAN#≦.02;S=0
20 IF A≦0 THEN #3
30 RETURN
P9
10 PRINT "DEMON●BUSTER":VAC:H$="o":I$="○":J$="゜"
20 Z=1:A=9:B=1:GOSUB #6:GOTO #0
著作制作…………よなぷー
制作年月日………２０１６年６月４日
対応機種…………ＰＢ－１００／１１０／１２０用ゲームプログラム
使用メモリ………１５６８ステップ
※「ク」はクラブ、「ス」はスペード、「ハ」はハートの記号です。
※「●」はスペース一個です。
※「○」はＥＸＴモードの［ＳＨＩＦＴ］［Ａ］です。
※「⊂」は［ＡＮＳ］の下の［Ｅ］です。
※Ｐ５の４５行の「”’’”」は「”」の間に「’」が二個並びです。ご注意を！
P0
1 IF KEY="Q";X=X-SGN X:Z=-1
2 IF KEY="W";X=X+SGN (10-X:Z=1
3 GOSUB #B:IF KEY="-";IF Y=0;W=1
4 IF KEY≠"5" THEN 7
5 Q=SGN(C-X:IF B*SGN R*ABS Q≠2 THEN 7
6 FOR G=X+Q TO C-Q STEP Q:PRINT CSRG;"÷";:NEXT G:R=R-1:N=N-4:GOSUB #7
7 IF KEY≠"6" THEN 40
8 G=X+Z:IF ABS(5-G≧6 THEN 40
9 IF Y=2;PRINT CSRG;"↓";:GOSUB #4:GOTO 80
20 PRINT CSRG;"-";:GOSUB #4:IF W≠0 THEN 80
30 G=G+Z:IF ABS(5-G≦5;PRINT CSRG;"-";:GOSUB #4
40 IF B=2;GOSUB #5
50 IF W≠0;Y=Y+W:IF Y=2;W=-1
60 IF Y=0;W=0
70 GOTO 1
80 Y=0:IF B=2;GOSUB #5
90 GOTO 60
P1
1 $=M$+"]クク●":PRINT CSR10;A;CSR0;$;CSRX;H$(Y);:IF KEY≠"E";RETURN
2 IF MID(X+1,1)="n" THEN 6
3 IF MID(X+1,1)="□";$="≧゜===(≦":E=6:G=9:N=16:C=9:GOTO 50
4 PRINT:PRINT "Round";K:GOSUB 60:FOR Q=0 TO 3:PRINT MID(Q*4+5,4);R(Q)
5 NEXT Q:GOTO 1
6 G=INT(10*FRAC(K*LN(X+9:GOSUB 60:PRINT:IF G≧5;G=5
7 PRINT MID(G*4+1,4);"!":$="."+M$+".":IF G=0;A=9
8 $=MID(1,X+1)+"_"+MID(X+3):M$=MID(2,7)
9 IF M$="_●_●_●_";GOSUB #6:IF G=5;K=K-1
20 E=INT(RAN#*5+1:N=INT(RAN#*6+4:IF G=1;R=R+1:GOTO 40
30 Q(G)=1
40 $="smμΩw":D$=MID(E,1):C=10:IF G≦4 THEN 1
50 B=2:P=0:X=0:Y=0:Z=1:W=0:F=-1:RETURN
60 $="PotnScrlShldSwrdSptrEnmy":RETURN
P2
10 PRINT:PRINT CSR10;A;CSRX;H$(Y);CSRC;D$;:RETURN
P3
10 B=3:PRINT "Round";K,"Sc";L;
P4
10 IF B=1;RETURN
20 IF G≠C;RETURN
30 IF E=2;IF Z=-F;PRINT CSRC;"△";:RETURN
40 N=N-Y↑2-1-T*2:IF RAN#≦.02;T=0
50 GOTO #7
P5
3 P=P+1:G=SGN(X-C:IF X=C;IF W=0;GOSUB #8
6 GOTO E*9
9 C=C+F:IF FRAC(C/10=0;F=-F
10 RETURN
18 GOTO 9
27 IF P≦2;Q=INT(RAN#*3-1:IF ABS(5-C-Q≦5;C=C+Q
28 IF P≧5;P=0:IF G≠0;PRINT CSRC+G;"_";:IF X=C+G;IF Y=0 THEN #8
29 RETURN
36 GOSUB 9:IF P≦3;RETURN
37 PRINT CSRC;"$";CSRC+F*SGN FRAC(C/10;"$";:P=0
38 IF X≠C;IF X≠C+F;RETURN
39 GOTO #8
45 PRINT CSR8;"''";:IF X≧8;IF Y=2;GOSUB #8
46 IF P≧6;PRINT CSR2;".......・";:P=0:IF X≧2;IF Y=0 THEN #8
47 RETURN
54 IF P≧5;PRINT CSRC-3;"(●>";:P=0:IF ABS(C-X-2≦1;GOSUB #8
55 IF ABS(7-C=3;F=-F
56 C=C+F:D$=MID(1,11-C):RETURN
P6
10 M$="n●n●n●n":K=K+1:IF FRAC(K/8=0;M$="I__□__I"
20 RETURN
P7
10 PRINT CSRG;"*";:IF N≧1;RETURN
20 STOP:PRINT "Win!!":IF E*U=6;PRINT "●Princess!!":L=L+40:U=0
30 A=A+SGN(9-A:X=3:B=1:L=L+E+A:IF K≦63 THEN #6
40 PRINT "YouSaveKing!","●NiceClear!","●Happy●End!":GOTO #3
P8
10 PRINT CSRX;"■";:W=0:Y=0:A=A-2+S:IF RAN#≦.02;S=0
20 IF A≦0 THEN #3
30 RETURN
P9
10 PRINT "DEMON●BUSTER":VAC:H$="o":I$="○":J$="゜"
20 Z=1:A=9:B=1:GOSUB #6:GOTO #0
コメント