■ＤＵＥＬ－ＦＩＥＬＤ■
著作制作…………よなぷー
制作年月日………２０１８年３月５日
対応機種…………ＰＢ－１００／１１０／１２０用ゲームプログラム
使用メモリ………１５６８ステップ
※「ク」はクラブ、「ス」はスペード、「ハ」はハートの記号です。
※「●」はスペース一個です。
※「○」はＥＸＴモードの［ＳＨＩＦＴ］［Ａ］です。
※「⊂」は［ＡＮＳ］の下の［Ｅ］です。
P0
4 H=0:X=E:Y=F:L=X:M=Y:GOSUB #1
8 PRINT CSR9;Y-2;CSR0;$;CSRX;"Ω";:GOSUB #5:IF K=0 THEN 8
20 IF ABS(K-5=3;Y=Y+SGN(K-5
30 S=0:IF ABS(K-5=1;X=X+SGN(K-5
40 IF X≧0;IF X≦9 THEN 60
50 X=L
60 IF Y≧3;IF Y≦22+H THEN 80
70 Y=M:GOTO 90
80 IF RAN#>.8;GOSUB #3:Y=M:GOSUB #1+SGN H
90 IF S=0;IF Y≠M;GOSUB #1+SGN H:PRINT
100 G$=MID(X+1,1):IF K=1;GOSUB #4:GOTO 8
110 IF G$="■";X=L
120 IF H=0;E=X:F=Y
130 L=X:M=Y:GOTO 8
P1
10 $="_ススクク○△△□_":FOR A=8 TO 17
20 $=$+MID(1+10*FRAC(1⊂6*LN Y*A,1):NEXT A:$=MID(11):RETURN
P2
2 IF Y≠INT H THEN 8
4 IF Y=26;PRINT:PRINT "DRAGON!";:GOSUB #6:S=2:GOSUB #3
6 PRINT:PRINT "BOSS!";:GOSUB #6:J=F+2:N=J↑2*3:S=1:GOSUB #3:GOTO #1
8 IF ABS(K-5=3;IF Y≧3;IF FRAC(1⊂7*(X+8)*LN Y*H≧.8;Y=M:RETURN
20 $="........■■":PRINT:FOR A=8 TO 17
30 $=$+MID(1+10*FRAC(1⊂7*A*LN Y*H,1):NEXT A:$=MID(11):RETURN
P3
1 $="cefwsrqμxzyπupb％◆↑&$\@÷ΣAtPtRn":P=0:IF S≠0 THEN 7
3 J=Y-2:IF H≠0;J=F+INT(RAN#*3
5 N=J↑2*2
7 G$=MID(J,1):IF S=2;J=25:N=2800:G$="≧゜××"
9 PRINT:PRINT G$;B;":";MID(25+P*2,2);:GOSUB #5:IF K=8;P=P-SGN P
20 IF K=2;P=P+SGN(2-P
25 IF K≠1 THEN 9
30 K=0:IF P=1;IF Q≧1;Q=Q-1:B=C↑2+9:P=0:GOTO 9
35 IF P=2;P=0:IF S+RAN#≦.7;STOP:RETURN
40 IF P≠0 THEN 9
45 PRINT:PRINT "Hit";C*3+R↑2;:GOSUB #8:N=N-C*3-R↑2:IF N≦0 THEN 65
50 W=J↑2-U:IF W≧1;PRINT "Dam";W;:GOSUB #8:B=B-W
55 IF B≧1 THEN 9
60 E=0:F=3:END
65 PRINT "Win!";:D=D+J:IF D≧C↑2;D=0:PRINT "LvUP!";:C=C+1
70 IF S=2;GOSUB #6:PRINT "YouAreHero!!","Great!≦_-THEEND-_≧";:END
75 IF S=1;H=0:X=E:Y=F:IF F>R;PRINT "GetWp";F;:R=F
80 S=9:T=T+SGN H*J↑2+6:RETURN
P4
2 IF G$="○";H=Y+5+LN COS X:X=INT(RAN#*10:Y=3:L=X:M=3:GOTO #2
4 IF G$≠"□";RETURN
6 $="OutInnPtnAmr":P=0
8 PRINT:PRINT MID(P*3+1,3);":G";T;:GOSUB #5:IF K=8;P=P-SGN P
20 IF K=2;P=P+SGN(3-P
30 IF K≠1 THEN 8
40 IF P=0 THEN #1+SGN H
50 W=8+F↑3*INT(P/3:PRINT:PRINT W;"Gp?";:GOSUB #5:IF K≠1 THEN 8
60 IF W>T THEN 8
70 PRINT:PRINT "Buy";:GOSUB #8:IF P=2;Q=Q+1:IF Q≧3;Q=2:W=0
80 IF P=1;B=C↑2+9:PRINT "ZZZ...";:GOSUB #8
90 IF P=3;U=F↑2:PRINT "GetAmr";U;:GOSUB #8
100 T=T-W:GOTO 8
P5
4 K=0
8 IF KEY="W";K=8
20 IF KEY="X";K=2
30 IF KEY="A";K=4
40 IF KEY="D";K=6
50 IF KEY="-";K=1
60 IF KEY="6" THEN #7
70 IF K=0 THEN 8
80 RETURN
P6
10 FOR A=0 TO 200:NEXT A:PRINT:RETURN
P7
10 PRINT:PRINT C;"Lv:Hp";B,R;"Wp:Am";U,"Pt";Q,"G";T:RETURN
P8
10 FOR A=0 TO 99:NEXT A:PRINT:RETURN
P9
10 PRINT "*DUEL-FIELD*":VAC:F=3:C=1:B=10:GOTO #0
(1568STEP)
