落ち物パズルmobile

IchigoJam mobile環境（液晶画面）用に移植した落ち物パズルゲームです。
キーボード操作なので、mobile環境をお持ちの方はどなたでも遊べます。
なお通常のIchigoJam環境でも、画面が狭いだけでちゃんとプレイできます。

• 起動すると画面に左右の枠が表示され、上からブロックが落ちてきます。
• ブロックをカーソルキーの左右で移動させて、底に積んでいってください。落とす位置を決めたらカーソルキーの下を押すと、高速に降下します。スペースキーを押すと、ブロックを上下反転できます。
• 横1列（ブロック8個）が揃うと、その列が消えてスコアが1点加算されます。2列いっぺんに消すと、2点＋ボーナス2点で計4点が入ります。
• ブロックが上まで積み上がるとゲームオーバーです。

MixJuiceでダウンロードできます。
?"MJ GET comich.net/ichigojam/fallm.txt"

※（10/12修正）バグ修正

1 'Fall m

2 CLV:CLS:FORY=0TO8:[Y]=513:Q=[Y]:GSB20:NEXT:[9]=1023

3 LC10,0:?"SCORE":LC11,1:?"0":T=50

4 G=0:A=RND(15)+1:B=(A&3)*16:C=(A&12)*4:Y=0:IF!CGSB22

5 GSB18:IFC&[0]GOTO17

6 FORK=0TOT:IFBTN(DOWN)K=T

7 IFBTN(SPACE)GSB22:GSB18

8 L=BTN(LEFT):R=BTN(RIGHT):IF!(L|R)GOTO12

9 D=(B>>L)<>L)<>1:NEXT:RTN

22 IF!BRTN

23 A=B:B=C:C=A:RTN

24 BEEP30,5:[Y]=[Y]|B:W=Y+1:[W]=[W]|C:P=1:IF[W]=1023&&W<9GSB27 ELSEW=Y

25 IF[W]=1023GSB27

26 G=1:RTN

27 BEEP:[W]=513:Q=[W]:LC0,W-1:GSB21:S=S+P:LC11,1:?S:T=T-P*2:P=P+2:IFT<0T=0

28 FORZ=WTO1STEP-1:[Z]=[Z-1]:Q=[Z]:LC0,Z-1:GSB21:NEXT:RTN