連鎖の熱い本格パズル
Mr.T
by PBロッキー

プログラムリスト

1 PRINT " ↑← Mr.T →↓",A;:$="*****[ ♦↑→↓←↑→↓"
2 FOR B=4 TO 15:A$(B)=MID(B,1):I(B)=0:GOTO 14
3 $=MID(1,B-1)+MID(B+U)
4 PRINT CSR 0;MID(6,10);:FOR B=6 TO 13:IF M$(S)=MID(B,EXP SGN T) THEN 3
5 NEXT B:Q=LEN($)-15:U=1:FOR B=5 TO Q+4
6 IF MID(B,1)=MID(B+U,1);D=D+1:U=U+1:GOTO 6
7 IF U>1;PRINT CSR B-6;MID(1,U);CSR 8;D;:V=V+10↑D:GOTO 3
8 NEXT B:W=W+EXP D:IF W≦1;X=X+1:PRINT CSR 0;X;V;:W=π↑π/SQR X:GOTO 4
9 S=INT Y:Y=RAN#*4:T=Z:Z=INT (RAN#*4:F$=M$(Y)+I$(Y*SGN Z+Z)
10 FOR B=-1 TO 7-Q:FOR C=X TO 4:IF KEY="4";IF X<5;S=S+3-4*SGN S
11 IF KEY="6";IF X<5;S=(S+1)*SGN (3-S
12 R$=M$(S)+I$(S*SGN T+T):PRINT CSR 7-B;R$;F$(EXP SGN B);
13 IF KEY≠"Q";W=W-1:NEXT C
14 NEXT B:D=0:$=MID(1,Q+5)+R$+"          ":IF Q<9 THEN 4
15 FOR B=9 TO 0 STEP -.2:PRINT CSR B;E$;:NEXT B:IF A≦V;A=V:PRINT "Hi!";
16 PRINT V:GOTO 1

14 行目のスペースは 10 個です．

PB-100 の初期出荷バージョンの一部で正しく動作しないケースがあります．その際はPB-100初期出荷バージョンの異常動作についてを参照してリストを変更してください．

8行目に掲載ミスがあったのを修正しました．(2017年4月23日)

PRINT CSR 0;X;K;
↓
PRINT CSR 0;X;V;

技術情報

変数表

行番号マップ

サブルーチンは 1～9 行に

ゲームの流れはブロックの落下→ブロックの消滅となりますが、プログラムでは前半（3～7行）にブロックの消滅処理、後半（9～14）にブロックの落下処理を置いています．

これは GOTO と THEN を多用する消滅処理を行番号の小さい（1桁の）ところに置くためです． こうしてなるべく GOTO の跳び先に2桁の行番号がこないようにしました．

PB-100 では GOTO、GOSUB の後にくる行番号はその字数分だけステップを使うので、こうすることで数ステップ稼いでいます．

EXP SGN で1ステップを稼ぐ

IF M$(S)=MID(B,EXP SGN T) THEN 3

EXP 0 = 1
EXP 1 = 2.718281828

4行目と12行目に使われている EXP SGN は、ここでは 1+SGN を1ステップ圧縮したものといえます．

MID 関数のパラメータや配列変数の指定、CSR など小数部があっても無視して実行してくれる命令に有効な場合があります．

MID の罠

開発当初には、MID 関数の扱いに苦労したのを憶えています．

$ には積もったブロックが入っていて、ブロックの消滅処理は MID 関数から $ 内部を参照したり操作します．この際にエラーが頻発しました．

原因は（はっきり憶えていないので推測ですが）、$ が空文字列になっていたり、MID のパラメータが0だったりオーバーしたためでした．

『パニッカーST』を解析して空読み（といえばいいのでしょうか？）が必要なことが分かり、解決しました．