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