■ＳＨＵＦＦＬＥ！■

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


P0

1 GOTO 80

3 GOSUB #2:IF L≦2;F=COS TAN π

4 D=D+1:IF D≧H THEN 50

6 C=INT(RAN#*3:IF C≠0 THEN 9

7 FOR B=3 TO 5:PRINT:PRINT CSRB;"n";CSR8-B;"n";CSR10;"n";

8 GOSUB #1:NEXT B:IF A≠2;A=1-A

9 IF C≠1 THEN 30

20 FOR B=7 TO 9:PRINT:PRINT CSRB;"n";CSR16-B;"n";CSR2;"n";

25 GOSUB #1:NEXT B:IF A≠0;A=3-A

30 IF C≠2 THEN 3

35 FOR B=3 TO 9:PRINT:PRINT CSRB;"n";CSR12-B;"n";CSR6;"n";

40 GOSUB #1:NEXT B:IF A≠1;A=2-A

45 GOTO 3

50 GOSUB #2:PRINT CSRJ*4+1;"→";

55 IF KEY="Q";J=(J+1)*SGN(2-J:GOTO 50

60 IF KEY≠"-" THEN 55

65 PRINT:IF A=J;E=E+L:PRINT "GOOD!":GOTO 90

70 PRINT "NG!","SC";E:IF E≧G;G=E:INPUT "NAME",M$

75 END

80 PRINT "●●SHUFFLE!","HI";G,"BY●";M$:E=0:INPUT "LV(1-3)",K$

85 L=1:IF K$≧"1";IF K$≦"3";L=VAL(K$)

90 D=0:A=INT(RAN#*3:PRINT CSRA*4+2;"o":H=5+INT(RAN#*6:GOTO 3


P1

10 IF L=3;RETURN

20 FOR F=0 TO 8-L*4:NEXT F:RETURN


P2

10 PRINT:PRINT "●●n●●●n●●●n";:RETURN