■ＪＡＮＫＥＮ■
著作制作…………よなぷー
制作年月日………２０１６年８月６日
対応機種…………ＰＢ－１００／１１０／１２０用ゲームプログラム
使用メモリ………５４４ステップ
※「ク」はクラブ、「ス」はスペード、「ハ」はハートの記号です。
※「●」はスペース一個です。
※「○」はＥＸＴモードの［ＳＨＩＦＴ］［Ａ］です。
※「⊂」は［ＡＮＳ］の下の［Ｅ］です。
適当なプログラムエリア
1 GOTO 76
3 FOR E=0 TO 99:NEXT E:PRINT:RETURN
5 PRINT "Duel";K;:GOSUB 3:M=INT(RAN#*6:N=1+INT(RAN#*4:S=0:Q=3:R=1
7 PRINT CSR10;L;CSR0;A$(Q);":";
9 IF KEY="Q";Q=1+Q*SGN(3-Q:GOTO 7
12 IF KEY≠"-" THEN 9
16 S=S+1:IF M=0;R=1+R*SGN(3-R
20 IF M=1;R=R-1:IF R≦0;R=3
24 IF M=2;A=COS S
28 IF M=3;A=SIN S
32 IF M=4;A=TAN S
36 IF M=5;A=π/S
40 IF M≧2;R=1+INT(3*FRAC(A*1⊂4
44 PRINT A$(R);:GOSUB 3:IF Q=R;PRINT "Aiko";:GOSUB 3:GOTO 7
48 A=Q-R:IF Q=1;IF R=3;A=1
52 IF Q=3;IF R=1;A=-1
56 IF 0>A THEN 68
60 PRINT "Hit";:GOSUB 3:N=N-1:IF N≧1 THEN 7
64 PRINT "Win!";:GOSUB 3:K=K+1:GOTO 5
68 PRINT "Dam";:GOSUB 3:L=L-1:IF L≦0 THEN 84
72 GOTO 7
76 PRINT "●●●JANKEN","Hi";T,"By●";$:L=5:K=1:B$="Choki"
80 C$="Gu●●●":D$="Par●●":GOTO 5
84 K=K-1:PRINT "Lose!","Sc";K;:IF T>K;END
88 STOP:PRINT "HiSc!":INPUT "Name",$:T=K
著作制作…………よなぷー
制作年月日………２０１６年８月６日
対応機種…………ＰＢ－１００／１１０／１２０用ゲームプログラム
使用メモリ………５４４ステップ
※「ク」はクラブ、「ス」はスペード、「ハ」はハートの記号です。
※「●」はスペース一個です。
※「○」はＥＸＴモードの［ＳＨＩＦＴ］［Ａ］です。
※「⊂」は［ＡＮＳ］の下の［Ｅ］です。
適当なプログラムエリア
1 GOTO 76
3 FOR E=0 TO 99:NEXT E:PRINT:RETURN
5 PRINT "Duel";K;:GOSUB 3:M=INT(RAN#*6:N=1+INT(RAN#*4:S=0:Q=3:R=1
7 PRINT CSR10;L;CSR0;A$(Q);":";
9 IF KEY="Q";Q=1+Q*SGN(3-Q:GOTO 7
12 IF KEY≠"-" THEN 9
16 S=S+1:IF M=0;R=1+R*SGN(3-R
20 IF M=1;R=R-1:IF R≦0;R=3
24 IF M=2;A=COS S
28 IF M=3;A=SIN S
32 IF M=4;A=TAN S
36 IF M=5;A=π/S
40 IF M≧2;R=1+INT(3*FRAC(A*1⊂4
44 PRINT A$(R);:GOSUB 3:IF Q=R;PRINT "Aiko";:GOSUB 3:GOTO 7
48 A=Q-R:IF Q=1;IF R=3;A=1
52 IF Q=3;IF R=1;A=-1
56 IF 0>A THEN 68
60 PRINT "Hit";:GOSUB 3:N=N-1:IF N≧1 THEN 7
64 PRINT "Win!";:GOSUB 3:K=K+1:GOTO 5
68 PRINT "Dam";:GOSUB 3:L=L-1:IF L≦0 THEN 84
72 GOTO 7
76 PRINT "●●●JANKEN","Hi";T,"By●";$:L=5:K=1:B$="Choki"
80 C$="Gu●●●":D$="Par●●":GOTO 5
84 K=K-1:PRINT "Lose!","Sc";K;:IF T>K;END
88 STOP:PRINT "HiSc!":INPUT "Name",$:T=K
コメント