PB-100の宇宙を開設した頃、それ以前にほんの一月だけ、ポケット通信Ver.3にアクセスしたこと、そんなころをふっと思い出してしまいました。インフォシークの無料ホームページサービスの終了を聞き、感慨深いものがありました。PB-100の宇宙を開設した2003年4月。アクセスしたこと、そんなころをふっと思い出してしまいました。いう通信ソフトとその解説本。それらで四苦八苦しつつ人生初のパソコン通信に成功しました。発表することができました。ハードディスクドライブに収まっています。このたびはそんなしんみりした気分も手伝って、そのときのテキストを公開させていただこと思います。4407*概要PBシリーズ用の落ち物パズルゲームです。PB-100,120で動作確認しました。初めにタイトルを表示してからゲーム開始です。画面左端からブロックが落ちてきて、右端に積もっていきます。画面が一杯にならないように、プレイヤーは矢印ブロックを回転させて消してください。画面がいっぱいになるとスコアを表示して終ります。@キー操作[4][6]--矢印ブロックの左右回転[Q]-----ブロックを速く落とす。上のような場合は2段階で消えます。@特殊ブロックたまに特殊ブロック「◆」が落ちてきます。特殊ブロックは着床した時にその左にある矢印ブロックと同じ向きの全てのブロックを消します。[→←■■■■うまく積み上げて連鎖を狙ってください。最高で3段まで可能です。その後、「◆」は画面に残って半お邪魔ブロック化します。これも「◆」が2つ以上並べれば消えます。@スコア一度に消えるブロックの数が多いほど、連鎖を重ねるほど高得点です。@ゲームレベル2000Ptsごとにゲームレベル(ブロックの落下速度)が上がります。MODE表示の変化である程度分かるようにしています。4→5*さいごにこのゲームは滝本飛沫さんのパニッカーを友人と一緒にいじっている内に出来ました。矢印の回転を使うアイデアや、消滅のルールはパニッカーのままで、特殊ブロックは友人の発案です。人さまのアイデアで出来てしまったゲームですが、プログラムは結構頑張ったので見てください。4407*入力の方法パソコンからPBへデータを送る手段がないので、画面やプリントしたものを見ながら手で入力してください。4行目のスペースは10個です。"Sc";G;以上です。スコア表示*解析する人へこのプログラムでは前半(3-10行目)にブロックの消滅判定、後半(10-15)にブロックの落下処理を置いています。GOTO文で10行目に跳んでいます。GOSUBの多用されているブロック消滅判定部分を行番号の小さい(1桁)ところに置くためです。GOTO,GOSUBの跳び先に2桁の行番号がこないようにしました。して10STEP弱稼いでいます。NEXTを便乗することで削っています。圧縮でひとつにまとめてアップロードしていたと思います。消してしまい、アクセスできなくなってしまいました。それとその月だけ電話代の請求額が1万円を超えてしまいしこたま怒られました。契約して初のインターネットをしました。ポケット通信が閉鎖されていたことを知ることとなります。現在の環境と比べたら酷く不便なものでしたが、滑り込みのようにパソコン通信に触れられたのは、良かったなと思います。