何をどうしたらこれをもっと圧縮できるんだろう(前に作ろうとしていたもの)

何をしたいのか分かりませんが・・・ 「読みやすさ」を優先させた方が良さそうなカンジですね。 見やすく整理するとＦＯＲ～ＮＥＸＴ等で書けそうな場所も見つかるカモです。 パッと見だと、「ＧＯＴＯ　ラベル」の直後に、飛び先のラベルの有るのが、何故？ってカンジです。

(連続する文字列は乗算できます。 例…「AAAAAAAAAA」と出す時 ?"A"*10 例…「ABBBBBBBBBCC」と出す時 ?"A"+"B"*9+"CC" 読みやすさを捨てるならば、変数名を置き換えるのもありです。 ただし、説明がないと読めなくなります。

二つくらいの変数(crxとcry)とラベルを投げ捨てて(飛ぶラベル)、文字の乗算等のアドバイス、Repeat - until、!などを利用し読みやすさを放り投げた結果かなり(?)コンパクトになりました！ありがとうございます！

よく見たら上の変数がまだ残っていたので消して座標を変数未使用にしました。

よくよく考えたらLocate 0,y(座標による)なんてPrintの改行に任せればいいのでLocateを最低限(描画が重ならないよう)にしました。

うわお RGB(255,255,255) = &HFFFFFFFF = -1

chr$(10)を文字列変数にぶち込むと短くなるし、 もっと頻度が高いなら、特定の記号（￥とか）を改行に変えてくれる関数を作るといいかもね。

この場合、FORMAT関数を使うと 上の一覧表の方も下のセーブデータ？の方も さらに短くできそう。