■ＭＭＡ！■

　著作制作…………よなぷー
　制作年月日………２０１９年１月２６日
　対応機種…………ＰＢ－１００／１１０／１２０用ゲームプログラム
　使用メモリ………１５６８ステップ
　※「ク」はクラブ、「ス」はスペード、「ハ」はハートの記号です。
　※「●」はスペース一個です。
　※「○」はＥＸＴモードの［ＳＨＩＦＴ］［Ａ］です。
　※「⊂」は［ＡＮＳ］の下の［Ｅ］です。


P0

1 H$="△":I$="○":V=INT(RAN#*3:PRINT "RD";O+1;"●vs●";MID(V*3+5,3)

2 A=30:B=O*2+10:Q=99:R=Q:T=0:FOR J=0 TO 3:GOSUB #1:W(J)=0:NEXT J

3 PRINT CSR0;G$(W);10*FRAC C;CSR1;MID(C,1);CSR3;G$(X);10*FRAC D;

4 PRINT CSR4;MID(D,1);CSR6;G$(Y);10*FRAC E;CSR7;MID(E,1);

5 PRINT CSR9;G$(Z);10*FRAC F;CSR10;MID(F,1);CSRT*3;"→";:P=0

6 IF KEY="Q";J=T-SGN T:GOSUB 92

7 IF KEY="W";J=T+SGN(3-T:GOSUB 92

8 IF KEY="-";GOSUB #3:GOTO 3

9 IF KEY="*";GOSUB #7:GOTO 3

20 IF KEY="6";IF W+X+Y+Z≠0 THEN 28

24 GOTO 6

28 M=-1:FOR J=0 TO 3:IF P=0;IF W(J)≧1;M=INT C(J):IF W(J)=2;P=1

32 NEXT J:N=9:K=INT(RAN#*7+1:IF K≧4;K=V+1

36 FOR J=0 TO 3:IF W(J)≧1;P=FRAC C(J)*10:IF N≧P;N=P

40 NEXT J:IF RAN#>.95;K=4

44 L=INT(RAN#*9+1:J=K-M:IF J=-2;J=1

48 IF J=2;J=-1

52 IF K=4;IF M≠4;J=-1

56 IF M=4;IF K≠4;J=1

60 PRINT:PRINT CSR2;N;CSR2;MID(M,1);CSR5;"vs●";L;CSR8;MID(K,1);

64 GOSUB #8:IF ABS(L-N≠8 THEN 76

68 PRINT CSR5;"C!";:GOSUB #8:IF L=1;J=-1:L=9

72 IF N=1;J=1:N=9

76 S=0:GOSUB #5+J:IF A≦0;PRINT CSR3;"[LOSE]";:GOSUB #8:GOTO 96

80 IF B≦0;PRINT CSR3;"[WIN!]";:GOSUB #8:O=O+1:PRINT:GOTO 1

84 FOR J=0 TO 3:IF W(J)≧1;W(J)=0:GOSUB #1

88 NEXT J:GOTO 3

92 PRINT CSRT*3;G$(W(T));CSRJ*3;"→";:T=J:RETURN

96 PRINT:PRINT "SC";O;:IF O≧U;PRINT ":TOP!";:U=O

100 STOP:IF O≦9 THEN #9

110 $="■YouAreHero!":GOSUB #2:$="■■THE■■END■■":GOSUB #2


P1

10 S=INT(RAN#*3+1:IF RAN#>.95;S=4

20 C(J)=S+.1*INT(RAN#*9+1:RETURN


P2

2 FOR S=10 TO 0 STEP -2:FOR J=1 TO S-1:GOSUB 8:NEXT J:FOR J=S+1 TO 0 STEP -1

5 GOSUB 8:NEXT J:NEXT S:GOTO #8

8 PRINT CSRJ;MID(1,12-J);CSR0;MID(J+1);:RETURN


P3

10 W(T)=W(T)+1:FOR J=0 TO 3:IF W(J)=2;IF T≠J;W(J)=1

20 NEXT J:IF W(T)=3;W(T)=0

30 RETURN


P4

10 IF S=0;S=INT(L*R/99:PRINT CSR3;"*";S;"←";

20 IF K≧3;Q=Q-S:IF Q≦69;A=0

30 IF K≠3;A=A-S:IF K=2;R=R+INT(S/2:IF R≧99;R=99

40 IF K=1;IF RAN#*SGNS>.9;A=A-S:GOSUB #8:PRINT CSR6;"B";

50 GOTO #8


P5

10 S=ABS(L-N:IF L>N;PRINT CSR6;"←";:S=INT(S*R/99

20 IF N>L;PRINT CSR6;"→";:S=INT(S*Q/99

30 PRINT CSR2;"*";CSR8;"*";CSR4;S;

40 IF S=0;PRINT CSR5;"==";:GOTO #8

50 IF L>N THEN #4

60 GOTO #6


P6

10 IF S=0;S=INT(N*Q/99:PRINT CSR9;"*";CSR4;S;"→";

20 IF M≧3;R=R-S:IF R≦69;B=0

30 IF M≠3;B=B-S:IF M=2;Q=Q+INT(S/2:IF Q≧99;Q=99

40 IF M=1;IF RAN#*SGNS>.9;B=B-S:GOSUB #8:PRINT CSR6;"B";

50 GOTO #8


P7

10 PRINT:PRINT "P:M";Q;"H";A,MID(V*3+5,3);":M";R;"H";B:RETURN


P8

10 FOR S=0 TO 130:NEXT S:RETURN


P9

9 O=0:$="BTJSBenTomJan":G$="●":PRINT CSR4;"MMA!","HISC";U:GOTO #0