著作制作…………よなぷー
制作年月日………2016年1月26日
対応機種…………PB-100/110/120用ゲームプログラム
使用メモリ………544ステップ
※「ク」はクラブ、「ス」はスペード、「ハ」はハートの記号です。
※「●」はスペース一個です。
※「○」はEXTモードの[SHIFT][A]です。
※「⊂」は[ANS]の下の[E]です。
適当なプログラムエリア
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