■ＲＡＫＫＡ！■

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


適当なプログラムエリア

2 GOTO 88

4 Z=LEN($):RETURN

6 PRINT CSR11-Z+SGN Z;$;:RETURN

8 IF KEY="Q";Y=(Y+1)*SGN(3-Y

12 GOSUB 4:IF Z≦11;GOSUB 6:PRINT CSRX;A$(Y);:IF X≧1;PRINT CSRX-1;"●";

16 X=X+.2:IF KEY="-";X=12-Z

20 IF INT X=12-Z THEN 36

24 IF Z≦11 THEN 8

28 PRINT "SC";G;:IF G>P;P=G:STOP:INPUT "NAME",R$

32 END

36 $=A$(Y)+$:IF Z≧1;IF Z≦11;IF A$(Y)=MID(2,1);K=0:N=0:Q=0:GOSUB 44

40 Y=INT(RAN#*4:X=0:PRINT:GOTO 8

44 $="."+$+".":L=1

48 K=K+1:J$=MID(K,1):IF J$≠MID(K+1,1) THEN 72

52 N=N+1:M=0

56 IF J$≠MID(L,1);L=L+1:GOTO 64

60 $=MID(1,L-1)+MID(L+1):M=M+1

64 K=0:IF LEN($)>L THEN 56

68 Q=Q+2↑M↑N

72 GOSUB 4:IF Z≧3;$=MID(2,Z-2):GOSUB 4:PRINT:GOSUB 6

76 IF $="..";$="":Z=0

80 IF Z>K THEN 44

84 PRINT CSR0;Q;"!":G=G+Q:RETURN

88 PRINT "●●◆RAKKA!◆","TOP";P,"BY●";R$:A$="1":B$="2"

92 C$="3":D$="4":X=0:G=0:$="":GOTO 8